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

第3章 顺序结构程序设计31 下列语句是否有错？若有，请改正。(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 = 6632 编一个对三种商品零售计价程序，商品数量由键盘输入。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 = SumEnd Sub程序运行结果如图3-1所示33 小王有存款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 = aEnd Sub程序运行结果如图3-2所示：图3-2 程序运行结果34 试编写打印下面三角形图案的源程序。 * * * * * * * * * * * * * * * * * * * * * * * * * 【参考答案】程序代码设计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 SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 显示星号三角形,单击窗体开始End Sub程序运行结果如图3-3所示：图3-3 程序运行结果35 试编写打印下面图案的源程序。 * * * * * * * * * * * * * * * * * * * * * * * * 【参考答案】程序代码设计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所示：36 请编写程序，求10000以10为底的对数值。【参考答案】程序代码设计Private Sub Form_Click() Form1.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print 计算以10为底，10000的对数 Form1.Print 单击窗体开始End Sub图3-5 程序运行结果程序运行结果如图3-5所示：37 请编写求任意数的平方根的源程序，数由键盘输入。【参考答案】程序代码设计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所示：38 求任意半径和高的圆柱的表面积。【参考答案】（1）用户界面设计（2）控件属性设置设置控件属性值如表3-1所示。表3-1 控件属性设置对象属性属性值说明Label1Caption请输入圆柱体的数据标签的内容Label2Caption半径标签的内容Label3Caption高标签的内容Label4Caption圆柱体面积标签的内容Text1Text文本框的内容Text2Text文本框的内容Text3Text文本框的内容Command1Caption计算圆柱体的面积命令按钮的标题（3）程序代码设计Private Sub Command1_Click() r = Text1.Text h = Text2.Text s = 2 * 3.14159 * r * h + 2 * 3.14159 * r * r Text3.Text = sEnd Sub程序运行结果如图3-7所示。图3-7 程序运行结果39 编写程序，将摄氏温度转换为华氏温度。二者之间的关系是：F = 32 + 1.8C其中F是华氏温度，C是摄氏温度。【参考答案】（1）用户界面设计（2）控件属性设置设置控件属性值如表3-2所示。表3-2 控件属性设置对象属性属性值说明Label1Caption请输入摄氏温度标签的内容Text1Text文本框的内容Text2Text文本框的内容Command1Caption转换为华氏温度命令按钮的标题（3）程序代码设计Private Sub Command1_Click() C = Text1.Text Text2.Text = 32 + 1.8 * CEnd Sub图3-8 程序运行结果程序运行结果如图3-8所示：310 编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Comman