1. 下面的程序运行后，显示的结果是________。

　　Dim x%

　　If x Then Print x+1 Else Print x

　　A） 1

　　B） 0

　　C） 显示错误信息

　　D） 2

　　2. 语句If x = 1 Then y = 1, 下面说法正确的是______。

　　A） x = 1 和 y = 1均为赋值语句

　　B） x = 1 和 y = 1均为关系表达式

　　C） x = 1 为赋值语句，y = 1 为关系表达式

　　D） x = 1 为关系表达式，y = 1 为赋值语句

　　3. 下面分段函数 , 下面不正确的程序段是______。

　　A） If x >= 1 then f=sqr(x+1)

　　f=x*x+3

　　B） If x >= 1 then f=sqr(x+1)

　　If x < 1 then f=x*x +3

　　C） If x >= 1 then f=sqr(x+1) _

　　Else f = x*x +3

　　D） If x < 1 then f=x*x +3 _

　　Else f=sqr(x+1)

　　4. 计算函数的值。 , 下面程序段中正确的是______。

　　A）If x < 0 then y = 0

　　If x < 1 then y = 1

　　If x < 2 then y = 2

　　If x >=2 then y = 3

　　B）If x >= 2 then y = 3

　　If x >= 1 then y = 2

　　If x > 0 then y = 1

　　If x < 0 then y = 0

　　C）If x < 0 then

　　y = 0

　　ElseIf x > 0 then

　　y = 1

　　ElseIf x > 1 then

　　y = 2

　　Else

　　y = 3

　　End If

　　D）If x >= 2 then

　　y = 3

　　ElseIf x >= 1 then

　　y = 2

　　ElseIf x >= 0 then

　　y = 1

　　Else

　　y = 0

　　End If

　　5. 下面的程序段，显示的结果是 ______。

　　Dim x

