怎么用VB编一个进行细胞计数的程序？

来源：百度知道 编辑：UC知道 时间：2024/09/18 04:01:05
用来计数细胞的程序，比如说有ABCD四种细胞，在键盘上按一下A键A细胞数增加1，到最后结束了输出ABCD各有多少个，每种占总数的百分比，万分感谢各位~！

终于写好了~
在Form1中放4个Label，分别是Label1,Label2……
代码如下，请放到窗体代码中：

Dim all As Integer, a As Integer, b As Integer, c As Integer, d As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97 'A
a = a + 1
all = all + 1
Call upgrade
Case 98 'B
b = b + 1
all = all + 1
Call upgrade
Case 99 'C
c = c + 1
all = all + 1
Call upgrade
Case 100 'D
d = d + 1
all = all + 1
Call upgrade
End Select
End Sub

Private Sub Form_Load()
a = 0
b = 0
c = 0
d = 0
all = 0
Label1.Caption = "A 总共有" & a
Label2.Caption = "B 总共有" & b
Label3.Caption = "C 总共有" & c
Label4.Caption = "D 总共有" & d
End Sub

Public Sub upgrade()
Label1.Caption = "A 总共有" & a & ",占总数" & a / all * 100 & "%"
Label2.