我算是资深的VB程序员了，这个绝对是骗人的。一共就只有几行代码，而且没有一行是有用的。
Private Sub Command1_Click()
Form1.Choice = 1
Hide
Form1.Show
End Sub
Private Sub HScroll1_Change()
Label1 = "现金：" & HScroll1.Value
Label2 = "存款：" & HScroll1.Max - HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_
我算是资深的VB程序员了，这个绝对是骗人的。一共就只有几行代码，而且没有一行是有用的。 Private Sub Command1_Click() Form1.Choice = 1 Hide Form1.Show End Sub Private Sub HScroll1_Change() Label1 = "现金：" & HScroll1.Value Label2 = "存款：" & HScroll1.Max - HScroll1.Value End Sub Private Sub HScroll1_Scroll() HScroll1_
就一个空空的叫银行操作的窗体文件，2个按钮一个拉条，里面3行代码。 区区2KB的大富翁，超出了我的想象，银行操作！不愧是银行操作，把积分全赚了。
一般般，能凑合