　　x= Int(RnD） + 5

　　Select Case x

　　Case 5

　　Print “优秀”

　　Case 4

　　Print “良好”

　　Case 3

　　Print “及格”

　　Case Else

　　Print “不及格”

　　End Select

　　A） 不及格

　　B） 良好

　　C） 及格

　　D） 优秀

　　6. 下面程序段求两个数中较大数，________不正确。

　　A） Max = IIF(x > y, x, y)

　　B） If x > y Then Max = x Else Max = y

　　C） Max = x

　　If y >= x Max = y

　　D） If y >= x Max = y

　　Max = x

　　7. 下列循环语句能正常结束的是________。

　　A） i = 5

　　Do

　　i = i + 1

　　Loop Until i < 0

　　B） i = 1

　　Do

　　i = i + 2

　　Loop Until i = 10

　　C） i = 10

　　Do

　　i = i - 1

　　Loop Until i < 0

　　D） i = 6

　　Do

　　i = i - 2

　　Loop Until i = 1

　　8. 下面的程序段的运行结果是 ________。

　　For i = 3 To 1 Step -1

　　Print Spc(5-i)

　　For j = 1 To 2 * i-1

　　Print “$”;

　　Next j

　　Print

　　Next i

　　A） $

　　$$$

　　$$$$$

　　B）$$$$$

　　$$$

　　$

　　C）$$$$$

　　$$$

　　$

　　D）$$$$$

　　$$$

　　$

　　9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是________ 。

　　Private Sub Text1_Change()

　　Print Text1.Text；

　　End Sub

　　A） ABCD

　　B） A

　　B

　　C

　　D

　　C） AABABCABCD

　　D） A

　　AB

　　ABC

　　ABCD

　　10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值________ 。

　　A）for i = 1 to 4

　　n = 1

　　for j = 1 to i

　　n = n*j

　　next j

　　print n

　　next i

　　B）for i = 1 to 4

　　for j = 1 to i

　　n = 1

　　n = n*j

　　next j

　　print n

　　next i

　　C）n = 1

　　for j = 1 to 4

　　n = n*j

　　print n

　　next j

　　D）n = 1

　　j = 1

　　do while j <= 4

　　n = n*j

　　print n

　　j = j+1

　　loop [NextPage]

　　11. 下列程序段的执行结果为______。

　　A=0:B=1

　　A=A+B:B=B+A:Print A;B

　　A=A+B:B=B+A:Print A;B

　　A）1 2

　　3 5

　　B）1 1

　　3 5

　　C）1 3

　　3 4

　　D）1 2

　　3 4

　　12. 变量未赋值时，数值型变量的值为______。

　　A）0

　　B）空串""

　　C）Null

　　D）没任何值

　　13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　For n=1 To 20

　　If n Mod 3<>0 then m=m+n\3

　　Next n

　　print n

　　End sub

　　程序运行后，如果单击命令按钮，则窗体上显示的内容是______。

　　A）15

　　B）18

　　C）21

　　D）24

　　14. 窗体中存在命令按钮Command1，其Click事件代码如下：

　　Private Sub Command1_Click()

　　X = 2

　　Y = 1

　　If X * Y < 1 Then Y = Y - 1 Else Y = -1

　　Print Y - X > 0

　　End Sub

　　程序运行后，单击命令按钮，输出结果为______。

　　A）True

　　B）False

　　C）-1

　　D）1

　　15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。

　　x=IIf((a>B） And (c>D） , 10, 20)

　　A）10

　　B）20

　　C）True

　　D）False

　　16. 执行以下程序段

　　a$= "abbacddcba"

　　For i = 6 To 2 Step -2

　　X= Mid(a,i,i)

　　Y= Left(a,i)

　　Z= Right(a,i)

　　Z= UCase(X & Y & Z)

　　Next i

　　Print z

　　输出结果为______。

　　A）ABA

　　B）BBABBA

　　C）ABBABA

　　D）AABAAB

　　17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　c=1234

　　c1=Trim(Str(C）)

　　For i=1 To 4

　　Print ____

　　Next

　　End Sub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容：

　　1

　　12

　　123

　　1234

　　则在下划线处应填入的内容为______。

　　A）Right(c1,i)

　　B）Left(c1,i)

　　C）Mid(c1,i,1)

　　D）Mid(c1,i,i)

　　18. InputBox函数返回值的类型为______。

　　A）数值

　　B）字符串

　　C）变体

　　D）数值或字符串（视输入的数据而定）

　　19．MsgBox函数返回值的类型为______。

　　A）整型数值

　　B）字符串

　　C）变体

　　D）数值或字符串（视输入的数据而定）

　　20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　a=InputBox("Enter an Integer")

　　b=InputBox("Enter an Integer")

　　Text1.Text=b+a

　　End Sub

　　程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

　　A）108

　　B）18

　　C）810

　　D）出错 [NextPage]

　　21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　Dim a As Integer,s As Integer

　　a=8

　　s=1

　　Do

　　s=s+a

　　a=a-1

　　Loop While a<=0

　　Print s;a

　　End Sub

　　程序运行后，单击命令按钮，则窗体上显示的内容是______。

　　A）7 9

　　B）34 0

　　C）9 7

　　D）死循环

　　22. 下面程序段的执行结果为______。

　　I=4

　　A=5

　　Do

　　I=I+1

　　A=A+3

　　Loop Until I>=9

　　Print"I=";I

　　Print"A=";A

　　A）I=9 B）I=10 C）I=10 D）I=9

　　A=20 A=20 A=23 A=23

　　23. 以下能够正确计算n!的程序是______。

　　A）Private Sub Command1_Click()

　　N = 5 : X = 1

　　Do

　　x = x * i

　　i = i + 1

　　Loop While i < n

　　Print x

　　End Sub

　　B）Private Sub Command1_Click()

　　N = 5 : x = 1 : i = 1

　　Do

　　x = x * i

　　i = i + 1

　　Loop While i < n

　　Print x

　　End Sub

　　C）Private Sub Command1_Click()

　　N = 5 : x = 1 : i = 1

　　Do

　　x = x * i

　　i = i + 1

　　Loop While i <= n

　　Print x

　　End Sub

　　D）Private Sub Command1_Click()

　　N = 5 : x = 1 : i = 1

　　Do

　　x = x * i

　　i = i + 1

　　Loop While i > n

　　Print x

　　End Sub

　　24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　Dim num As Integer

　　num=1

　　Do Until num>6

　　Print num;

　　num=num+2.4

　　Loop

　　End Sub

　　程序运行后，单击命令按钮，则窗体上显示的内容是______。

　　A）1 3.4 5.8

　　B）1 3 5

　　C）1 4 7

　　D）无数据输出

　　25. 设有如下程序段

　　x=2

　　For i=1 to 10 step 2

　　x=x+i

　　Next

　　运行以上程序后，X的值是______。

　　A）36

　　B）27

　　C）38

　　D）57

　　26. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　Dim i As Integer,n As Integer

　　For i=0 To 50

　　i=i+3

　　n=n+1

　　If i>10 Then Exit For

　　Next

　　Text1.Text=Str(n)

　　End Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是______。

　　A）2

　　B）3

　　C）4

　　D）5

　　27. 下列程序段的执行结果为______。

　　X=6

　　For K=1 To 10 Step -2

　　X=X+K

　　Next K

　　Print K;X

　　A）-1 6

　　B）-1 16

　　C）1 6

　　D）11 31

　　28. 执行以下程序段

　　Dim x As Integer, i As Integer

　　x = 0

　　For i = 20 To 1 Step -2

　　x = x + i \ 5

　　Next i

　　后，x的值为______。

　　A）16

　　B）17

　　C）18

　　D）19

　　29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　n=Val(Text1.Text)

　　For i=2 To n

　　For j=2 To Sqr(i)

　　If i Mod j=0 Then Exit For

　　Next j

　　If j>Sqr(i) Then Print i

　　Next i

　　End Sub

　　该事件过程的功能是______。

　　A）输出n以内的奇数

　　B）输出n以内的偶数

　　C）输出n以内的素数

　　D）输出n以内能被j整除的数

　　30. 新建立窗体中画一个命令按钮，其中事件代码如下：

　　For x=4 To 1 Step -1

　　For y=1 To 5-x

　　Print Tab(y+5);"*";

　　Next y

　　Print

　　Next x

　　窗体运行后，单击命令按钮，输出结果是______。

　　A）****

　　***

　　**

　　*

　　B）*

　　**

　　***

　　****

　　C）*****

　　****

　　***

　　**

　　D）*

　　***

　　*****