VB6制作从数字中找出现率

如果只是统计那么就下面的代码

Private Sub Command1_Click()
Dim s As String
Dim p(0 To 9, 0 To 1) As Integer
Dim i As Integer, j As Integer, t As Integer, x As Integer
s = "1112222333334444455555"
For i = 0 To 9
p(i, 1) = i
Next i
For i = 1 To Len(s)
j = Val(Mid(s, i, 1))
p(j, 0) = p(j, 0) + 1
Next i
For j = 0 To 9
For i = 0 To 9
If p(j, 0) > p(i, 0) Then
t = p(j, 0): p(j, 0) = p(i, 0): p(i, 0) = t
t = p(j, 1): p(j, 1) = p(i, 1): p(i, 1) = t
End If
Next i
Next j
For i = 0 To 9
Text1(i).Text = p(i, 1) & "出现" & p(i, 0) & "次"
Next i
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 300
Text1(i).Visible = True
Next i
End Sub

创建一个text1的文本框对象，然后设置index 属性为0