VB实验---选择结构的应用.docVIP

VB实验报告 第三次实验 实验C-----选择结构 09信管班 李莎 200918104015 2012/3/21 实验一： 一、实验题目：计算按对应折扣支付的金额 二、实验目的：掌握多边if语句的正确使用 三、实验步骤：①在窗体中添加一个命令按钮，将按钮的名称改为“输入价格”； ②编写程序代码，具体如下： Private Sub Command1_Click() Dim x!, y! x = Val(InputBox(输入x的值)) If x 1000 Then y = x ElseIf x 2000 And x = 1000 Then y = 0.9 * x ElseIf x 3000 And x = 2000 Then y = 0.8 * x ElseIf x = 3000 Then y = 0.7 * x End If Print 应付折扣后金额为： y End Sub 四、实验结果（如下图）： ① ②  实验三： 实验题目：按从小到大的次序显示输入的三个数字 实验目的：①掌握单边或嵌套if语句的使用； ②三个数一定要存放在数值型变量中，否则作为字符串比较，不能得到正确的结果； ③三个数排序，只能通过两两比较，方法1，可以用三条单分支的if语句来实现；方法2，可用一条单分支if语句和一句嵌套的if语句实现。本题我采用方法1 实现。 实验步骤：①在窗体中添加一个命令按钮，将按钮的名称改为“输入与排序”； ②编写程序代码，具体如下： Private Sub Command1_Click() Dim x!, y!, z! x = InputBox(input x) y = InputBox(input y) z = InputBox(intput z) Print x y z Print 排序前; x; ; y; ; z If x y Then t = x: x = y: y = t If x z Then t = x: x = z: z = t If y z Then t = y: y = z: z = t Print 排序后 x y z End Sub 实验结果（如下图）： ① ② ③ ④ 实验五： 实验题目：输入只、脚数，显示鸡、兔数 实验目的：掌握if语句的使用，分析解题中出现的可能情况，避免出现不合理的结果， 提高解决问题的能力。 实验步骤：①在窗体中添加四个标签和四个文本框； ②编写程序代码，具体如下： Private Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 0 Then MsgBox (脚数必定为偶数！) Text2 = Text2.SetFocus Else y = n / 2 - m If y 0 Then MsgBox (脚数必须=只数的2倍，请重新出入！) Text2 = Text2.SetFocus Else x = m - y Text3 = x Text4 = y End If End If End Sub 实验结果（如下图）： 实验八： 一、实验题目：通过select语句和choose函数两种方法用英文显示对应的星期 二、实验目的：掌握对select语句和choose函数的应用 三、实验步骤：①在窗体中添加一个标签、一个命令按钮和一个文本框； ②编写程序代码，具体代码为： 通过select语句编写的代码如下： Private Sub Command1_Click() Select Case Trim(Text1) Case 1 MsgBox (Monday) Case 2 MsgBox (Tuesday) Case 3 MsgBox (Wendesday) Case 4 MsgBox (Thursday) Case 5 MsgBox (Friday) Case 6 MsgBox (Saturday) Case 7 MsgBox (Sunday) End Select End Sub 运行结果为： 运用choose函数编写的程序代码为： Private Sub form_click() Dim n As Integer n = InputBox(请输入:)