第3章顺序结构程序设计
3．1 下列语句是否有错？若有，请改正。

(1) Let = 17 (2) T1$ = XYZ
(3) L*2 = K + E (4) 1A = 34 , 2A = 66
【答案】
(1) Let x = 17 或 x = 17
(2) T1$ = “XYZ”
(3) L = (K + E)/2
(4) A1 = 34 : A2 = 66
3．2 编一个对三种商品零售计价程序，商品数量由键盘输入。

A商品：每件1.25元
B商品：每件3.12元
C商品：每件11.27元
总计金额 SUM。

【参考答案】
（1）用户界面设计
图3-1 程序运行结果
（2）控件属性设置（略）
（3）程序代码设计
Private Sub Command1_Click()
Sum = 1.25 * Text1.Text + 3.12 * Text2.Text + 11.27 * Text3.Text Text4.Text = Sum
End Sub
程序运行结果如图3-1所示
3．3 小王有存款A元，年利率P，存储时间T年，试编程求本利合计。

【参考答案】
（1）用户界面设计
（2）控件属性设置（略）
（3）程序代码设计
（说明：存款按单利计算）
Private Sub Command1_Click()
a = Text1.Text
p = Text2.Text
t = Text3.Text
a = a + a * p * t
Text4.Text = a
End Sub
程序运行结果如图3-2所示：
图3-2 程序运行结果
3．4 试编写打印下面三角形图案的源程序。

*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Tab(15); "*"
Form1.Print Tab(14); "***"
Form1.Print Tab(13); "*****"
Form1.Print Tab(12); "*******"
Form1.Print Tab(11); "*********"
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "显示星号三角形,单击窗体开始" End Sub
程序运行结果如图3-3所示：
图3-3 程序运行结果
3．5 试编写打印下面图案的源程序。

* * * * * * * *
* *
* *
* *
* *
* * * * * * * *
【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Tab(5); "********"
Form1.Print Tab(6); "*"; Tab(13); "*"
Form1.Print Tab(7); "*"; Tab(14); "*"
Form1.Print Tab(8); "*"; Tab(15); "*"
Form1.Print Tab(9); "*"; Tab(16); "*"
Form1.Print Tab(10); "********"
End Sub
图3-4 程序运行结果
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "显示星号四边形,单击窗体开始" End Sub
程序运行结果如图3-4所示：
3．6 请编写程序，求10000以10为底的对数值。

【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Log(10000) / Log(10)
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "计算以10为底，10000的对数"
Form1.Print "单击窗体开始"
End Sub
图3-5 程序运行结果
程序运行结果如图3-5所示：
3．7 请编写求任意数的平方根的源程序，数由键盘输入。

【参考答案】
程序代码设计
Private Sub Form_Click()
x = Val(InputBox$("输入数据"))
Form1.Print "输入数据为"; x
Form1.Print "平方根为"; Sqr(x)
End Sub
图3-6 程序运行结果
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "求任意数的平方根"
Form1.Print "单击窗体开始"
End Sub
程序运行结果如图3-6所示：
3．8 求任意半径和高的圆柱的表面积。

【参考答案】
（1）用户界面设计
（2）控件属性设置
设置控件属性值如表3-1所示。

表3-1 控件属性设置
对象属性属性值说明
Label1 Caption 请输入圆柱体的数据标签的内容Label2 Caption 半径标签的内容Label3 Caption 高标签的内容Label4 Caption 圆柱体面积标签的内容Text1 Text 文本框的内容Text2 Text 文本框的内容Text3 Text 文本框的内容Command1 Caption 计算圆柱体的面积命令按钮的标题
（3）程序代码设计
Private Sub Command1_Click()
r = Text1.Text
h = Text2.Text
s = 2 * 3.14159 * r * h + 2 * 3.14159 * r * r
Text3.Text = s
End Sub
程序运行结果如图3-7所示。

图3-7 程序运行结果
3．9 编写程序，将摄氏温度转换为华氏温度。

二者之间的关系是：
F = 32 + 1.8C
其中F是华氏温度，C是摄氏温度。

【参考答案】
（1）用户界面设计
（2）控件属性设置
设置控件属性值如表3-2所示。

表3-2 控件属性设置
对象属性属性值说明
Label1 Caption 请输入摄氏温度标签的内容
Text1 Text 文本框的内容
Text2 Text 文本框的内容
Command1 Caption 转换为华氏温度命令按钮的标题
（3）程序代码设计
Private Sub Command1_Click()
C = Text1.Text
Text2.Text = 32 + 1.8 * C
图3-8 程序运行结果
End Sub
程序运行结果如图3-8所示：
3．10 编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。

【参考答案】
（1）用户界面设计
（2）控件属性设置（略）
（3）程序代码设计
Private Sub Command1_Click()
Text1.Text = UCase$(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase$(Text1.Text)
End Sub
程序运行结果如图3-9所示：
图3-9 程序运行结果。