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 ' 反序输出