计算机二级VB数组选择题及参考答案

VB基本结构

　　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((ad),”A”,”B”)后，x的值为___________。

　　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　　B)If x>y Then s=y

　　C)If (x　　D)If x>y s=y

　　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

参考答案

　　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）旅游景点：故宫

参考答案