一、实验目的
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