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

上机实验—2012.3.27
实训教程
P12【实训3-3】
P17【实训4-1】
P18【实训4-2】
教材
【例4-2】设计一个用户名和密码的检验程序。

要求：用户名不超过6位字符，密码不超过18位。

如果输入错误，允许重新输入。

密码输入时字符以“*”代替。

若输入的密码有误，弹出提示信息。

如果选择“重试”则允许再次输入；选择“取消”按钮则程序停止运行。

假设用户名为：admin，密码为：yyyy。

界面设计：
对象属性设置：
对象名称属性属性值
窗体form1caption用户信息验证
caption用户名
标签label1
font黑体，小四
caption密码
标签label2
font黑体，小四
文本框Text1,text2text空
命令按钮cd1caption确定
参考代码：
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 程序中对象属性设置
（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）运行程序
程序运行后单击窗体，如图4-1所示，在弹出的对话框中输入半径5，单击确定按钮，
则窗体上显示如图4-2所示的结果。

【实验4-2】编写程序将一个4位整数反序输出。

要求：采用InputBox函数输入这个4位整数，反序后的结果显示在窗体上。

（1）分析
该程序的算法一般可有如下两种：
①利用Mod函数和“＼”运算依次分离出该4位整数的千位、百位、十位和个位数字给4个变量，再重新将这4个变量组合成反序的4位数即可。

②将这个4位数转换为字符串来处理。

利用Left、Right和Mid函数取它的各位字符，最后将取出的字符用字符连接符“＆”重新组合成反序字符串。

（2）界面设计
建立应用程序界面，在窗体上添加1个标签和1个文本框，文本框用于输入一个4位整数，反序后的数值利用Print方法直接显示在窗体上。

注意标签和文本框的位置要稍微偏下，留出窗体显示的位置。

另外设计两个按钮，分别采用算法l和算法2来解决反序的问题。

窗体如图4-3所示。

（2）设置对象属性
对象属性设置见表4-1。

（3）编写程序代码
Private sub Command1_Click()
Dim m As Integer,n As Integer
Dim a As Integer,b As Integer,c As Integer,d As Integer
m=Val(Text1)
a=m\1000 ' 取千位数
b=(m-a*1000)\100 ' 取百位数
c=(m-a*1000-b*100)\10 ' 取十位数
d=m Mod 10 ' 取个位数
Print d*1000+c*100+b*10+a ' 反序输出
End Sub
Private Sub Command2_C1ick()
Dim n As String
Dim a As String,b As String,c As String,d As String
n=Trim(Text1)
a=Left(n,1) ' 取千位数
b=Mid(n,2,1) ' 取百位数
C=Mid(n,3,1) ' 取十位数
d=Right(n,1) ' 取个位数
Print d ＆c ＆b ＆a ' 反序输出。