- เข้าสู่ระบบล่าสุด
- 2012-5-14
- เวลาออนไลน์
- 81 ชั่วโมง
- จิตพิศัย
- 39
- Money
- 144
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 42
- กระทู้
- 42
- สำคัญ
- 0
- เครดิต
- 39
- UID
- 1
 
- Money
- 144
- จิตพิศัย
- 39
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 39
- โพสต์
- 42
|
- Module Subset
- Dim A() As Integer = {5, 4, 3, 2, 1}
- Dim B() As Integer = {2, 1, 3}
- Dim countA, countB, count As Integer
- Sub Main()
- For countB = 0 To 2
- For countA = 0 To 4
- If A(countA) = B(countB) Then
- count += 1
- End If
- Next
- Next
- If count = 3 Then
- Console.WriteLine("B is subset of A")
- Else
- Console.WriteLine("B is not subset of A")
- End If
- End Sub
- End Module
 |
|
