Dim i(1 To 6) As Byte
Dim t(1 To 6) As Byte
Dim flag As Byte
 
Private Sub Command1_Click()
   Dim x As Integer
   Dim y As Integer
   flag = 0
   For x = 1 To 6
      For y = 1 To 6
         If i(x) = t(y) Then flag = flag + 1
      Next y
   Next x
   Text1.Text = flag
End Sub
 
Private Sub Form_Load()
   i(1) = 10
   i(2) = 20
   i(3) = 11
   i(4) = 36
   i(5) = 25
   i(6) = 17
 
   t(1) = 10
   t(2) = 10
   t(3) = 20
   t(4) = 20
   t(5) = 15
   t(6) = 25
End Sub