VB条件语句和循环语句
测试习题(满分100分)
班级姓名
一、根据程序写运行结果
1．写出下列程序的运行结果。

(5分) Private sub command1_click
X=VAL(text1.text)
IF X<0 THEN
Y=ABS(X)
ELSE
Y= -X
END IF
PRINT "Y=";Y
End sub
运行结果：
(1)在text1中输入99 输出
(2)在text1中输入-23 输出
2. 写出下列程序的运行结果。

(5分)
Private sub command1_click
N=1
FOR X=3 TO 10 STEP 3
N=N*2
NEXT X
PRINT "N=";N
End sub
运行结果：
3．写出下列程序的运行结果。

(5分) Private sub command1_click
S=0
FOR X=10 TO 1 STEP 4
S=S+X
NEXT X
PRINT " S=";S
End sub(5分)
运行结果：
4.写出下列程序运行结果。

(5分)
Private sub command1_click
FOR I= 1 TO 5 step 2
PRINT I，
NEXT I
End sub
运行结果：
5. 写出下列程序的运行结果。

(5分)
Private sub command1_click
X=VAL(text1.text)
IF X/2=Int(X/2) THEN
S=X+1
ELSE
S=X-1
END IF
PRINT "S=";S
End sub
若在text1中输入以下数字，运行结果：
(1)99 (2)98
二、根据题意，完善下列程序。

(每空5分)
1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。

Private sub command1_click
A=VAL(text1.text)
B=VAL(text2.text)
IF A>B THEN
MAX=________
ELSE
MAX=
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
S=________
NEXT I
PRINT “S=”；S
End sub
3.完善下列程序，使其能求出
2+4+6+……+100之和。

Private sub command1_click
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。

Private sub command1_click
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= ";S
End sub
6. 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。

X表示行李重量，Y表示行李费。

Private sub command1_click
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ________ Then
Y=0
Else
Y=___________
End If
Print "行李费= ";Y
End sub
7. 求s=99+97+95+……+1之和。

Private sub command1_click
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整除的数。

Private sub command1_click
Dim I As Integer
I=1
Do while
If I Mod 3=0 Then
Print I
End If
I=I+1
Loop
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+S qr(d))/(2*a)
X2=__________________
Print "X1=";X1
Print "X2=";X2
ELSE
Print "无根"
End If
End sub。