完善程序题(20道)

《完善程序题(20道)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、完善程序（共20道题）1.实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。PrivateSubCommand1_Click()Dima,b,c,maxAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa>bThenmax=aElse①Ifc>maxThen②Label3.Caption=CStr(max)EndSub答案：①max=b②max=c2.计算s=5+10+15+20的和s=①For

2、n=5to20step②s=s+nnextnprints答案：①0②53.计算1-100之间偶数的积s=①Forn=100to1step②s=s*nnextnprints答案：①1②-24.某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。实现功能：输入购买的苹果公斤数，输出应付款。PrivateSubCommand1_Click()DimxAsSingleDimcostAsSinglex=Val(InputBox("请输入苹果公斤数："))Ifx①Thencost=x*6.8Elsecost=x*6.8*0.

3、8②PrintcostEndSub答案：①<=2②endif5.用DOWHILE循环求s=1+2+3+……+100的和I=0S=0DoWhileI<100I=①S=S+1②Prints答案：①I+1②loop6.用DOWHILE循环求s=5*4*3*2*1的积I=5S=①DoWhileI>=1S=S*II=②loopPrints答案：①1②I-17.设计一个程序，单击按钮Command1时，让标签label1的字体为幼圆，字号36号字，label1上显示“祝同学们考试顺利”。PrivateSubCommand1_Click()Label1.①=“

4、幼圆”Label1.fontsize=36Label1.②=“祝同学们考试顺利”EndSub答案：①FontName②caption8.设计程序，窗体包含3个文本框Text1,Text2,Text3,当录入Text1内容时，Text2等于Text1内容的大写，Text3等于Text1内容的小写。Text1的change事件代码：PrivateSubText1_change()Text2.text=①(Text1.text)Text3.text=Ucase(②)EndSub答案：①Lcase②Text1.text9.设计程序，窗体包含1个文本框Te

5、xt1，当录入Text1内数字大于100，或小于0时，输出Text1内数字Text1的change事件代码：PrivateSubText1_change()x=①(Text1.text)Ifx<0②x>100thenPrintxEndifEndSub答案：①val②or10.设计程序，窗体包含1个文本框Text1，当录入Text1内数字小于100，并且大于0时，用对话框弹出输出Text1内数字。Text1的change事件代码：PrivateSubText1_change()x=val(Text1.text)Ifx<100①x>0then②(x)

6、EndifEndSub答案：①and②msgbox11.实现功能：从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。PrivateSubCommand1_Click()Constpi=3.14①r,sasSingler=Val(t1.text)s=pi*r②T2.Text=sEndSub答案：①dim②*r12实现程序，用计时器timer1控制图片image1，每隔100ms，图片向右移动100，向下移动200。编写timer1的timer事件代码PrivateSubForm_Load()Timer1.interval=10

7、0image1.picture=loadpinture(“图片.JPG”)EndSubPrivateSubtimer1_timer()image1.left=image1.left①image1.top=image1.top②EndSub答案：①+100②+20013实现程序，用计时器timer1控制图片image1，每隔50ms，图片向左移动100，向上移动200.编写timer1的timer事件代码PrivateSubForm_Load()Timer1.interval=①image1.picture=loadpinture(“图片.JPG”

8、)EndSubPrivateSubtimer1_timer()image1.left=image1.left①image1.top=im