1.下列为非法变量名的是            
A. stud.no      B. st_add        C. Bool*         E. mass_4            F. 12disk        G. 924k

2.下列为合法变量名的是                

A. 4*Dale       B. Alpha         C. ABC           D. PAπ         E. A(A+B)      F. C23A         G. dim

3.如变量W被声明为Byte类型，下列语句正确的是

A. W=-1         B. W=1          C. W=256            D. W=-256

4.在程序中用到某一整型变量的数据范围为-32768~40000，则该变量类型应声明为        

A. Integer       B. Byte         C. Long        D. Double

5.下列声明变量语句中，正确的是           

A. Dim m As Integer, Dim n As Integer        B. Dim m As Integer, n As Integer

C. m As Integer, n As Integer                     D. Dim m As Integer, n As Long

E. Dim m,n As Long

6.设变量x=5,下列表达式的值为True的是       

A. (x>=5) And  (x<=8)     B. (x<=5)  And  (x>=8)
C. (x>=5) Or  (x<=8)          D. (x>=5)  Xor  (x>=8)

E. Not (x<>5)

7.下列不是表达式，                 

A. x=3+4^2/10\4           B. “Hello”       C. s=s+4
D. s1==”Answer”         E. s2 & s3      F. 234

8.计算下列表达式的值

9.下列表达式错误                
A. 4<=X<=10        B. A$-B$        C. 8^(1/3)       D. 1 OR 0

10.写出Visual Basic表达式的正确形式：
⑴ -3÷6+8×INT24.7         ⑵ [(x+y)-z]×80-5(C+D)
⑶ cos x (sin x+1)               ⑷ e²+2

11.指出下列语句的错误

⑴ x=3 ; y=6
   Print z=(x+y)/3

⑵  t=0
For I=10 to 2 step 2
t=t+I
Print t
next I
⑶ For i=1 to 10
    For j=1 to 10
     Print i+j;
     If  i*j>50 Then Exit For
    Next i

Next j

⑷ Dim a(10)

     Dim a=10

a(1)=10

Print a,a(1)

12. 设x = 2， y = 1， z = 2，执行以下两条语句后，输出结果是            

If z = x Then y = x : x = 4

Print x, y, z

13.指出执行下列程序段后，输出结果为            

I=10

Print “I1=”;I

Do While I<10

     I=I+1

Loop

Print “I2=”;I

14.执行下列程序段后，输出结果为           

x = 1

For i = 1 To 30 Step 6

x = x + i Mod 5

Next i

Print x

15.指出下列程序段的功能

Dim a(2, 3) As Integer

Dim m As Integer, n As Integer

For m = 1 To 2

 For n = 1 To 3

          a(m, n) = InputBox("input datas:")

          Print a(m, n);

         Next n

Print

 Next m

16.设圆柱体的高为H，半径为R，下面程序是计算圆柱体的表面积S及体积V的值。从键盘输入H和R的数据，请完成下列程序。

    H = InputBox("请输入圆柱体的高：")

    R = InputBox("请输入圆柱体的高半径：")

S = 2*3.14159*R^2+2*R*3.14159*H

V=3.14159*R*R*H

    Print "S=";      ,      ;V

17.   设一元二次方程AX²+BX+C=0有两个实数根。系数A、B、C从键盘输入，要求写出△的表达式。（用变量D表示△）

Dim A As Single, B As Single, C As Single

Dim DAs Single

    A = InputBox("输入A：")

    B = InputBox("输入B：")

    C = InputBox("输入C：")

D=               

    Print "△的值为："; D

18.   从键盘输入一个数为：234，请写出运行结果       。

Private Sub Command4_Click()

        Dim N As Integer

        N = InputBox("输入一个三位数：")

        Print N \ 100 + N Mod 10

End Sub

19.   从键盘输入两个数为：7和9，请写出运行结果        。

    A = InputBox("输入一个数：")

    B = InputBox("输入一个数：")

    If  A<B Then  M = A MOD B  Else M = B MOD A

Print  M

20.   计算分段函数：当x<0时y取0；当0≤x <1时y取1；当x≥1时y取2。

    X = InputBox("输入X：")

    Select Case X

    Case Is < 0 : Y = 0

    Case Is < 1 : Y = 1

    Case Else  :              

    End Select

    Print "Y="; Y

21.   任意输入两个数存入变量A, B。使得A中存入较大数，B存较小数，再输出A、B。

    Dim A As Integer, B As Integer, T As Integer

    A = InputBox("输入一个正整数")

    B = InputBox("输入一个正整数")

    If A < B Then

        A = B: B = T

    End If

    Print A, B

22.   求1~100之间的所有被5整除的数之和。

    Dim I As Integer, S As Integer

    S = 0

    For I = 5                

        S = S + I

    Next

    Print "S="; S

23.   输入一批成绩(假设0≤成绩≤100，输入时以负数为结束标志，至少有一个成绩)，求其中的最高分与最低分之差。

    Min = 999: Max = -1 : Score = InputBox("输入一个成绩：")

    Do

        If Score < Min Then Min = Score

        If Score > Max Then Max = Score

        Score = InputBox("输入一个成绩：")

    Loop While                 

    Print "最高分-最低分："; Max - Min

24.   计算1/1!+1/2!+1/3!+1/4!+……。直到最后一项的绝对值小于1E-5。

    Dim T As Single, S As Single, I As Integer , N As Long

    T = 1 : S = 0 : I = 1 : N=1

    Do

        N = N * I

        S = S + T

        I = I + 1

    Loop Until Abs(T) < 0.00001

    Print "1/1!+1/2!+1/3!+1/4!+...="; S

25.   若有10个随机整数已存放在一数组中，求出其中最小元素值的下标。

    Dim A(1 To 10) As Single, I As Integer, Imin As Integer

    For I = 1 To 10 : A(I) = Int(Rnd * 100) : Next I

    Imin = 1

    For I = 2 To 10

        If               __ Then Imin=I

        End If

    Next I

Print "Imin="; Imin