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

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=10TO1STEP4S=S+XNEXTXPRINT"S="Endsub(5分)运行结果:。(5分)mand1_clickFORI=1TO5step2PRINTI,NEXTIEndsub运行结果:____,_____,_____。(5分)mand1_clickX=VAL(Inputbox("X="))IFX/2=Int(X/2)THENS=X+1ELSES=X-1ENDIFPRINT"S=";SEndsub运行结果:(1)99(2)98二、根据题意,完善下列程序。(每空5分),将从键盘上任意输入的两个数中最大的那个选出来。mand1_click=VAL(Inputbox("A="))=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”,否则输出2“N”。mand1_clickX=VAL(Inputbox("X="))IFPRINT“N”ELSEPRINT“Y”ENDIFEndsubTHENPrint"S=";(包含100)能被3整除的数。mand1_clickDimIAsIntegerI=,输出圆的周长L和面积S。mand1_clickDimRAsSingleDimLAsSingleDimSAsSingle=InputBox("输入半径R")L=___________=*R*RPrint"圆的周长L="LPrint"圆的面积S=",收费标准为:20千克以下(包括20千克)不收费,超过20千