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

上机实验—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）运行程序
程序运行后单击窗体，如图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。
表4-1 程序中对象属性设置
对象
名称（Name）
属性
属性值
标签
Label1
Caption
输入一个四位数：
文本框
Text1
Caption
空白
命令按钮
Command1
Caption
反序1
命令按钮
Command2
Caption
反序2
（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 ' 反序输出