实验三 选择结构程序设计72717new.docVIP

实验三 选择结构程序设计（4个学时） 一 、实验目的 掌握逻辑表达式的正确书写方法。 掌握单分支和双分支语句的使用。 掌握多条件多分支选择结构的使用 二 、实验内容 1. 设计一个程序将三个数进行按从大到小的顺序排列。 要求：用InputBox 函数分别输入三个整数，将结果显示在窗体上。 1）代码设计如下 Private Sub Form_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox(请输入a的值, 输入a, ) b = InputBox(请输入b的值, 输入b, ) c = InputBox(请输入c的值, 输入c, ) If a = b Then If a = c Then If b = c Then Print a; b; c Else Print a; c; b End If Else Print c; a; b End If Else If b = c Then If a = c Then Print b; a; c Else Print b; c; a End If Else Print c; b; a End If End If End Sub 2）运行后的结果 （将运行结果的界面截下来粘贴在下面） 3）调试过程记录（错误情况及改正方法，不得少于三条） 对if then 结构掌握不牢固，忘记书写end if，以及包含问题思路不是很清晰 2．设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。 要求该程序可反复输入。 代码设计如下： Private Sub Command1_Click() If n Mod 2 = 0 Then Label1.Caption = 偶数 Else Label1.Caption = 奇数 End If End Sub Private Sub Form_Load() n = InputBox(请输入一个整数, 输入, ) Label2.Caption = 您输入的数字是： End Sub 2）运行结果（（将运行后的界面截下来粘贴在下面） 调试过程记录（错误情况及改正方法，不得少于三条） 3. 设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。（建议用ElseIf语句编程） 商场对售货员的奖励机制如下：若销售额大于或等于20 000元，则提取10%作为奖励；若销售额大于或等于15 000元小于20 000元则提取8%作为奖励；若销售额大于或等于10 000元小于15 000元则提取6%作为奖励；若销售额小于或等于10 000元，则提取5%作为奖励。 1）代码设计 Private Sub Command1_Click() s = Val(Text1.Text) Select Case s Case Is = 20000 m = 0.1 Case 15000 To 19999 m = 0.08 Case 10000 To 14999 m = 0.06 Case Is 10000 m = 0.05 End Select x = s * m Text2.Text = x End Sub 2）运行后的结果 （将运行结果的界面截下来粘贴在下面） 3）调试过程记录（错误情况及改正方法，不得少于三条） @1：Case 后不能用and来限定范围，只能用to 表是有限范围 @2：select case 代码语句要写在command click 下 4. 编写一个程序，将分数转换成等级。要求用InputBox函数输入一个百分制成绩，在窗体上输出不及格（小于60分）、及格（大于等于60分小于75分）、良好（大于等于75分小于90分）和优秀（90分以上）。如果输入的成绩小于0或大于100， 则用MsgBox提示错误并重新输入。 （建议用、Select Case语句编程） 1）代码设计 Private Sub Form_Load() Show n = InputBox(please enter the students grade:, input, 0) If n 60 Then Print 不