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

第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）用户界面设计 ? （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．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．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 ? 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．7 请编写求任意数的平方根的源程序，