Question

VB编程 统计text1中数字出现频率

我想统计text1中1至15的数字出现的频率，代码如下，但统计大于10的两位数正常，小于10的比如1，他把10或11等出现的数字十位的“1”也算上了，应该怎么改？
Dim i As Integer
For i = 1 To 15
s = s & i & "出现了：" & Len(Text1) - Len(Replace(Text1, i, "")) & "次" & vbCrLf
Next
Text1 = Text1 & s
text1中各数字间是用逗号隔开的

Answer 1

这个问题要这么考虑：
第一步，将text1中数值以逗号分开，分别存储到一个数组的各个元素中。
第二步，进行统计。设一个记录数组“频次”，频次（1）存放并累加“1”的出现次数……一次类推。
代码示例如下：
Private Sub Command1_Click()
Dim 元素数组
Dim 频次(15) As Integer
元素数组 = Split(Text1, ",") '注意这里引号内的逗号要和你输入的逗号一致
For i = 0 To UBound(元素数组)
X = Val(元素数组(i))
Select Case X
Case 0
MsgBox "你输入的是不是有非数字或不在1-15之内？"
Exit Sub
Case 1 To 15
频次(X) = 频次(X) + 1
Case Else
MsgBox "你输入的数字超出1-15的范围！"
Exit Sub
End Select
Next i
For i = 1 To 15
Print i; "出现的次数为："; 频次(i)
Next i
End Sub

追问

我只是要筛选出1~15间的正整数，也有其余的负数什么的，那些都不要，只显示出1~15间的正整数的出现频率

追答

咳，那还不简单？100以内的加法会算，还能让10以内的加法给难住了？
把
Case 0
MsgBox "你输入的是不是有非数字或不在1-15之内？"
Exit Sub

和
Case Else
MsgBox "你输入的数字超出1-15的范围！"
Exit Sub

去掉，你总会吧？

Answer 2

text1中各数字间是用逗号隔开的