vb求解！用随机数产生100个整数（其取值范围为1~100），存放在数组x中，输出出现3次的数，每行输出10个数

Question

注意是vb哦！尽量别写的太深奥- -
貌似后面还要对其排序

Answer 1

Private Sub Command1_Click()
Dim Nrep(100) As Integer
Dim a As Integer
Randomize
For i = 1 To 100
a = Int(Rnd * 100 + 1)
Nrep(a) = Nrep(a) + 1
Debug.Print a;
Next
Debug.Print
For i = 1 To 100
If Nrep(i) = 3 Then Print i;
Next i
Print
End Sub

BTW， 楼上求得是出现4次的结果。追问

结果的数组要排序额- =

Answer 2

Dim a(100) As Integer
Private Sub Command1_Click()
Dim n As Integer, m As Integer
For i = 1 To 100
For m = i + 1 To 100
If a(i) = a(m) Then n = n + 1
Next m
If n = 3 Then
Print a(i)
End If
n = 0
Next i
End Sub
Private Sub Form_Load()
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 100 + 1)
Next
End Sub

Answer 3

int(rand100)+1