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

VB条件语句和循环语句
测试****题(满分100分)
班级姓名
一、根据程序写运行结果
。(5分)
Private mand1_click
X=VAL()
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 mand1_click
N=1
FOR X=3 TO 10 STEP 3
N=N*2
NEXT X
PRINT "N=";N
End sub
运行结果:
。(5分)
Private mand1_click
S=0
FOR X=10 TO 1 STEP 4
S=S+X
NEXT X
PRINT " S=";S
End sub(5分)
运行结果:
。(5分)
Private mand1_click
FOR I= 1 TO 5 step 2
PRINT I,
NEXT I
End sub
运行结果:
5. 写出下列程序的运行结果。(5分)
Private mand1_click
X=VAL()
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分)
,将从键盘上任意输入的两个数中最大的那个选出来。
Private mand1_click
A=VAL()
B=VAL()
IF A>B THEN
MAX=________
ELSE
MAX=
ENDIF
PRINT "MAX=";MAX
End sub
=1+3+5+7+…+99
Private mand1_click
S=0
FOR I=1 TO 99 STEP
S=________
NEXT I
PRINT “S=”;S
End sub
,使其能求出2+4+6+……+100之和。
Private mand1_click
FOR I =____ TO 100 STEP _____
S= S+I
______ I
PRINT S
End sub
,判断这个是否是偶数,如果是偶数输出
“Y”,否则输出“N”。
Private mand1_click
X=VAL(Inputbox("X=" ))
IF THEN
PRINT “N”
ELSE
PRINT “Y”
END IF
End sub
5. 从键盘输入圆的半径R,输出圆的周长L和面积S。
Private mand1_click
Dim R As Single
Dim L As Single
Dim S As S