如何用vb制作计数器

如何用vb制作计数器

使用数组 和 结构体　　相应的数据类型自己看看哪个最合适就用哪个，下面的例子全部用long，初始数据用100个随机数　　Option Explicit　　Private Type dd　　d1 As Long '存储出现的数　　d2 As Long '存储出现次数　　End Type　　Private Sub Form_Load()　　Me.AutoRedraw = True　　Me.Width = 10000　　Me.Height = 4500　　Dim aa() As dd　　Dim bb() As Long '原始数字的数组　　Dim i, j, k, l, m As Long　　ReDim aa(0)　　k = 100 '随机数个数　　l = 500 '最大随机数　　m = 100 '最小随机数　　ReDim bb(k) As Long　　'生成随机数，存储在bb里面　　Randomize　　For i = 0 To k - 1　　bb(i) = Int(((l - m) * Rnd) + m)　　Next i　　'统计bb里面各个数字出现次数　　For i = 0 To UBound(bb) - 1　　For j = 0 To UBound(aa) - 1　　If aa(j).d1 = bb(i) Then　　aa(j).d2 = aa(j).d2 + 1　　Exit For　　End If　　Next j　　If j >= UBound(aa) Then　　ReDim Preserve aa(j + 1) As dd　　aa(j).d1 = bb(i)　　aa(j).d2 = 1　　End If　　Next i　　'输出出现数字及次数　　Me.Print "数字", "出现次数", "数字", "出现次数", "数字", "出现次数", "数字", "出现次数"　　For i = 0 To UBound(aa) - 1　　Me.Print aa(i).d1, aa(i).d2,　　If i Mod 4 = 3 Then Me.Print '设置输出格式　　Next i　　End Sub　　直接新建exe，复制黏贴就可以运行了