《vb2级题库(含答案).doc》由会员分享，可在线阅读，更多相关《vb2级题库(含答案).doc（79页珍藏版）》请在三一办公上搜索。
1、安徽省VB试题一、选择题 1 以下4种描述中，错误的是_。 D A. 常量在程序执行期间其值不会发生改变 B. 根据数据类型不同，常量可分为字符型常量 、数值常量、日期/时间型常量和布尔型常量 C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质 D. 符号常量的使用和变量的使用没有差别2 下面合法的常量是_。 D A. 1/2 B B. abcd C. 1.2*5 D. False 3 Visual asic中可以用类型说明符来标识变量的 C类型，其中表示货币型的是_。 A. % B. # C. D. $ 4 以下关键字中，不能定义变量的是_。 A A. D
2、eclare B. Dim C. Public D. Private 5 用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_。 AA. &H B. &O C. H D. O 6 Visual Basic日期常量的定界符是_。 A A. # B. C. () D. 7 数学关系3x10表示成正确的VB表达式为_。 B A. 3=x10 B. 3=x AND x=3 OR x10 D. 3=x AND 108 ，/，Mod，*四个算术运算符中，优先级别最低的是_。 C A. B. / C. Mod D. * 9 下面语句中有非法调用的是_。 C 和 mod 运算符都是针对整型
3、数据的运算，自动把参与运算的各项四舍五入，然后再执行运算 A. x=SGN(-1) B. x=FIX(-1) C. x=SQR(-1) D. x$=CHR$(65) 10 表达式23/5.8、235.8、23 Mod 5.8的运算结果分别是_。 B A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、3 11 如果变量 a=2、b=abc、c=acd、d=5，则表达式 ac AND bc 的值_。A字符串的比较，是比较它们的ASCII 码值的大小 A. True B. False C. Yes D. No 标签label不支持print方法；21
4、窗体里有两个对象，分别是图片框Picture1和标签Label1。那么下面关于Print方法的使用中，错误的一条是_。 D A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 22 下面的_语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 B24题：format函数第一个参数为字符串类型时，后面的格式化字符表示把该字符串转化为小写形式 A. Print A;Tab(9);b B. Print A;Spc(8);b C. Print A;Space(10);b D.
5、Print A;Tab(8);b 23 阅读下面的程序段： n1=InputBox(请输入第一个数：) n2=InputBox(请输入第二个数：) Print n1+n2 当输入分别为111和222时，程序输出为_。 Aa=2出现在语句中是关系表达式，返回逻辑值，如果单独处于一行则为赋值语句，此处为前者；因为a从未定义，所以在此为空值，a=2比较结果为false A. 111222 B. 222 C. 333 D. 程序出错24 语句Print Format (HELLO, ) 的输出结果是_。 B A. HELLO B. hello C. He D. he 25 语句 Print (a=2)
6、 And (b=-2) 的输出结果是_。 D A. True B. 结果不确定 C. -1 D. False 26 以下程序段运行后，输出字符的排列顺序是_。 D For i=1 To 6 If i Mod 2=0 Then Mod运算是取余运算，要求左右两边参与运算的表达式为整数；在这里利用了来表示i能为2整除 Print #; Else Print *; End If Next i A. #*#*# B. # C. * D. *#*#*#函数Iif(参数1 ，参数2，参数3)功能等同于if语句参数1表示条件参数2是条件满足时候函数的返回值参数3是条件不满足时候的返回值 27 用MSGBOX
7、函数显示的对话框，以下叙述正确的是_。 DA. 该对话框有一个“确定”按钮 B. 该对话框有“是”，“否”两个按钮 C. 该对话框有“是”，“否”，“取消”三个按钮 D. 该对话框通过选择参数可以得到以上不同的的按钮组合 28 与语句Dim abc%作用相同的语句是_。 AA. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 29 设a=1,b=2,c=3,d=4，则表达式IIf(ab,a,IIf(c 5 Print x 2 + m / 3 End Sub A. 25 B. 45 C.
8、55 D. 65 44 以下程序段的运行结果是_。 APrivate Sub Form_Click() Dim s As Long, f As Long本题主要是一步步执行程序语句，每一步都记录下当前各个变量的值，尤其是后面输出的变量s的值（其间注意各个变量值的变化） Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print s=; sEnd Sub A. 33 B. 34 C. 35 D. 36 45 以下程序段的运行结果是_。 AStr( )函数，是把数值类型转换为字
9、符串每次循环体内部的变量值记录下来就可以得出结果Private Sub Form_Click() a = 1 b = a Do Until a = 5 X = a * b Print Str(a) & * & Str(b) & =; Str(X); a = a + b b = b + a Loop End Sub A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 46 下面分别是求两个数中的最大数的四个程序段，_不正确。 DA. Max=IIf(xy,x,y) B. If xy Then Max=x Else Max=y C
10、. Max=x D. If y=x Then Max=y第一行为if语句，执行完该语句，仍要对变量max赋值，则max的值与if语句无关 If y=x Then Max=y Max=x47 下列循环能正常结束的是_。 C A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i0 Loop Until i=1 48 有如下程序，运行时从键盘输入4，则输出的结果是_。 BSelect case语句由上至下进行比较，一旦符合条件，不再比较下面的各个条件，直接退出Select case语句。Private Sub Form_Click() a=InputBox(Ent
11、eer a value of a:) Select Case a Case Is2 b=a+1 Case Is3 b=a+2 Case Is5 b=a+3 Case Else b=a+4 End Select Print a;b End Sub A. 4 4 B. 4 5 C. 4 6 D. 4 7 49 执行如下程序段时，从键盘输入-5，输出的结果是_。 Ax=-5 s=Val(InputBox(请输入s的值:) Select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2
12、 B. -5 -4 C. -5 -3 D. -5 -5 50 某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是_。 BA. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sum C. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For
13、i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sum 51 以下程序段执行后，变量s、x的值分别为 _。 CDim s As Integer, x As Integer s = 10: x = 1 Do While x =i时执行print（也就是输出该数组元素值），则，j=i) Then Print语句后面什么都不带，就是输出空行。作用是换行Print Tab(j*3);Format(b(i,j),# # #); Next j Print Next i End Sub A. 1
14、2 3 B. 1 C. 1 4 7 D. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 957 在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integern一直都是3,则,本语句就是对数组arr2的下标为3的元素赋值; n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i输出两个数组的下标为3的元素; Next i Print arr1(n),arr2(n); End Sub
15、程序运行后，单击命令按钮，输出结果是 _。 BA. 11 3B. 3 11 C. 13 3 D. 3 13 58 在窗体上画一个命令按钮Command1，然后编写如下代码： 这里i在j的前面，i代表行号，j代表列号Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j这里i在j的后，j代表行号，i代表列号 Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next
16、i End Sub 程序运行后，单击命令按钮，输出结果是_。 D A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 1359 有如下程序： Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integeri是数组元素的行号,j是数组元素的列号;i和j又分别为外层循环和内层循环的循环变量 For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1
17、(3, 4) End Sub 程序运行后，单击窗体，在文本框显示的值是_。 C A. 5 B. 7 C. 12 D. 20 60 在窗体上添加一个命令按钮Command1，然后编写如下代码： Option Base 1 60题这类试题没有好方法，就是代入值，读程序ix(i)c（这个表达式的值决定了在if语句中到底执行哪个分支）在if语句中执行的分支cdx(i)1FALSE部分Else10-10102TRUE部分Then122123TRUE部分Then2123214TRUE部分Then3255325FALSE部分else322324Private Sub Command1_Click() d =
18、 0: c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，单击命令按钮，输出结果是_。 C A. 89 B. 99 C. 23 D. 77因为默认的最小下标为0这个三维数组可以认为,有4个二维数组;每个二维数组有5个一维数组,每个一维数组有6个元素61 下列语句声明的数组a包含的元素个数有_。 ADim a(3 ，-2 to 2，5) A. 120 B. 75 C.
19、60 D. 13 62 定义数组Array(1 to 5 , 5)后，下列哪一个数组元素不存在_。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 63 在Visual Basic应用程序中，以下描述正确的是_。 B A. 过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套64 假定有如下的Sub过程： 参数是按地址传送,过程内部如果对参数作了改动,会影响到实参变量Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() : 是分隔写在一行中的多个语句 Dim a As Single Dim b As Single a = 5: b = 4a 和 b 是实参,swapp运行时a和b的值将被改变 swapp a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是_。 D A. 5 4
