Question

vb怎么查找数组中相同元素并输出下标

A（）=（10 ，20 ，30，40 ，50，20，10 ，40，30）

Answer 1

Private Sub Form_Click()
Form1.Cls
Dim A(10) As Integer
Dim B(10) As Boolean
Dim I As Integer, J As Integer
Dim K As Integer
Randomize
Form1.AutoRedraw = True
For I = 1 To 10
A(I) = Int(Rnd * 10)
Print A(I);
B(I) = True
Next
Print
For I = 1 To 10
If B(I) Then
Print A(I); "："; I;
B(I) = False
For J = 1 To 10
If B(J) Then
If A(I) = A(J) Then
Print J;
B(J) = False
End If
End If
Next
Print
End If
Next
End Sub

追问

看不太懂，能不能说明下

追答

Private Sub Form_Click()
Form1.Cls‘清屏
Dim A(10) As Integer‘声明变量
Dim B(10) As Boolean
Dim I As Integer, J As Integer
Dim K As Integer
Randomize’随机数种子
Form1.AutoRedraw = True‘自动刷新
For I = 1 To 10
A(I) = Int(Rnd * 10)’赋值
Print A(I);‘打印
B(I) = True’记录是否有相同值
Next
Print
For I = 1 To 10‘以下查询相同的元素并打印
If B(I) Then
Print A(I); "："; I;
B(I) = False
For J = 1 To 10
If B(J) Then
If A(I) = A(J) Then
Print J;
B(J) = False
End If
End If
Next
Print
End If
Next
End Sub