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

《vb程序设计习题及答案第3章顺序结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3章顺序结构程序设计 3．1下列语句是否有错？若有，请改正。(1)Let=17(2)T1$=XYZ(3)L*2=K+E(4)1A=34,2A=66【答案】(1)Letx=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）程序代码设计PrivateSubCommand1_Click(

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

3、2程序运行结果 3．4试编写打印下面三角形图案的源程序。************************* 【参考答案】程序代码设计PrivateSubForm_Click()Form1.PrintTab(15);"*"Form1.PrintTab(14);"***"Form1.PrintTab(13);"*****"Form1.PrintTab(12);"*******"Form1.PrintTab(11);"*********"EndSub PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.P

4、rint"显示星号三角形,单击窗体开始"EndSub程序运行结果如图3-3所示：图3-3程序运行结果  3．5试编写打印下面图案的源程序。************************ 【参考答案】程序代码设计PrivateSubForm_Click()Form1.PrintTab(5);"********"Form1.PrintTab(6);"*";Tab(13);"*"Form1.PrintTab(7);"*";Tab(14);"*"Form1.PrintTab(8);"*";Tab(15);"*"Form1.PrintTab(9);"

5、*";Tab(16);"*"Form1.PrintTab(10);"********"EndSub 图3-4程序运行结果PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"显示星号四边形,单击窗体开始"EndSub程序运行结果如图3-4所示：  3．6请编写程序，求10000以10为底的对数值。【参考答案】程序代码设计PrivateSubForm_Click()Form1.PrintLog(10000)/Log(10)EndSub PrivateSubForm_Load()Form1.A

6、utoRedraw=TrueForm1.Print"计算以10为底，10000的对数"Form1.Print"单击窗体开始"EndSub图3-5程序运行结果程序运行结果如图3-5所示：  3．7请编写求任意数的平方根的源程序，数由键盘输入。【参考答案】程序代码设计PrivateSubForm_Click()x=Val(InputBox$("输入数据"))Form1.Print"输入数据为";xForm1.Print"平方根为";Sqr(x)EndSub图3-6程序运行结果 PrivateSubForm_Load()Form1.AutoRedr

7、aw=TrueForm1.Print"求任意数的平方根"Form1.Print"单击窗体开始"EndSub程序运行结果如图3-6所示： 3．8求任意半径和高的圆柱的表面积。【参考答案】（1）用户界面设计（2）控件属性设置设置控件属性值如表3-1所示。表3-1控件属性设置对象属性属性值说明Label1Caption请输入圆柱体的数据标签的内容Label2Caption半径标签的内容Label3Caption高标签的内容Label4Caption圆柱体面积标签的内容Text1Text 文本框的内容Text2Text 文本框的内容Text3Text

8、 文本框的内容Command1Caption计算圆柱体的面积命令按钮的标题 （3）程序代码设计PrivateSubCommand1_Click()r=Text1.T