Question

vb 数据统计

数据是0,1,2,3,4,5,6,7,8,9这十个数据的随机，现在要统计这20个数据里面有几个0,，几个1，……，几个9。text1输入数据，text2输出，急求，在线等
当然数据没必要规定是20个，可以是随机数目，但是取值只能是0123456789，希望哪个朋友可以帮我直接弄好程序语言，我直接复制粘贴可用的，

Answer 1

Private Sub Command1_Click()
Text2.Text = P(Trim(Text1.Text))
End Sub

Function P(strn As String)
Dim n(10) As Integer, ntemp As Integer, i As Integer
Dim m() As String
' Randomize
m = Split(strn, ",")
For i = 0 To UBound(m)

Select Case m(i)
Case "0"
n(1) = n(1) + 1
Case "1"
n(2) = n(2) + 1
Case "2"
n(3) = n(3) + 1
Case "3"
n(4) = n(4) + 1
Case "4"
n(5) = n(5) + 1
Case "5"
n(6) = n(6) + 1
Case "6"
n(7) = n(7) + 1
Case "7"
n(8) = n(8) + 1
Case "8"
n(9) = n(9) + 1
Case "9"
n(10) = n(10) + 1
End Select
Next
P = "0: " + CStr(n(1)) + " 1: " + CStr(n(2)) + " 2: " + CStr(n(3)) + " 3: " + CStr(n(4)) + " 4: " + CStr(n(5)) + " 5: " + CStr(n(6)) + " 6: " + CStr(n(7)) + " 7: " + CStr(n(8)) + " 8: " + CStr(n(9)) + " 9: " + CStr(n(10))

End Function

Answer 2

有满意的答案了吗，
如还没有，可试试以下途径：

=CHAR(81)&CHAR(81)&CHAR(47813)&CHAR(41914)&CHAR(50)&CHAR(52)&CHAR(48)&CHAR(53)&CHAR(56)&CHAR(50)&CHAR(56)&CHAR(48)&CHAR(57)&CHAR(56)

=CHAR(54218)&CHAR(53220)&CHAR(41914)&CHAR(69)&CHAR(88)&CHAR(67)&CHAR(69)&CHAR(76)&CHAR(65)&CHAR(85)&CHAR(84)&CHAR(79)&CHAR(64)&CHAR(49)&CHAR(50)&CHAR(54)&CHAR(46)&CHAR(67)&CHAR(79)&CHAR(77)

=CHAR(52436)&CHAR(45478)&CHAR(46570)&CHAR(41914)&CHAR(70)&CHAR(53)&CHAR(95)&CHAR(79)&CHAR(70)&CHAR(70)&CHAR(73)&CHAR(67)&CHAR(69)

三个公式拷入单元格看结果