《VB条件语句循环语句练习题.doc》由会员分享，可在线阅读，更多相关《VB条件语句循环语句练习题.doc（3页珍藏版）》请在三一文库上搜索。
1、VB条件语和循环语句 测试习题(满分100分)、根据程序写运行结果1 写出下列程序的运行结果。(5分)Private sub comma nd1_clickX=VAL(I nputbox(X=)IF XB THENMAX=ELSEMAX=BENDIFPRINT MAX=; MAXEnd sub2. 求和 S=1+3+5+7+,+99Private sub comma nd1_clickS=0FOR I=1 TO 99 STEP 2S=NEXT IPRINT “S= ”； SEnd sub3. 完善下列程序，使其能求出2+4+6+,+100 之和。Private sub comma nd1_cl
2、ickFOR I = TO 100 STEPS= S+IIPRINT SEnd sub从键盘任意输入一个数，判断这个是否是 偶数，如果是偶数输出“ Y”，否则输出“ NPrivate sub comma nd1_clickX=VAL( In putbox(X=E )IF THENPRINT “ NELSEPRINT“ Y”END IFEnd sub4. 从键盘输入圆的半径R,输出圆的周长 L和面积SoPrivate sub comma nd1_clickDim R As Si ngleDim L As Si ngleDim S As Si ngleR=lnputBox(输入半径 R )L=S=
3、3.14*R*RPrint 圆的周长L= LPrint 圆的面积S= SEnd sub5. 计算旅客的行李费，收费标准为：20 千克以下(包括20千克)不收费，超过20 千克的部分每千克收20元。X表示行李重量， 丫表示行李费。Private sub comma nd1_clickDim X As Si ngleDim Y As Si ngleX=InputBox(输入行李重量)If The nY=0ElseY=End IfPrint 行李费=YEnd sub6. 求 s=99+97+95+,+1 之和。Private sub comma nd1_clickDim i As In tegerD
4、im s As In tegers=0For I=99 To Step s=Next IPrint S=;SEnd sub7. 输出100以内(包含100)能被3整除的 数。Private sub comma nd1_clickDim I As In tegerI=1DoIf I Mod 3=0 ThenPrint IEnd IfI=I+1Loop Un tilEnd sub8. 求一元二次方程ax2+bx+c=0的根，要求 从键盘输入三个数，判断有无根。有根则输 出两根的值分别为 X1,X2,无根则输出“无 根”Private sub comma nd1_clickA=VAL(I nputBox(A=)B=VAL(I nputBox(B=)C=VAL(I nputBox(C=)D=B*B-4*A*CIF D _ 0 THENX仁(-B+S qr(d)/(2*a)X2=Print X仁;X1Prin t X2=;X2ELSEPrint 无根End IfEnd sub