我自制的一款统计分类软件，图形界面。 [复制链接]

//学习分享，仅仅用到几个函数。我用win平板电脑做的。感谢大学学校教育和网络教育。图片发布了。


Event Form1.Button1.Click
s = s + "A"
Form1.InputBox1.Text=s
End Event
Event Form1.Button2.Click
s = s + "B"
Form1.InputBox1.Text=s
End Event
Event Form1.Button3.Click
s = s + "C"
Form1.InputBox1.Text=s
End Event
Event Form1.Button4.Click
s = s + "D"
Form1.InputBox1.Text=s
End Event
Event Form1.Button5.Click
s = s + "E"
Form1.InputBox1.Text=s
End Event
Event Form1.InputBox1.Change
Form1.Label1.Caption="累计总数："+CStr(Len(s))+"。A的数量为："+CStr(Len(s)-Len(Replace(s,"A","")))+",B的数量为："+CStr(Len(s)-Len(Replace(s,"B","")))+",C的数量为："+CStr(Len(s)-Len(Replace(s,"C","")))+",D的数量为："+CStr(Len(s)-Len(Replace(s,"D","")))+",E的数量为："+Cstr(Len(s)-Len(Replace(s,"E","")))+"。"
End Event
//字符串s，s的长度代表总票数。
Dim s,m
s = ""
m = ""