VB程序设计 习题及答案第3章 顺序结构程序设计
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第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 求任意半径和高的圆柱的表面积。