2017年江苏省计算机二级试题,2017年春江苏省计算机二级VB考试笔试真题.doc

2017年春江苏省计算机二级VB考试笔试真题

第二部分 Visual Basic 程序设计

选择题(用答题卡答题，答案依次填在21～30答题号内)

21．以下说法正确的是 2 。

A. 属性是对象的特征，所有的对象都有相同的属性

B. 属性值只能在属性窗口中设置

C. 在程序中可以用赋值语句给对象的任何一个属性赋值

D. 对象的运行时属性不出现在对象属性窗口中

22．下面4个语句中，的是 。

A．N = InputBox("输入N", , 5)B．InputBox ("输入N", , 5)

C．MsgBox "请回答"D．K = MsgBox("请回答")

23．设X=1，Y=2，则不能在窗体上显示出“A= 3”的语句是 23 。

A．Print A = X + YB．Print "A="; X + Y

C．Print "A=" + Str(X + Y)D．Print "A= " & X + Y

24．InStr(4, "abcabca", "c") + Int(2.5)的值为 24 。

A. 7 B. 8 C. 5 D. 9

25．

26． 26 。

A．

B．

C．

D．

27．

28. 设a=1，b=2，c=3，逻辑表达式a < b And Not c > b Xor c < a的值是 28 。

A. False B. -1 C. True D. 1

29．在窗体Form1中用“Public Sub Fun(x As Integer, y As Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在过程中调用Form1中的Fun过程，则下列语句中正确的是 29 。

A．Call Fun(I, J)B．Call Form1.Fun(I, J)

C．Fun I, J)D．Form1.Fun I, (J)

．B．不能用Output、Append 方式打开一个不存在的顺序文件

C．在Input方式下，可以使用不同的文件号同时打开同一个文件

D．在不同的过程中，可以同时用同一个文件号打开不同的文件

填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1．执行下列程序，单击按钮Command1，窗体上显示第一行内容是 ，第行内容是 (2) ，行内容是 。Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 4

b = 3

Do Until a > 10

b = b / 2

Do Until b > 10

a = (a + b) \ 2 + b

b = b + 5

Print a, b

Loop

a = a - 3

Loop

End Sub

2．执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是 (4) ，第二行的内容是 (5) ，第四行的内容是 (6) 。Option Explicit

Private Sub Cmd1_Click()

Dim a As Integer, b As Integer

a = 1

b = 2

Print fun(2 * b, fun(a, (b)))

Print a; b

End Sub

Private Function fun(x As Integer, y As Integer) As Integer

x = x + 2

y = x - y + 3

fun = x + y

Print fun

End Function

3．执行下面的程序，单击Cmd后 (7) ， (8) ，是 9) 。Option Explicit

Option Base 1

Private Sub CmdRun_Click()

Dim A(3, 3) As Integer, i As Integer, j As Integer, k As Integer, n As Inte