VB程序设计习题及答案第3章顺序结构程序设计

1、 Let = 17(3) L*2 = K + E【答案】(1) Let x = 17或 x = 17第3章顺序结构程序设计3. 1以下语句是否有错假设有,请改正.(2) T1$ = XYZ(4) 1A = 34,2A = 66(2) T1$ ="XYZ'(3) L = (K + E)/2(4) A1 = 34 : A2 = 66(5) 2编一个对三种商品零售计价程序,商品数量由键盘输入.A商品：每件 1.25元B商品：每件 3.12兀C商品：每件 11.27元总计金额SUM.【参考答案】(1 )用户界面设计图3-1程序运行结果(2)控件属性设置(略)(3)程序代码设计Priv

2、ate Sub Command1_Click()Sum = 1.25 * Text1.Text + 3.12 * Text2.Text + 11.27 * Text3.TextText4.Text = SumEnd Sub程序运行结果如图3-1所示(6) 3小王有存款 A元,年利率 P,存储时间T年,试编程求本利合计.【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计(说明：存款按单利计算)Private Sub Command1_Click()a = Text1.Textp = Text2.Textt = Text3.Texta = a + a * p * tText4

3、.Text = aEnd Sub程序运行结果如图3-2所示:图3-2程序运行结果3. 4试编写打印下面三角形图案的源程序. * * * * * * * * * * * * * * * * * * * * * *【参考答案】程序代码设计Private Sub Form_Click()Forml.Print Tab(15); "*"Form1.Print Tab(14); "*"Form1.Print Tab(13); "*"Form1.Print Tab(12); "*"Form1.Print Tab(11); &q

4、uot;*"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print " 显示星号三角形,单击窗体开始End Sub程序运行结果如图3-3所示：Jn x、Forml显示星号三角定.单击盲体开始*rpL.ffUrpL i图3-3程序运行结果3. 5试编写打印下面图案的源程序.* * * * * * * *【参考答案】程序代码设计Private Sub Form_Click()Forml.Print Tab(5); "*"Form1.Print Tab(6); "*"

5、 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()For

6、m1.AutoRedraw = TrueForm1.Print "显示星号四边形,单击窗体开始End Sub3. 6请编写程序,求 10000以10为底的对数值.【参考答案】程序代码设计Private Sub Form_Click()Forml.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.PrintForm1.PrintEnd Sub计算以10为底,10000的对数" 单击窗体开始,|n| xi看 Form!图3-5程序运行结果程序运行结果如图 3-

7、5所示:3. 7请编写求任意数的平方根的源程序,数由键盘输入.【参考答案】程序代码设计Private Sub Form_Click()x = Val(InputBox$("输入数据")Form1.Print " 输入数据为"xForm1.PrintEnd Sub平方根为"Sqr(x)' Forml求任意豺的平方根单击窗体开始输入数据为9平方根为3图3-6程序运行结果Private Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "求任意数的平方根Form1.Print &qu

8、ot;单击窗体开始 "End Sub程序运行结果如图3-6所示：3. 8求任意半径和高的圆柱的外表积.【参考答案】(1)用户界面设计(2)控件属性设置设置控件属性值如表3-1所示.表3-1控件属性设置对象属性属性值说明Label1Caption请输入圆柱体的数据标签的内容Label2Caption半径标签的内容Label3Caption高标签的内容Label4Caption圆柱体面积标签的内容Text1Text文本框的内容Text2Text文本框的内容Text3Text文本框的内容Command1Caption计算圆柱体的面积命令按钮的标题(3)程序代码设计Private Sub C

9、ommand1_Click()r = Text1.Texth = Text2.Texts = 2 * 3.14159 * r * h + 2 * 3.14159 * r * rText3.Text = sEnd Sub程序运行结果如图3-7所示.图3-7程序运行结果3. 9编写程序,将摄氏温度转换为华氏温度.二者之间的关系是:F = 32 + 1.8C其中F是华氏温度,C是摄氏温度.【参考答案】(1)用户界面设计(2)控件属性设置设置控件属性值如表3-2所示.表3-2控件属性设置对象属性属性值Label1Caption请输入摄氏温度说明标签的内容Text1Text文本框的内容Text2Text文本框的内容Command1Caption转换为华氏温度命令按钮的标题(3)程序代码设计Private Sub Command1_Click()C = Text1.TextText2.Text = 32 + 1.8 * C图3-8程序运行结果End Sub程序运行结果如图3-8所示：3. 10编写程序,在文本框中输入英文字符,单击“大写按钮把英文字符转换为 大写,单击“小写按钮把英文字符转换为小写.【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计Pr