实验三 顺序及选择结构程序设计

实验三顺序及选择结构程序设计

一、实验目的

1、掌握顺序结构程序的设计方法。

2、掌握赋值语句、注释语句、InputBox()函数、MsgBox语句与函数的使用方法。

3、掌握Print方法、Tab函数、字体类型、打印机输出的使用。

4、掌握简单块If语句、多分支块If语句、行If语句、IIf()函数的使用。

5、掌握情况语句（Select Case）的使用。

二、实验内容

要求：实验一、实验二中选做一个，实验三、实验四中选做一个

1、实验一。

2、实验二。

3、实验三。

4、实验四。

三、实验指导

1、实验一。

用InputBox()函数输入弧度值，将弧度值转换为角度值（度、分、秒）的形式，然后在窗体上打印出来。

【提示】利用InputBox()函数输入弧度值后，首先把弧度值转换为原始角度值，然后取整，结果就为角度值中的度值，然后把原始角度值减去度值，把结果转化为分值，采用类似思维即可求出结果。

【参考代码】

Private Sub Cmd1_Click()

Dim s As Single, a As Integer, b As Integer, c As Integer

Const pi As Single = 3.14159

s = Val(InputBox("请输入弧度值:"))

s = s * 180 / pi

a = Int(s)

s = s - a

s = s * 60

b = Int(s)

s = s - b

c = s * 60

Print "对应的角度值为:"; a & "度" & b & "分" & c & "秒。"

End Sub

程序运行界面如图4.1所示。

图4.1程序运行界面

2、实验二。

所谓“水仙花数”是指一个三位数，其各位数的立方和等于该数，如：

153=13+53+33

利用InputBox()函数输入一个三位的整数，判断其是否为水仙花数。

【提示】利用InputBox()函数输入一个三位的整数赋值给一个变量，分别求出其百位、十位、个位数字，之后进行判断（用块IF语句），所以代码应该写在命令按钮的单击事件中，在取三位数的个位、十位、百位时，可以使用整除法（bw = n \ 100），也可以使用取整法（bw = Int(n / 100)）来编写。

【参考代码】

Private Sub Cmd1_Click()

Dim n As Integer, gw As Integer, sw As Integer, bw As Integer

n = InputBox("请输入一个三位数:")

bw = n \ 100

sw = (n - bw * 100) \ 10

gw = n - bw * 100 - sw * 10

If gw ^ 3 + sw ^ 3 + bw ^ 3 = n Then

Print n; "是水仙花数。"

Else

Print n; "不是水仙花数。"

End If

End Sub

程序运行界面如图4.2所示：

图4.2 程序运行界面

3、实验三。

编写程序，为航空公司计算票价的优惠率，假设优惠率规定如下：

①在旅游旺季7~9月份，如果订票数超过20张，票价优惠15%；20张以下，优惠5%。

②在旅游淡季1~5月份、10月份和十一月份，如果订票数超过20张，票价优惠30%；20张以下，优惠20%。

③其它情况一律优惠10%。

根据月份和订票张数决定票价的优惠率。

【提示】本例有两重条件，所以用嵌套实现，首先判断月份，在月份确定的情况下判断订票张数，代码应该写在命令按钮的单击事件中。

【参考代码】

Private Sub Cmd1_Click()

Dim m As Integer, n As Integer, r As Integer

m = Val(Text1.Text)

n = Val(Text2.Text)

Select Case m

Case 7 To 9

If n < 20 Then r = 5 Else r = 15

Case Is < 5, 10, 11

If n < 20 Then r = 20 Else r = 30

Case Else

r = 10

End Select

Label4.Caption = "所订机票的优惠率为:" & r & "%"

End Sub

运行界面如图4.3所示。

图4.3 程序运行界面

4、实验四。

编写程序，在窗体上添加两个框架（Frame）控件，在其中各自添加2个两个单选按钮，标题属性如下，根据选中情况在文本框内显示结果。

【提示】单选按钮是否被选中的状态用Value来表示，当单选按钮被选中用语句：单选按钮. Value=True来表示，可以使用各种选择语句来实现。

【参考代码】

Private Sub Cmd1_Click()

'方法1，用并行ElseIf语句。

If Opt1.V alue = True And Opt3.Value = True Then

Text1.Text = "我是" & Opt1.Caption & Opt3.Caption

ElseIf Opt1.Value = True And Opt4.Value = True Then

Text1.Text = "我是" & Opt1.Caption & Opt4.Caption

ElseIf Opt2.Value = True And Opt3.Value = True Then

Text1.Text = "我是" & Opt2.Caption & Opt3.Caption

ElseIf Opt2.Value = True And Opt4.Value = True Then

Text1.Text = "我是" & Opt2.Caption & Opt4.Caption

End If

End Sub