选修VB操作题(打印)讲解.doc

《选修VB操作题(打印)讲解.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、186、举重比赛，60公斤级选手体重不能超过60公斤。修改程序中的(1)(2)(3)，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”，当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。PrivateSubCommand1_Click()DimtAsSingle'定义变量t，值由文本框Text1读入t=(1)If(2)ThenLabel1.Caption="超重！不能参赛！"ElseLabel1.Caption="合格，可以参赛！"(3)EndSub参考答案：(1)val(text1.text)(2)

2、t>60(3)EndIf187、填空完成程序，使得单击"显示"按钮时，Label1、Label2分别显示30，10。'程序代码:PrivateSubCommand1_Click()Dimx,y,tAsIntegerx=10y=30Ifx

3、，在窗体上输出问题答案。PrivateSubForm_Click()DimiAsSingleDimsAsInteger'设s为所求年数,定义为整型,结果由窗体输出i=1'销售收入为1s=0'年数初始值为0DoWhile(1)i=(2)(3)LoopPrint"s=";sEndSub参考答案：(1)i<4(2)i*1.1(3)s=s+1189、填空完成程序，使得当单击"计算"按钮后，在Text1中显示出满足条件2+4+6+…+x<80中最大的x的值。PrivateSubCommand1_Click()DimsAsIntegerDimxAsIntegers=0x=

4、(1)Dox=x+(2)s=s+(3)LoopWhiles<80x=x-2Text1.Text=Str(x)EndSub参考答案：(1)0(2)2(3)x190、填空完成程序:单击"计算5!"按钮后，Text1显示5!的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=(1)Fori=2To(2)a=(3)Next(4)Text1.Text=Str(a)EndSub参考答案：(1)1(2)5(3)a*I(4)i193、使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标

5、是（600，1300），长度为1600，b是a的中垂线，长度为1000(提供的样图与程序画出的图形可能不完全相同)。PrivateSubCommand1_Click()Line(____,_____)-(2200,1300)Line(1400,300)-(____,1300)EndSub参考答案：line(x1,y1)-(x2,y2)就是从起点(x1,y1)开始画到到终点(x2,y2)600,1300第一条语句画水平线a1400第二条语句画垂直线b194、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。填空完成程序，求方程的根

6、。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。PrivateSubCommand1_Click()Dima,b,c,dAsSingleDimx1,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<>0Then'判断a是否等于0d=_______Ifd>=0Then'判断是否有实数根x1=_______x2=(-b-Sqr(d))/(2*a)Label1.Caption=Str(x1)Label2.Caption=Str(x2)ElseLabel3.Caption

7、=_______EndIfEndIf选修操作题讲义·第8页共8页EndSub参考答案(1)b*b-4*a*c或b^2-4*a*c(2)(-b+Sqr(d))/(2*a)(3)"无实数根"195、填空完成程序，求

8、X*X+1(X<=0)y=

9、

10、X*X-x+1X>0)的值。（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）PrivateSubForm_Click()DimxAsSingle'定义x为为单精度型变量,由标准输入对话框输入DimyAsSingle'定义y为单精度型变量,值由窗体显示x=(1)(InputBox("请输入变量x"))

11、Ifx<=0Then(2)Else(3