vb作业
2. 允许用户最多三次密码重试机会,三次不能通过密码检验者,“确定”按扭改为“退出”,用户名输入框和密码输入框都不能接受新的输入;(假定预设密码为:“123456”)
在Form1中编写Command1_Click事件,通过一个静态变量或窗体级变量统计密码输入的次数;如果次数超过3次,将按扭标题改为“退出”并将用户名输入框和密码输入框屏蔽。程序结构如下:
Private Sub Command1_Click()
Static t As Integer
If Command1.Caption = "确定" Then
t = t + 1
If …… Then ’判断密码正确
Me.Hide
Form2.Show
Else
…… '根据t的值(三分支)给出不同的提示和处理
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword)
'以上这三条语句可以将密码框内容自动选中,用户可以方便的进行下一次密码输入
End If
Else
End
End If
End Sub
3. 对于通过密码检验者,调出欢迎窗口:请用定时器控制标签用两个颜色交替显示对该用户的欢迎。 在Form2中引入一个定时器,设计Timer1_Timer事件,闪烁显示对该用户的欢迎。该用户名从Form1中读取:Form1.txtUserName.Text。
说明:
1. 先建立D:\11_2文件夹,分别下载Modify1.bas、Modify2.bas、Modify3.bas、Modify4.bas这几个模块文件文件并进行调试。
2. 可以启动VB,新建"标准EXE工程",将标准模块加入到工程中,再在Form_Click事件过程中去调用标准模块中的相应过程,调试,直至结果正确;
3. 也可以双击标准模块.bas文件,自动启动VB,再添加窗体并将窗体设置为启动对象,再在Form_Click事件过程中去调用标准模块中的相应过程,调试,直至结果正确;
4. 模块调试正确后,对相应的工程文件、窗体文件和模块文件分别按以下规则命名。例如对于Modify1.bas,调试完成后分别保存为Modify1.Vbp、Modify1.frm、Modify1.bas三个文件。
5. 改错题只改标出出错位置的下面那一条语句,不能增删改其他任何语句;
6. 填空题将正确内容覆盖填空位置"----- n -----"即可;
思考题:是否模块文件中的所有过程都必须被调用才能执行?