loading
实 验 报 告 二
实验目的
（1）掌握分支结构（if、if else、select case）语句
（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法
（5）能综合运用循环控制结构解决较复杂的问题
实验内容
一、选择结构程序设计
【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分） 要求：
① 账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。
② 账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。
③ 密码输入时，屏幕上不能显示输入字符，以“*”代替。
④ 当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。
⑤ 密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。
图3-2 密码检验运行界面 图3-3 输入密码错误显示信息
掌握简单if语句的使用
实验结果：
【请将你的代码粘贴到下面】 Private Sub cmdClear_Click() txtNo.Text = \ txtNo.Text = \End Sub
1
Private Sub cmdExit_Click() End End Sub
Private Sub cmdOK_Click() Dim i As Integer
If txtPas.Text = \ MsgBox \输入正确\ Else
i = MsgBox(\密码错误\输入密码\ If i <> 4 Then End Else
txtPas.Text = \ txtPas.SetFocus End If End If End Sub
Private Sub Form_Load() txtNo.Text = \ txtNo.Text = \End Sub
Private Sub txtNo_LostFocus() If Not IsNumeric(txtNo) Then
MsgBox \账号有非数字字符\输入账号\ txtNo.Text = \ '清空
txtNo.SetFocus 'txtno获得焦点
'上面两步是文本框重新输入的惯用操作 End If
2
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征；
②当收入为 200 ~ 400 元（含400元）时，将超过 200 元的部分纳税 3% ； ③当收入为 400 ~ 5000元（不含5000元）时，将超过 400 元的部分纳税 4% ； ④当收入为 5000 元或5000元以上时，将超过400元的部分纳税5% 。
程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示 ，要求
3
纳税程序界面
掌握多分支if语句的使用，可自行用select语句改写。
实验结果：
【请将你的代码粘贴到下面】 Private Sub Form_click() Dim x As Integer Dim y As Single
x = Val(InputBox(\输入收入\ If x <= 200 Then y = 0
ElseIf x <= 400 Then y = (x - 200) * 0.03 ElseIf x < =5000 Then y = (x - 400) * 0.04 Else
y = (x - 400) * 0.05 End If
Print \收入为\应纳税为：\End Sub
【请将你的典型结果的截图粘贴到下面】
4