视窗
loading...
您现在的位置:首页 > 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

闂侀潧妫岄崑锟�

闂侀潧妫岄崑锟�

闂侀潧妫欓崝鏇㈠储閵堝洦瀚婚柨婵嗘嫅缁憋綁鏌¢崟顐︻€楅柟铚傚嵆閹囧醇閻斿摜绉柣鐘叉搐閻°劌危閹达箑违闁跨噦鎷�
闂佸搫鐗滈崜娑㈡偟椤栫偞鐒鹃柕濞垮劚閻庤菐閸ワ絽澧插ù鐓庢嚇瀵爼濡烽敂鍓у煃婵炲瓨绮岀花鑲╄姳娴煎瓨鍤傞柡鍐ㄥ€荤粔褰掓煥濞戣櫕瀚�闁诲海鏁搁、濠偯归崱妯诲闁伙絽鏈悾鍗炃庨崶锝呭⒉濞寸厧鎳橀獮瀣箣濠婂嫮鎷ㄩ梺鍛婃⒐缁嬫帡鎯囨导鏉戝唨闁搞儯鍔嶉~鏍庨崶锝呭⒉濞寸厧鎳橀幆鍐礋椤愩垺鐦旀繝銏f硾鐎氬摜妲愰敓锟�闂佺懓鐡ㄩ崹鍐测堪閹寸姳鐒婂┑鐘叉搐濞呫垹霉閿濆棛鐭庨柍褜鍓欓幊鎰枔閹达附鍋嬮柛顐ゅ枑缂嶁偓闂佹垝鐒﹂妵鐐电礊閺冨牆绾ч柛鎰硶缁€锟�闁诲簼绲婚~澶愬垂濠婂嫮顩锋い鎺戝暞缁侇噣寮堕悙鍨珪婵炲牊鍨剁粚閬嶅焺閸愌呯婵犵鈧啿鈧懓锕㈡担鍓插殨闁稿本绻嶉崬鎾煙鐎涙ḿ澧繝鈧担鍦懝闁割煈鍋呯紞鈧梺鐟扮摠閻楃偟鎹㈠顑芥灃闁哄洦鐭换鍡涙煙椤撗冪仴妞ゆ洦鍓熷畷锝嗙節閸愨晩妲梺鑹伴哺濮婂鏌堥幘顔肩闁瑰瓨绮嶇划锕傛煥濞戞ɑ婀版繝鈧幍顔惧崥婵炲棗娴风粣妤冪磼閺傛鍎忕€规挸妫濆畷姘舵偐缂佹ḿ褰戦梺鎸庡喕閹凤拷闁诲海鏁搁幊鎾舵暜椤愶箑绀嗘繛鎴灻弫鍫曟倵绾拋娼愰柛銊︾矋缁傛帡顢楁担绋啃梺瑙勬緲缁绘垿寮鐣岊浄婵せ鍋撻柍褜鍓欓崐鍝ョ礊鐎n喗鍎嶉柛鏇ㄥ帎瑜版帗鐓€妞ゆ帒锕︾粈锟�闂佽壈椴稿濠氭焾閹绢喖妫橀柣鐔稿绾偓闂佹寧绋掑畝鎼佸磻閺嶃劎顩烽柨鐕傛嫹:webmaster@jscj.com闂侀潧妫岄崑鎾绘煟椤厾绁烽柣锔跨矙閺佸秹鏁撻敓锟�4008816886

相关文章

无相关信息
更新时间2022-03-13 11:05:03【至顶部↑】
联系我们 | 邮件: webmaster@jscj.com | 客服热线电话:4008816886(QQ同号) |  婵犵數鍎戠紞鈧い鏇嗗嫭鍙忛柣鎰暯閸嬫捇鐛崹顔句痪濠电姭鍋撻柛銉戝苯娈銈嗘椤斿﹦鎹㈤敓锟�

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

客服电话: