vb题目：产生20个20~40之间的两位随机数整数，统计不同数据出现的次数

Question

注意是vb程序

Answer 1

'示例代码如下：
Private Sub Form_Click()
Randomize Timer
Dim a(1 To 20) As Integer
For i = 1 To 20
a(i) = Int(Rnd * 21 + 20)
Print a(i); " ";
Next i
For i = 1 To 19
For j = i + 1 To 20
If a(i) < a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i
Print
For i = 1 To 20
Print a(i); " ";
Next i
Print
For i = 2 To 20
If a(i - 1) = a(i) Then
s = s + 1
Else
If s <> 0 Then
Print a(i - 1) & "共有" & s + 1 & "个"
s = 0
Else
Print a(i - 1) & "共有" & 1 & "个"
End If
End If
Next i
If s <> 0 Then
Print a(i - 1) & "共有" & s + 1 & "个"
s = 0
Else
Print a(i - 1) & "共有" & 1 & "个"
End If
End Sub

Answer 2

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，再把代码放进去就可以了

Answer 3

定义一个random类，然后输出统计