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

实验报告二

课程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

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

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

PrivateSubTextNo_LostFocus()

IfNotIsNumeric(TextNo)Then

账号有非数字字符账号有非数字字符输入账号输入账号

TextNo.TextNo.T

TextNo.SetFocus

EndIf

EndSub【请将你的典型结果的截图粘贴到下面】

【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）（P42）

①当收入为200元以内（含200元）时，免征；

②当收入为200~400元（含400元）时，将超过200元的部分纳税3%；

③当收入为400~5000元（不含5000元）时，将超过400元的部分纳税4%；

④当收入为5000元或5000