您现在的位置:首页 > IT认证 > 练习中心 >

计算机二级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

参考答案

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!的值________。

  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

相关文章

无相关信息
更新时间2022-03-13 11:05:03【至顶部↑】
联系我们 | 邮件: | 客服热线电话:4008816886(QQ同号) | 

付款方式留言簿投诉中心网站纠错二维码手机版

客服电话: