VB条件语句循环语句练习题.docVIP

VB条件语和循环语句 测试习题 满分100分 一、根据程序写运行结果 1．写出下列程序的运行结果。 分 X VAL Inputbox X IF X 0 THEN LET Y ABS X ELSE LET Y -X END IF PRINT Y ;Y End sub 运行结果： 1 99 2 -23 2. 写出下列程序的运行结果。 分 N 1 FOR X 3 TO 10 STEP 3 N N*2 NEXT X PRINT N ;N End sub 运行结果： 3．写出下列程序的运行结果。 分 nputBox A FOR X 10 TO 1 STEP 4 S S+X NEXT X PRINT S End sub 5分 .写出下列程序运行结果。 5分 FOR I 1 TO 5step 2 PRINT I， NEXT I End sub 运行结果：____,_____,_____ 5. 写出下列程序的运行结果。 分 X IF X/2 Int X/2 THEN S X+1 ELSE S X-1 END IF PRINT S ;S End sub 运行结果： 1 99 2 98 二、根据题意，完善下列程序。 分 .请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。 Private sub command1_click A VAL Inputbox A B VAL Inputbox B IF A B THEN MAX ________ ELSE MAX B ENDIF PRINT MAX ；MAX End sub 2.求和S 1+3+5+7+…+99 Private sub command1_click S 0 FOR I 1 TO 99 STEP 2 S ________ NEXT I PRINT “S ”；S End sub 3.完善下列程序，使其能求出2+4+6+……+100之和。 FOR I ____ TO 100 STEP _____ S S+I ______ I PRINT S End sub 4．从键盘任意输入一个数，判断这个是否是偶数，如果是偶数输出“Y”，否则输出“N”。 Private sub command1_click X VAL Inputbox X IF THEN PRINT “N” ELSE PRINT “Y” END IF End sub 5． 从键盘输入圆的半径R，输出圆的周长L和面积S。 Dim R As Single Dim L As Single Dim S As Single R InputBox 输入半径R L S 3.14*R*R Print 圆的周长L L Print 圆的面积S SEnd sub 6. 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。 Dim X As Single Dim Y As Single X InputBox 输入行李重量 If ________? Then Y 0 Else Y End If Print 行李费 Y End sub 7. 求s +97+95+……+1之和。 Dim i As Integer Dim s As Integer s 0 For I 99 To ____ Step ____ s _________ Next I Print S ;S End sub 8. 输出100以内（包含100）能被3整除的数。 Dim I As Integer I 1 Do If? I? Mod 3 0 Then Print I End If I I+1 Loop Until _________ End sub 9.求一元二次方程ax2+bx+c 0的根，要求从键盘输入三个数，判断有无根。有根则输出两根的值分别为X1,X2，无根则输出“无根” Private sub command1_click A VAL InputBox A B VAL InputBox B C VAL InputBox C D B*B-4*A*C IF D ___ 0 THEN X1 -B+Sqr d / 2*a X2 __________________ Print X1 ;X1 Print X2 ;X2 ELSE Print 无根 End If End sub