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

VB条件语和循环语句测试****题(满分100分)一、。(5分)mand1_clickX=VAL(Inputbox("X="))IFX<0THENLETY=ABS(X)ELSELETY=-XENDIFPRINT"Y=";YEndsub运行结果:(1)99 (2)-。(5分)mand1_clickN=1FORX=3TO10STEP3N=N*2NEXTXPRINT"N=";NEndsub运行结果:。(5分)mand1_clickS=0A=VAL(InputBox("A"))FORX=10TO1STEP4 S=S+XNEXTXPRINT"S="Endsub(5分)运行结果:。(5分)mand1_clickFORI=1TO5step2PRINTI,NEXTIEndsub运行结果:____,_____,。(5分)mand1_clickX=VAL(Inputbox("X="))IFX/2=Int(X/2)THEN S=X+1ELSE S=X-1ENDIFPRINT"S=";SEndsub运行结果:(1)99 (2)98二、根据题意,完善下列程序。(每空5分),将从键盘上任意输入的两个数中最大的那个选出来。mand1_clickA=VAL(Inputbox("A="))B=VAL(Inputbox("B="))IFA>BTHENMAX=________ELSEMAX=BENDIFPRINT"MAX=";MAX=1+3+5+7+…+99mand1_clickS=0FORI=1TO99STEP2S=________NEXTIPRINT“S=”;S,使其能求出2+4+6+……+100之和。mand1_clickFORI=____TO100STEP_____S=S+,判断这个是否是偶数,如果是偶数输出“Y”,否则输出“N”。mand1_clickX=VAL(Inputbox("X="))IFTHEN PRINT“N”ELSE PRINT“Y”,输出圆的周长L和面积S。mand1_clickDimRAsSingleDimLAsSingleDimSAsSingleR=InputBox("输入半径R")      L=___________S=*R*RPrint"圆的周长L="LPrint"圆的面积S=",收费标准为:20千克以下(包括20千克)不收费,超过20千克的部分每千克收20元。X表示行李重量,Y表示行李费。mand1_click   DimXAsSingle   DimYAsSingle       X=InputBox("输入行李重量")       If________ T