VB-条件语句-循环语句练习题.doc

《VB-条件语句-循环语句练习题.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB条件语和循环语句测试习题(满分100分)一、根据程序写运行结果1．写出下列程序的运行结果。(5分)Privatesubcommand1_clickX=VAL(Inputbox("X="))IFX<0THENLETY=ABS(X)ELSELETY=-XENDIFPRINT"Y=";YEndsub运行结果：(1)99(2)-232.写出下列程序的运行结果。(5分)Privatesubcommand1_clickN=1FORX=3TO10STEP3N=N*2NEXTXPRINT"N=";N

2、Endsub运行结果：3．写出下列程序的运行结果。(5分)Privatesubcommand1_clickS=0A=VAL(InputBox("A"))FORX=10TO1STEP4S=S+XNEXTXPRINT"S="Endsub(5分)运行结果：4.写出下列程序运行结果。(5分)Privatesubcommand1_clickFORI=1TO5step2PRINTI，NEXTIEndsub运行结果：____,_____,_____5.写出下列程序的运行结果。(5分)Private

3、subcommand1_clickX=VAL(Inputbox("X="))IFX/2=Int(X/2)THENS=X+1ELSES=X-1ENDIFPRINT"S=";SEndsub运行结果：(1)99(2)98二、根据题意，完善下列程序。(每空5分)1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。Privatesubcommand1_clickA=VAL(Inputbox("A="))B=VAL(Inputbox("B="))IFA>BTHENMAX=________E

4、LSEMAX=BENDIFPRINT"MAX="；MAXEndsub2.求和S=1+3+5+7+…+99Privatesubcommand1_clickS=0FORI=1TO99STEP2S=________NEXTIPRINT“S=”；SEndsub3.完善下列程序，使其能求出2+4+6+……+100之和。Privatesubcommand1_clickFORI=____TO100STEP_____S=S+I______IPRINTSEndsub4．从键盘任意输入一个数，判断这

5、个是否是偶数，如果是偶数输出“Y”，否则输出“N”。Privatesubcommand1_clickX=VAL(Inputbox("X="))IFTHENPRINT“N”ELSEPRINT“Y”ENDIFEndsub5．从键盘输入圆的半径R，输出圆的周长L和面积S。Privatesubcommand1_clickDimRAsSingleDimLAsSingleDimSAsSingleR=InputBox("输入半径R")      L=___________S=3.14*R*RPrint"圆的周长L

6、="LPrint"圆的面积S="SEndsub6.计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。Privatesubcommand1_click   DimXAsSingle   DimYAsSingle       X=InputBox("输入行李重量")       If________ Then          Y=0       Else          Y=___________       EndIf

7、   Print"行李费="YEndsub7.求s=99+97+95+……+1之和。Privatesubcommand1_clickDimiAsIntegerDimsAsIntegers=0ForI=99To____Step____  s=_________NextIPrint"S=";SEndsub8.输出100以内（包含100）能被3整除的数。Privatesubcommand1_clickDimIAsIntegerI=1Do If I Mod3=0ThenPrintI EndIfI=I+1Lo

8、opUntil_________Endsub9.求一元二次方程ax2+bx+c=0的根，要求从键盘输入三个数，判断有无根。有根则输出两根的值分别为X1,X2，无根则输出“无根”Privatesubcommand1_clickA=VAL(InputBox("A="))B=VAL(InputBox("B="))C=VAL(InputBox("C="))D=B*B-4*A*CIFD___0THENX1=(-B+Sqr(d))/(2*a)X2=________________