一、实验目的
1.掌握单分支结构语句的用法；
2.掌握双分支结构语句的用法；
3.掌握多分支结构语句的用法。
InputBox与MsgBox的使用
二、实验内容
实验5.1编程将输入的三个数从小到大依次显示出来。
[提示]
1. 新建工程文件“实验5.1.vbp”，在其中新建窗体form1，并在上面添加一个按钮控件command1，其caption属性内容为“输入并排序”，再添加一个标签label1，界面如图17所示：
图17 程序界面
2.在单击command1按钮的事件过程中添加代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("输入", "输入第一个数"))
b = Val(InputBox("输入", "输入第二个数"))
c = Val(InputBox("输入", "输入第三个数"))
If a < b Then
t = a
a = b
b = t
End If
If a < c Then
t = a
a = c
c = t
End If
If b < c Then
t = b
b = c
c = t
End If
Label1.Caption = "从小到大的三个数是：" & c & "、" & b & "、" & a
End Sub
实验5.2 铁路托运行李，从甲地到乙地，规定每张客标托运费计算方法是:行李重量不超过
[提示]
1.先分析计算托运费用的公式。
设行李重量为W公斤，应付运费为X元，则运费公式为：
当W <=50 时，则 X=0.5*W
当 50 < W <=100 时，则 X=05*50+1.5*（W-50）
当 W > 100 时，则X=0.5*50+1.5*50+（W-100）
2. 新建工程文件“实验5.2.vbp”，在其中新建窗体form1，并在上面添加一个按钮控件，其caption属性设为“计算费用”，再添加一个文本框text1，界面如图18所示：
图18 程序界面
3.在单击按钮相应的事件过程中添加代码。
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "您输入的不是数值数据"
Else
w = Val(Text1.Text)
If w <= 50 Then
x = 0.5 * w
Else
If w <= 100 Then
x = 0.5 * 50 + 1.5 * (w - 50)
Else
x = 0.5 * 50 + 1.5 * 50 + 2 * (w - 100)
End If
End If
MsgBox "行李的托运费是：" & x & "元", , "计算行李费"
End If
End Sub
运行时如果输入85，则单击“计算费用”按钮后可显示图19所示的计算结果：
图19 运行结果
实验5.3 编写程序，从键盘输入符号，若输入的是大写字母，则要求将其转为小写字母，若输入的是小写字母，则要求将其转为大写字母，若输入的是数字符号，则转换成相应的中文“一”、“二”……等，输入其它符号，则转换成“*”。
[提示]
1.新建工程文件“实验5.3.vbp”，在其中新建窗体form1，并在上面添加一个按钮控件，其caption属性设为“转换”，界面如图20所示：
图20 程序界面
2.在单击按钮相应的事件过程中添加代码。
Private Sub Command1_Click()
Dim a As Variant
a = Array("零", "一", "二", "三", "四", "五", "六", _
"七", "八", "九", "十")
c = InputBox("请输入一个字符：", "输入")
Select Case c
Case "a" To "z"
MsgBox "转换成：" & UCase(c)
Case "A" To "Z"
MsgBox "转换成：" & LCase(c)
Case "0" To "9"
MsgBox "转换成：" & a(Asc(c) - Asc("0"))
Case Else
MsgBox "转换成：" & "*"
End Select
End Sub