程序和仿真圖！不是很難

一個引腳做計數輸入，令一個接清零按鈕，再加上6位led顯示

如何用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，復制黏貼就可以運行了

標簽：何用計數器制作生產計數器