VB中密码的代码与按钮的控件.docVIP

上机实验—2012.3.27 实训教程 P12【实训3-3】 P17【实训4-1】 P18【实训4-2】 教材 【例4-2】 要求：用户名不超过6位字符，密码不超过18位。如果输入错误，允许重新输入。密码输入时字符以“*”代替。若输入的密码有误，弹出提示信息。如果选择“重试”则允许再次输入；选择“取消”按钮则程序停止运行。假设用户名为：admin，密码为：yyyy。 界面设计： 对象属性设置： 对象 名称 属性 属性值 窗体 form1 caption 用户信息验证 标签 label1 caption 用户名 font 黑体，小四 标签 label2 caption 密码 font 黑体，小四 文本框 Text1,text2 text 空 命令按钮 cd1 caption 确定 参考代码： Private Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 18 Text2.PasswordChar = * End Sub Private Sub Text1_LostFocus() If Text1.Text admin Then MsgBox 用户名错误！, vbExclamation, 输入用户名 Text1.Text = Text1.SetFocus End If End Sub Private Sub Cd1_Click() Dim I As Integer If Text2.Text yyyy Then I = MsgBox(密码错误, vbRetryCancel + vbExclamation, 输入密码) If I=4 Then 返回值为4时，表明按下的是重试按钮 Text2.Text = Text2.SetFocus Else End End If End If If Text2.Text = yyyy Then Print 欢迎使用本系统！ Text1.Visible = False Text2.Visible = False Label1.Visible = False Label2.Visible = False Cd1.Visible = False End If End Sub 【实验3-3】利用命令按钮、文本框和标签判断口令是否正确。 （1）界面设计 建立应用程序界面。在窗体上添加2个标签、1个文本框和2个命令按钮，注意调整各个控件的大小和位置。界面设计如图3-4所示。 （2）设置对象属性 在窗体中选择各个控件，在属性窗口中设置它们的属性。属性设置见表3-2。 表3-2 程序中对象属性设置 对象 名称（Name） 属性 标题（Caption） 窗体 Forml Caption 欢迎光临 标签 Label1 Caption 请输入口令 标签 Label2 Caption 空白 文本框 Text1 Caption 空白 MaxLength 16 PasswordChar * 命令按钮 Command1 Caption 确定 命令按钮 Command2 Caption 取消 （3）编写程序代码 Private Sub Command1_Click( ) If Text1.Text=everyone Then Label2.Caption=大家好，欢迎使用本系统! Else Label2.Caption=口令错误!请重新输入口令! End If End Sub Private Sub Command2_Click() End End Sub （4）运行程序 运行程序，若在文本框中输入正确的口令，单击“确定”按钮后，会在标签中显示“大家好，欢迎使用本系统!”。若在文本框中输入错误的口令，则在标签中显示“口令错误!请重新输入口令！”。运行结果如图3-5所示。 【实验4-1】设计一个计算圆面积的程序。要求：利用InputBox函数输入圆的半径，利用MsgBox函数显示最后的计算结果。 （1）程序设计 Private Sub Form_click() Dim r As Single，s As Single r=val(InputBox(请输入半径：,输入)) s=3.1415 * r* r MsgBox 圆面积为 ＆ Str(s),vbInformation+vbOKOnly, 计算结果 End Sub （2）运行程序 程序运行后单击窗体，如