1．下面的程序运行后，显示的结果是________。
x=0
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=”a”,b=”b”,c=”c”,d=”d”，执行语句x=Iif((a A)”a” B)”b” C)”B” D)”A” 4．下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写__________语句。 x=Val(InputBox(“请输入 x的值：”)) y=Val(InputBox(“请输入 y的值：”)) s=x : ______________ s=s*s Print s A)If (x C)If (x 5．下面的程序段，显示的结果是 ______。 Dim x x= Int(Rn D）+ 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 x = 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 参考答案 1 2 3 4 5 6 7 8 9 10 B D D C D D C B C B 11 12 13 14 15 A A B C D 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 &nb, sp; j = j+1 loop 11．有如下程序： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j Next i 则语句Print i*j的执行次数是________。 A）15 B） 16 C）17 D）18 12．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为________。 A）9 B） 6 C）12 D）15 13.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = "ABCD" For n = 1 To 4 Print _________ Next n End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在程序段的“Print ________”处应填入的内容为________。 A）Left(c,n) B）Right(c,n) C）Mid(c,n,1) D）Mid(c,n,n) 14．执行以下程序段 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 15．在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序： Private Sub Command1_Click() a = InputBox("请输入日期(1~31)") t = "旅游景点：" _ & IIf(a > 0 And a <= 10, "长城", ""）_ & IIf(a > 10 And a <= 20, "故宫", ""）_ & IIf(a > 20 And a <= 30, "颐和园", "") Text1.Text = t End Sub 程序运行后，如果从键盘输入16，则在文本框中显示的内容是________。 A）旅游景点：长城故宫 B）旅游景点：长城颐和园 C）旅游景点：颐和园 D）旅游景点：故宫 参考答案 1 2 3 4 5 6 7 8 9 10 B D D C D D C B C B 11 12 13 14 15 A A B C D
10．下列哪个程序段不能正确显示1！、2！、3！、4！的值________。