您现在的位置:首页 >> 实验指导 >> 内容

实验五 分支结构

时间:2009-11-16 11:21:40 点击:1327

一、实验目的

 1.掌握单分支结构语句的用法;

2.掌握双分支结构语句的用法;

3.掌握多分支结构语句的用法。

InputBoxMsgBox的使用

二、实验内容

实验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  铁路托运行李,从甲地到乙地,规定每张客标托运费计算方法是:行李重量不超过50公斤时,每公斤0.5元,超过50公斤超过100公斤时,其超过部分每公斤1.5元,超过100公斤时,其超过部分每公斤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

作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4