第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 程序运行结果。