程序和仿真圖！不是很難

一個(gè)引腳做計(jì)數(shù)輸入，令一個(gè)接清零按鈕，再加上6位led顯示

如何用vb制作計(jì)數(shù)器

使用數(shù)組 和 結(jié)構(gòu)體
相應(yīng)的數(shù)據(jù)類型自己看看哪個(gè)最合適就用哪個(gè)，下面的例子全部用long，初始數(shù)據(jù)用100個(gè)隨機(jī)數(shù)

Option Explicit
Private Type dd
d1 As Long '存儲(chǔ)出現(xiàn)的數(shù)
d2 As Long '存儲(chǔ)出現(xiàn)次數(shù)
End Type

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 10000
Me.Height = 4500
Dim aa() As dd
Dim bb() As Long '原始數(shù)字的數(shù)組
Dim i, j, k, l, m As Long
ReDim aa(0)
k = 100 '隨機(jī)數(shù)個(gè)數(shù)
l = 500 '最大隨機(jī)數(shù)
m = 100 '最小隨機(jī)數(shù)
ReDim bb(k) As Long

'生成隨機(jī)數(shù)，存儲(chǔ)在bb里面
Randomize
For i = 0 To k - 1
bb(i) = Int(((l - m) * Rnd) + m)
Next i

'統(tǒng)計(jì)bb里面各個(gè)數(shù)字出現(xiàn)次數(shù)
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

'輸出出現(xiàn)數(shù)字及次數(shù)
Me.Print 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù), 數(shù)字, 出現(xiàn)次數(shù)
For i = 0 To UBound(aa) - 1
Me.Print aa(i).d1, aa(i).d2,
If i Mod 4 = 3 Then Me.Print '設(shè)置輸出格式
Next i
End Sub

直接新建exe，復(fù)制黏貼就可以運(yùn)行了

標(biāo)簽：何用計(jì)數(shù)器制作生產(chǎn)計(jì)數(shù)器