实验二 选择、循环结构程序设计(6学时).pdfVIP

实验二选择、循环结构程序设计(6学时)--第1页

实验报告二

课程VB程序设计实验项目选择、循环结构程序设计(6学时)成绩

专业班级2015级经济学四班

姓名杨自然学号201531100361实验日期

实验目的

（1）掌握分支结构（if、ifelse、selectcase）语句

（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句

（3）掌握循环嵌套结构

（4）掌握素数算法

（5）能综合运用循环控制结构解决较复杂的问题

实验内容

一、选择结构程序设计

【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）

（实验教材P39）

要求：

①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。

②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测

试。

③密码输入时，屏幕上不能显示输入字符，以“*”代替。

④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点

定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。

⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。

图3-2密码检验运行界面图3-3输入密码错误信息

掌握简单if语句的使用

实验结果：

1

实验二选择、循环结构程序设计(6学时)--第1页

实验二选择、循环结构程序设计(6学时)--第2页

【请将你的代码粘贴到下面】

PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

EndSub

PrivateSubCommand1_Click()

DimiAsInteger

IfTextpas.Textpas.T

输入正确输入正确

Else

密码错误密码错误输入密码输入密码

Ifi4Then

End

Else

Textpas.Textpas.T

Textpas.SetFocus

EndIf

EndIf

EndSub

PrivateSubCommand3_Click()

End

EndSub

PrivateSubForm_Load()

TextNo.TextNo.T

Textpas.Textpas.T

EndSub

PrivateSubText1_Change()

EndSub

2

实验二选择、循环结构程序设计(6学时)--第2页

实验二选择、循环结构程序设计(6学时)--第3页