第1个回答 2013-12-14
Dim a(20), i, j, m As Integer
m = 1
For i = 0 To 19
a(i) = CInt(Rnd() * 20 + 20)
TextBox1.Text = TextBox1.Text & a(i) & " "
Next
For i = 0 To 19
For j = i + 1 To 19
If a(i) = 0 Then
Exit For
Else
If a(i) = a(j) Then
m = m + 1
a(j) = 0
End If
End If
Next
If a(i) <> 0 Then
TextBox2.Text = TextBox2.Text & a(i) & "出现了" & m & "次" & " "
m = 1
End If
Next
新建两个textbox,一个button,再把代码放进去就可以了