输入N个由“0”~ “9”组成的数字字符串，统计出现频率最高的数字及次数(vb程序怎么写） 从键盘输入一个字符串，统计字符1~9出现的次数，并按出现的次...

\u7528InputBox\u51fd\u6570\u8f93\u5165\u4e00\u4e2a\u7531\u6570\u5b570~9\u7ec4\u6210\u7684\u5b57\u7b26\u4e32\uff0c\u7edf\u8ba1\u5176\u4e2d\u6bcf\u4e2a\u6570\u5b57\u51fa\u73b0\u7684\u6b21\u6570\u3002\uff08\u8bf7\u7528VB\uff09

Private Sub Form_Click()
a = InputBox("\u8bf7\u8f93\u5165\u6570\u5b57\u5b57\u7b26\u4e32")
For i = 0 To 9
s = s & i & "\u51fa\u73b0\u4e86\uff1a" & Len(a) - Len(Replace(a, i, "")) & "\u6b21" & vbCrLf
Next
MsgBox s
End Sub

Private Sub Command1_Click()
Dim x As String
x = InputBox("\u8f93\u5165\u4e00\u4e2a\u5b57\u7b26\u4e32")
Dim i As Integer
Dim v(9)
For i = 0 To 9
v(i) = Split(x, i)
Print i; UBound(v(i))
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim k As Integer
Dim j As Integer
Dim Ar(10) As Integer
Dim Ar1() As Integer

Text1.Text = "1155333334477"

For i = 0 To 9
Ar(i) = 0
Next i

ReDim Ar1(Len(Trim(Text1.Text)) - 1)
For i = 1 To Len(Trim(Text1.Text))
Ar1(i - 1) = Mid(Trim(Text1.Text), i, 1)
Next i

For i = 0 To UBound(Ar1)

Ar(Ar1(i)) = Ar(Ar1(i)) + 1
Next i

k = 0
j = 0
For i = LBound(Ar) To UBound(Ar) - 1
If Ar(i) > k Then
k = Ar(i)
j = i
End If
Next i

MsgBox "出现最多的是：" & j & " 出现次数为：" & Ar(j)

End Sub

Private Sub Form_Click()
Dim A As String
Dim I As Integer
A = InputBox("请输入0-9组成的数字")Dim B(0 To 9) As Integer, J As Integer
For I = 1 To Len(A)
If Mid(A, I, 1) <> " " Then
J = Val(Mid(A, I, 1))
B(J) = B(J) + 1
Print J;
End If
Next
Print
Dim max As Integer, iMax As Integer
iMax = 0
For I = 1 To 9
If B(iMax) < B(I) Then iMax = I
Next
Print "最高频率数:"; iMax
Print "出现频率是"; B(iMax)

End Sub 正好,刚解答完的

Dim num(10) As Integer, i As Integer, s As String, max(10) As Integer, k As Integer
For i = 0 To Len(Text1.Text) - 1
num(Val(Mid(Text1.Text, i + 1, 1))) = num(Val(Mid(Text1.Text, i + 1, 1))) + 1
Next i
'统计最多出现的次数
k = 0
max(k) = 0
For i = 1 To 9
If num(i) > num(max(k)) Then
max(k) = i
End If
Next i
'这里处理多个最多的情况
For i = 1 To 9
If num(i) = num(max(k)) And i <> max(k) Then
k = k + 1
max(k) = i
End If
Next i

For i = 0 To k
s = s & max(i) & ":" & num(max(i)) & Chr(9)
Next i
MsgBox s

扩展阅读：日本资生堂色谱柱 ... 日本s1官网怎么上 ... www.sony.com.cn ... 17173.com ... java入门网站 ... jacob bixenman ... javascript 在线 ... g β大师 ... 12 pro max ...