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

PAGE \* MERGEFORMAT16 实 验 报 告 二 课 程VB程序设计实验项目选择、循环结构程序设计(6学时)成 绩专业班级2015级经济学四班姓 名杨自然学 号201531100361实验日期实验目的 （1）掌握分支结构（if、if else、select case）语句 （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语句的使用 实验结果： 【请将你的代码粘贴到下面】 Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Command1_Click() Dim i As Integer If Textpas.Text = majq Then MsgBox 输入正确 Else i = MsgBox(密码错误, 5 + vbExclamation, 输入密码) If i 4 Then End Else Textpas.Text = Textpas.SetFocus End If End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() TextNo.Text = Textpas.Text = End Sub Private Sub Text1_Change() End Sub Private Sub TextNo_LostFocus() If Not IsNumeric(TextNo) Then MsgBox 账号有非数字字符, vbExclamation, 输入账号 TextNo.Text = TextNo.SetFocus End If End Sub【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）（P42） ①当收入为200 元以内（含200元）时，免征； ②当收入为 200 ~ 400 元（含400元）时，将超过 200 元的部分纳税 3% ； ③当收入为 400 ~ 5000元（不含5000元）时，将超过 400 元的部分纳税 4% ； ④当收入为 5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示 ，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 Private Sub Form_Load() Dim x As Integer Dim y As Single Show 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 收入为; x; 应纳税为; y End Sub 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）（10分）（P43）