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

第3章顺序结构程序设计 3. 1下列语句是否有错？若有，请改正。 ⑵ T1$ = XYZ ⑵ T1$ = XYZ (4) 1A = 34,2A = 66 (3) L*2 = K + E 【答案】 ⑴ Let x ⑴ Let x = 17 或 x = 17 ⑵ 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 图3-1程序运行结果 控件属性设置(略) 程序代码设计 Private Sub Comma nd1_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年，试编程求本利合计。 【参考答案】 用户界面设计 控件属性设置(略) 程序代码设计 (说明：存款按单利计算) Private Sub Comma nd1_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() Forml.Print Tab(15); * Form1.Pri nt Tab(14); *** Form1.Pri nt Tab(13); ***** Forml.Pri nt Tab(12); ******* Forml.Pri nt Tab(11); ********* End Sub Private Sub Form_Load() Forml.AutoRedraw = True Forml.Print 显示星号三角形，单击窗体开始 End Sub 程序运行结果如图 3-3所示： ■i. FormlJn] x] ■i. Forml 显示星号三角形■单击宙体开始 rpL-^^rUrpL i^ 图3-3程序运行结果 3. 5试编写打印下面图案的源程序。 ******** * * * * * * * * ******** 【参考答案】 程序代码设计 Private Sub Form_Click() Forml.Pri nt Tab(5); ******** Forml.Pri nt Tab(6); *; Tab(13); * Forml.Pri nt Tab(7); *; Tab(14); * Forml.Pri nt Tab(8); *; Tab(15); * Forml.Pri nt Tab(9); *; Tab(16); * Forml.Pri nt Tab(10); ******** ForinlEnd Sub Forinl ■I□凶显示星号四边形,单击窗体开始 床 * * + * * * * 图3-4程序运行结果 Private Sub Form_Load() Forml.AutoRedraw = True Forml.Print 显示星号四边形，单击窗体开始 End Sub 程序运行结果如图 3-4所示： 3. 6请编写程序，求 10000以10为底的对数值。 【参考答案】 程序代码设计 Private Sub Form_Click() Forml.Print Log(10000) / Log(10) End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Pri nt Form1.Pri nt End Sub Form1.Pri nt Form1.Pri nt End Sub 计算以10为底，10000的对数 单击窗体开始 N Furml- N Furml -|n| x| 錢麟’皿数 程序运行结果如图图 程序运行结果如图 图3-5程序运行结果 3-5所示： 3. 7请编写求任意数的平方根的源程序，数由键盘输入。 【参考答案】 程序代码设计 Private Sub Form_Click() x = Val(InputBox$(” 输入数据)) Form1.Print 输入数据为;x Form1.Pri nt End Sub 平方根为”