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

第二部分 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 + Y B．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 Integer n