1、1实验三 选择结构程序设计（4 个学时）一 、实验目的1. 掌握逻辑表达式的正确书写方法。2. 掌握单分支和双分支语句的使用。3. 掌握多条件多分支选择结构的使用二 、实验内容1. 设计一个程序将三个数进行按从大到小的顺序排列。 要求：用 InputBox 函数分别输入三个整数，将结果显示在窗体上。1）代码设计如下Private Sub Form_click()Dim a As Integer, b As Integer, c As Integer, t As Integera = InputBox(“请输入第 1 个数“)b = InputBox(“请输入第 2 个数 “)c = Input
2、Box(“请输入第 3 个数“)If a b And a c ThenIf c b Thent = b: b = c: c = tEnd IfEnd IfIf b a And b c ThenIf a c Thent = a: a = b: b = tElset = a: a = b: b = c: c = tEnd IfEnd IfIf c a And c b ThenIf b a Thent = a: a = c: c = dElset = b: b = a: a = c: c = tEnd IfEnd IfPrint “三个数由大到小的顺序是“; a; “; b; “; cEnd Sub
3、22）运行后的结果 （将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）1、在比较时用到一个变量作为介质帮助他们转换数字2、t=a a=b b=t t 为介质2设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。3要求该程序可反复输入。 1) 代码设计如下：Private Sub Command1_Click()If Val(Text1) Mod 2 = 0 ThenLabel1.Caption = “输入的数为偶数“ElseLabel1.Caption = “输入的数为奇数“End IfEnd SubPrivate Sub
4、Command2_Click()Text1.Text = “ “End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_Change()End Sub2）运行结果（将运行后的界面截下来粘贴在下面）42) 调试过程记录（错误情况及改正方法，不得少于三条）1、从文本中的数值对变量赋值方式 VAL(text1)2、判断语句使用 if then3、Text1.SetFocus setfocus 来决定光标位置3)3. 设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。 （建议用 Els
5、eIf 语句编程）商场对售货员的奖励机制如下：若销售额大于或等于 20 000 元，则提取 10%作为奖励；若销售额大于或等于 15 000 元小于 20 000 元则提取 8%作为奖励；若销售额大于或等于 10 000 元小于15 000 元则提取 6%作为奖励；若销售额小于或等于 10 000 元，则提取 5%作为奖励。1）代码设计Private Sub Command1_Click()Dim n As Single, b As Singlen = Val(Text1)Select Case nCase Is = 2000b = n * 0.1Case Is = 1500b = n * 0.08Case Is = 1000b = n * 0.06Case Elseb = n * 0.05End SelectLabel2.Caption = “本月该职工的奖金为“ xPrint “对应的成绩的等级是:“; yEnd Sub2）将输入 78 分时，程序运行的结果图截下粘贴在下面。3）调试过程记录（错误情况及改正方法，不得少于三条）1、Select case 与 ifelse 区别2、MsgBox “ 必须输入 0100 之间的整数！“ & Chr(13) & “单击回车后重新输入“, vbCritical3、Msgbox 的表示方法 msgbox”不写入= 用& 连接7
