UC知道vb填写统计数字的次数
来源：百度知道 编辑：UC知道 时间：2024/05/25 08:02:28
要做两个文本框和一个统计按钮
例:
文本框1
输入0,1,2,3,4,5,6,7,8,9,10,999,999,999,0,1,2,3,4,5,6,7,8,9,11,12,13
按<统计>按钮
得出文本框2
出现1次=10,11,12,13 (4)
出现2次=0,1,2,3,4,5,6,7,8,9,(10)
出现3次=999(1)
帮忙求这个代码?(今天刚学VB菜鸟级)
例:
文本框1
输入0,1,2,3,4,5,6,7,8,9,10,999,999,999,0,1,2,3,4,5,6,7,8,9,11,12,13
按<统计>按钮
得出文本框2
出现1次=10,11,12,13 (4)
出现2次=0,1,2,3,4,5,6,7,8,9,(10)
出现3次=999(1)
帮忙求这个代码?(今天刚学VB菜鸟级)
Private Sub Command1_Click()
Dim inpData() As String, fo, v As Long, bool As Boolean
Dim n As Long, m As Long
Dim ct() As Long, cn As Long
ReDim ct(500, 1)
cn = -1
inpData = Split(Text1, ",")
For Each fo In inpData
If IsNumeric(fo) Then
v = Val(fo)
n = 0
For n = 0 To cn
If v = ct(n, 0) Then Exit For
Next
If n > cn Then
cn = cn + 1
'ReDim Preserve ct(cn, 1)
ct(n, 0) = v
ct(n, 1) = 1
Else
ct(n, 1) = ct(n, 1) + 1
End If
m = IIf(ct(n, 1) > m, ct(n, 1), m)
End If
Next
For v = 1 To m
bool = False
For n = 1 To cn
If ct(n, 1) = v Then
If bool = False Then Text2.SelText = IIf(Len(Text2), vbCrLf, "") & "出现" & v & "次："
Text2.SelText = IIf(Not bool, "", ",") & ct(n, 0)
If bool = False Then bool = True
End If
Next
Next
End Sub