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

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+Sqr(d))/(2*a)
X2=__________________
Print "X1=";X1
Print "X2=";X2
ELSE
Print "无根"
End If
End sub

2 / 2