VB实验2

实 验 报 告 二

实验目的

（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