vb的一道题，高手帮忙1

来源：百度知道 编辑：UC知道 时间：2024/04/30 00:28:20
随机生成20个100以内的两位正整数，统计其中有多少个不同的数。
（用vb做）写代码就行！谢谢高手！
要快呀，急

Private Sub Command1_Click()
Dim s(20) As Integer, n As Integer, B As String
Randomize
For I = 1 To 20
s(I) = Int(Rnd * 89 + 10)
B = B & s(I) & ","
Next
Print temp
For I = 1 To 20

For J = I + 1 To 20
If s(J) = s(I) Then n = n + 1
Next

Next
Print "不重复数字有:" & 20 - n & "个"

End Sub

Private Sub Command1_Click()
Dim I As Integer, J As Integer, A(19) As Integer, B As Integer
For I = 0 To 19
Randomize
A(I) = Int(Rnd * (100 - 10) + 10)
Debug.Print A(I)
Next
For J = 0 To 19
For I = 0 To 19
If I <> J And A(J) = A(I) Then
A(I) = 0
End If
Next I
Next J
B = 20
For I = 0 To 19
If A(I) = 0 Then B = B - 1
Next
Debug.Print "共有" & B & "个不同的数."
End Sub

这也要高手！两个循环