VB代码,检查在这些数字中每个数字出现的频率,并输出

来源：百度知道 编辑：UC知道 时间：2024/07/07 13:50:35
这个我也不知道怎么说的,我只是在text1里面输入一些数字(以空格为分界),然后在它里面查找每一个数字在这一行里出现的次出写在text2里面.如下:
text1:1 2 65 3 4 65 6 5 74 5 3 26 1 4 3 2 75 65 46 3
text2:
1出现2次
2出现2次
3出现4次
4出现2次
5出现2次
6出现1次
74出现1次
26出现1次
75出现1次
65出现3次
46出现1次.

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, " ")

For i = 0 To UBound(a)
n = 0
For j = i + 1 To UBound(a)
If a(i) = "" Then Exit For
If a(i) = a(j) And a(i) <> "" Then
n = n + 1
a(j) = ""
End If
Next
If a(i) <> "" Then
Text2.Text = Text2.Text & a(i) & "出现" & n + 1 & "次" & vbCrLf
End If
Next
End Sub