VB模拟测试题目.doc

1、下列说法中正确的是:为了保存一个Visual Basic应用程序，应当（ D）。 A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件2、以下叙述中错误的是（ ）。 A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.对象事件的名称可以由编程者指定3、用语句 Dim A(1 to 5) As integer 定义的数组元素个数是_B_ _。A. 4 B. 5 C. 6 D.14、以下程序运行的结果是_ _。Option Base 1Private Sub Form_Click() Dim a Variant Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next iEnd Sub A. 4 3 2 1 B. 5 4 3 2 C. 6 5 4 3 D. 7 6 5 45、在窗体上画一个命令按钮Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim p(3) As Integer k = 0 For i = 0 To 3 p(i) = i k = k + p(i) Next i Print kEnd Sub程序运行后，单击命令按钮，输出结果是_ _。A. 12 B. 6 C. 5 D. 76、执行下面程序后，输出的结果是_ _。Private Sub Form_Click() Dim a(10, 10) As Integer For i = 1 To 10 For j = 1 To 10 a(i, j) = i * j Next j Next i Print a(1, 2) + a(2, 3) End SubA. 12 B. 10 C. 8 D. 67.在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：Sub p1(a As Integer, b As Integer, ByVal c As Integer) c = a + bEnd SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Call p1(x, y, z) Text1.Text = Str(z)End Sub程序运行后，单击命令按钮得到的结果是_ _。A. 0 B. 12 C. Str(z) D. 没有显示8、 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为（）。A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500 9.下列窗体属性属于字符类型的是_。 A)Name和Caption B)MaxButton和MinButton C)Visible和Enabled D)Borderstyle和WindowState10.以下控件没有Click事件是_ _。 A)TextBox B)Label C)Timer D)Image11.语句Print Format(0.5725, #.00)的输出结果是_。A. 0.5725 B. .5725 C. .57 D. 0.5712.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为_ _。 A)5 B)500 C)10 D)500013.在MsgBox函数中哪一个参数是必须的（ ） APrompt BButtonsCTitle DContext14、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox(Enter the First integer)b = InputBox(Enter the Second integer)Print b + aEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是（ ）A.579 B.123 C.456 D.12345615.如果准备读文件,打开顺序文件text.dat的正确语句是（ ）。 (A)opentext.datFor write As#1 (B) opentext.datFor Binary As#1 (C) opentext.datFor Input As#1 (D) opentext.datFor Random As#1 16.在Visual Basic应用程序中，以下描述正确的是_ _。A. 过程的定义可以嵌套，但过程的调用不能嵌套B. 过程的定义不可以嵌套，但过程的调用可以嵌套C. 过程的定义和过程的调用均可以嵌套D. 过程的定义和过程的调用均不可以嵌套17.假定有以下函数过程：Function func(a As Integer, b As Integer) As Integer func = a + bEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() p = func(10,20) Print p;End Sub程序运行时，单击命令按钮得到的结果是_ _。A. 10 B. 20 C. 30 D. 4018.下面合法的常量是（）。A. 1/2 B. abcd C. 1.2*5 D. False19.在下列表达式中，正确的日期型常量是_ _。A. 12/04/01 B. 12-04-2001 C. 12/04/01 D. #12/04/01#20.下列各项不是Visual Basic的基本数据类型的是_ _。A. Char B. String C. Integer D. Double21.执行 PRINT 9.43.7,9.4 MOD 3.7 命令后，输出结果为_ _。 A. 2 1 B. 3 0 C. 2 20 D. 1 222.Rnd函数不可能为下列_值。A. 0 B. 1 C. 0.1234 D. 0.000523.若Y=welcome!，则表达式 Left(Y,Len(Y)-1)的值是_。A. welcome! B. w C. welcome D. 24.表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是_ _。A. 0,15 B. -1,15 C. -4,15 D. -5,1525.可实现从字符串任意位置截取字符的函数是_ _。A. Instr( ) B. Mid( ) C. Left( ) D. Right( )26.下列结构中不属于循环结构的是_ _。A. For/Next B. While/Wend C. With/End With D. Do/Loop27.以下程序段执行后，变量s、x的值分别为_ _。 Dim s As Integer, x As Integers = 10: x = 1Do While x 0 Then x=y-3 Else y=x+3 Print x-Y；Y-x A)-3 3 B)5 8C)3 -3 D)25 -25 30.用Select Case语句选择|x|10 D. Is 10二、程序阅读题1. 以下程序实现了九九乘法表 For i = 1 To_ For j = 1 To _ Print i; *; j; =; i * j, Next j _1）程序处应该填入程序为 A6 B.7 C.8 D.92）程序处应该填入程序为 A.8 B.9 C.i D.j3) 程序处应该填入程序为 A.Inputbox B.Print C.Print i*j D.不填写4）程序处应该填入程序为 ANext I B.Next j C Next D Next X2.程序代码如下： n = Val(Text1.text) s = 0 k = 0 For i = 1 To n k = k + i L1: s = s + k Next i Label1.Caption = Str(s)1)程序运行后，如果在Text1中输入4，则输出的结果是( ) A、4 B、10 C、16 D、20 2)在该程序中除窗体外，至少定义了( )个控件。A、2 B、3 C、4 D、53)上述程序的功能是：( ) A、计算1+2+3+4+5+nB、计算1+(2+2)+(3+3+3)+(n+n+n+n)C、计算1+(1+2)+(1+2+3)+(1+2+3+n)D、计算n+n+n 4)若将L1行处的代码改为：s=k，则程序的功能是：（ ）。A、计算1+2+3+4+5+nB、计算1+(2+2)+(3+3+3)+(n+n+n+n)C、计算1+(1+2)十(1+2+3)+(1+2+3+n)D、计算n+n+n3.Option Base 0Private Sub Form_Click()Dim a As Variant, b As VariantDim c(7) As Integera = Array(2, 8, 7, 6, 4, 26, 24)b = Array(79, 27, 32, 40, 57, 66, 82)L1：For i = 1 To 6c(i) = b(i) - a(i)Print c(i);Next iEnd Sub1）以下关于语句“Option Base 0”的说法中正确的是( )。A、其功能是指定数组下标上界的值为1B、其功能是指定数组下标下界的值为1C、其功能是指定数组下标下界的值为0D、其功能是指定数组下标下界的值为02）对于以上程序中的array函数，下列说法正确的是（ ）A、可以定义变量a 为 integer 类型 B、只能用来对静态的一维数组赋值C、只能用来对静态的多维数组赋值 D、可以用来对多维数组赋值3）该程序的功能是（ ）。A、打印数组a和数组b B、打印数组a与数组b的和C、将数组a与数组b进行比较，打印出值大的元素D、计算数组a与数组b的差，并打印输出4）L1行处的程序可以改为：（ ）。A、for i=lbound(c) to ubound(c) B、for i=1 to Lbound(c)C、for i=lbound(c) to 1 step 1 D、for i=7 to ubound(c) step -14、阅读下列程序Private Sub Form_Click()a = Val(InputBox(请输入a的值)b = Val(InputBox(请输入b的值)L1: Print a=; a; Tab(10); b=; bL2: Print f(f(a) + f(2 + f(b)End SubFunction f(x)If x 0 Then f =2 * xElseIf x = 3 Then f = int(sqr(x)Else f = x2End Ifx=x+1End Function1）程序运行后，单击窗体，若两输入框内分别输入0和4，则f(f(a) + f(2 + f(b)的结果为（ ）。A、 0B、 2C、3 D、42）函数过程f其返回值的类型为：（ ）。A、 IntegerB、 SingleC、Double D、Variant3）若L1行处代码与L2行处代码交换位置，程序运行后，单击窗体，两输入框内分别输入0和4，则变量a的值为（ ）。A、 0B、 1C、2 D、34）程序运行后，单击窗体，若两输入框内分别输入0和4，L1行处程序代码为实现与之相同的输出效果可以将Tab(10)改换为其它函数，若改为spc函数，则其括号内的参数为（ ）。A、 8B、 9C、10 D、11 5.程序代码如下：Private Sub Command1_Click()Dim a(1 To 4) As IntegerFor i = 1 To 4a(i) = i + 5Next iL1：ss a()For i = 1 To 4Print a(i);Next iEnd SubSub ss(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd Sub1) 在程序中所定义的数组a是（ ）A) 用户自定义数据类型B)静态数组C) 用户自定义数组类型 D)动态数组2）程序运行的结果是（ ）A) 1 2 3 4 B) 2 4 6 8C) 6 7 8 9 D) 12 14 16 183）如果在全部代码前添加语句“option base 1”则程序运