vb期末实验作业---自动存取款机程序编写

《vb期末实验作业---自动存取款机程序编写》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Form1（登录界面）Dimt%PrivateSubCommand1_Click()StaticnAsIntegerDimi%Open"c:account.dat"ForRandomAs#1Len=Len(s)Fori=1ToLOF(1)/Len(s)Get#1,i,sIfTrim(Text1)=Trim(s.account)AndTrim(Text2)=Trim(s.password)ThenForm1.HideForm2.ShowTimer2.Enabled=FalseElseMsgBox"密码或账号错误，错

2、误三次该账号不能使用",0,"注意"n=n+1Ifn=3ThenMsgBox"密码错误三次，账号停用",0,"提示":EndEndIfExitForNextiClose#1t=60Text1=""Text2=""EndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubForm_Load()t=60EndSubPrivateSubTimer1_Timer()RandomizeLabel3.ForeColor=RGB(Int(Rnd*256+0),

3、Int(Rnd*256+0),Int(Rnd*256+0))EndSubPrivateSubTimer2_Timer()t=t-1Label4.Caption="剩余时间:"&t&"秒"Ift=0ThenMsgBox"操作超时",0,"BankofSWU"Text1=""Text2=""t=180Form1.HideForm8.ShowTimer2.Enabled=FalseEndIfEndSubForm2（操作界面）Dimt%PrivateSubCommand1_Click()Form2.HideForm3.Sh

4、owt=180Timer1.Enabled=FalseForm3.Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Form2.HideForm4.Showt=180Timer1.Enabled=FalseForm4.Timer1.Enabled=TrueEndSubPrivateSubCommand3_Click()Form2.HideForm5.Showt=180Timer1.Enabled=FalseForm5.Timer1.Enabled=TrueEndS

5、ubPrivateSubCommand4_Click()Form2.HideForm6.Showt=180Timer1.Enabled=FalseForm6.Timer1.Enabled=TrueEndSubPrivateSubCommand5_Click()Form2.HideForm7.Showt=180Timer1.Enabled=FalseForm7.Timer1.Enabled=TrueEndSubPrivateSubCommand6_Click()MsgBox"是否打印凭条",1,"提示"Form2.H

6、ideForm9.Showt=180Timer1.Enabled=FalseForm1.Timer2.Enabled=TrueEndSubPrivateSubForm_Load()t=180EndSubPrivateSubTimer1_Timer()t=t-1Label2.Caption="剩余时间:"&t&"秒"Ift=0ThenMsgBox"操作超时",0,"BankofSWU"Form2.HideForm1.ShowEndIfEndSubForm3（取钱）PrivateSubCommand1_Click()T

7、ext1=""Text1=100EndSubPrivateSubCommand2_Click()Text1=""Text1=500EndSubPrivateSubCommand3_Click()Text1=""Text1=1000EndSubPrivateSubCommand4_Click()IfVal(Text1)>s.moneyThenMsgBox"余额不足",0,"提示"ElseOpen"c:account.dat"ForRandomAs#1Len=Len(s)s.money=s.money-Val(Tex

8、t1)Close#1EndIfText1=""MsgBox"取款成功",0,"提示"EndSubPrivateSubCommand5_Click()Text1=""Text1=1500EndSubPrivateSubCommand6_Click()Text1=""Text1=2000EndSubPrivateSubCommand7_Click()Form3.