1、省二级考试 VB 试题汇总第 1 页 共 79 页安徽省 VB 试题一、选择题1 以下 4 种描述中，错误的是_。 DA. 常量在程序执行期间其值不会发生改变 B. 根据数据类型不同，常量可分为字符型常量 、数值常量、日期/ 时间型常量和布尔型常量C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别2 下面合法的常量是_。 DA. 1/2 B B. abcd C. 1.2*5 D. False 3 Visual asic 中可以用类型说明符来标识变量的 C类型，其中表示货币型的是_。 A. % B. # C. D. $
2、4 以下关键字中，不能定义变量的是_。 AA. Declare B. Dim C. Public D. Private 5 用十六进制表示 Visual Basic 的整型常数时，前面要加上的符号是_。 AA. Tab(9);“b“ B. Print “A“;Spc(8);“b“ C. Print “A“;Space(10);“b“ D. Print “A“;Tab(8);“b“ 23 阅读下面的程序段： n1=InputBox(“请输入第一个数： “) n2=InputBox(“请输入第二个数： “) Print n1+n2 当输入分别为 111 和 222 时，程序输出为_。 A字符串的比
3、较，是比较它们的 ASCII 码值的大小标签 label 不支持 print 方法；24 题：format 函数第一个参数为字符串类型时，后面的格式化字符 5Print x 2 + m / 3 End Sub A. 25 B. 45 C. 55 D. 65 44 以下程序段的运行结果是_。 APrivate Sub Form_Click() Dim s As Long, f As LongDim 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 Su
4、b A. 33 B. 34 C. 35 D. 36 Until 作为条件关键词，则，条件符合就退出循环；而 while 作为条件关键词，条件符合就执行循环体；据此：带入 m 和 n 的值，执行 4 趟，每次都记录下 m 和 n的值，不难得出结果（注意 m 和 n 的值都不断发生着变化）本题主要是一步步执行程序语句，每一步都记录下当前各个变量的值，尤其是后面输出的变量 s 的值（其间注意各个变量值的变化）省二级考试 VB 试题汇总第 5 页 共 79 页45 以下程序段的运行结果是_。 APrivate Sub Form_Click() a = 1 b = a Do Until a = 5 X
5、= a * b Print Str(a) 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. Max=x D. If y=x Then Max=yIf y=x Then Max=y Max=x47 下列循环能正常结束的是_。 CA. i=5 B. i=1 DO DO i=i+1 i
6、=i+2 Loop Until i0 Loop Until i=1 48 有如下程序，运行时从键盘输入 4，则输出的结果是_。 BPrivate Sub Form_Click() a=InputBox(“Enteer a value of a:“)Select Case aCase 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(Inpu
7、tBox(“请输入 s 的值 :“) Select Case s Case Is0 y=x+1 Str( )函数，是把数值类型转换为字符串每次循环体内部的变量值记录下来就可以得出结果第一行为 if 语句，执行完该语句，仍要对变量 max 赋值，则 max 的值与if 语句无关Until 作为条件关键词，则，条件符合就退出循环；Select case 语句由上至下进行比较，一旦符合条件，不再比较下面的各个条件，直接退出 Select case 语句。省二级考试 VB 试题汇总第 6 页 共 79 页Case Is=0 y=x+2 Case Else y=x+3 End Select Print
8、x;y A. -5 -2 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
9、i=1996 To 1998 For 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) Then Print Tab(j*3);Format(b(i,j),“# # #“); Next j Print Next i End Sub A. 1 2 3 B. 1 C. 1 4 7 D. 1 2 3 4 5
10、6 4 5 2 4 6 4 67 8 9 7 8 9 3 6 9 957 在窗体上画一个命令按钮 Command1，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integern = 3 For i = 1 To 5 arr1(i) = iarr2(n) = 2 * n + iNext i Print arr1(n),arr2(n); End Sub 程序运行后，单击命令按钮，输出结果是 _。 BA. 11 3B. 3 11 C. 13 3 D. 3 13 58 在窗体上画一个命令按钮 Command1，然后编
11、写如下代码： Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 数组 city（）的最小下标为默认值，就是 0设置各个数组的默认最小下标值为 1i 是数组元素的行, j 是数组元素的列，j=i 时执行print（也就是输出该数组元素值） ，则，j c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，单击命令按钮，输出结果是_。 CA. 89 B. 99 C. 23 D. 77i 是数组元素的行号,j 是数组元素的列号;i 和
12、j 又分别为外层循环和内层循环的循环变量60题这类试题没有好方法，就是代入值，读程序ix(i)c（这个表达式的值决定了在if 语句中到底执行哪个分支）在 if语句中执行的分支c d x(i)1 FALSE 部分 Else 10 -10 102 TRUE 部分 Then 12 2 123 TRUE 部分 Then 21 23 214 TRUE 部分 Then 32 55 325 FALSE 部分 else 32 23 24这里 i 在 j 的后，j 代表行号， i 代表列号省二级考试 VB 试题汇总第 9 页 共 79 页61 下列语句声明的数组 a 包含的元素个数有_。 ADim a(3 ，-
13、2 to 2，5) A. 120 B. 75 C. 60 D. 13 62 定义数组 Array(1 to 5 , 5)后，下列哪一个数组元素不存在_。 CA. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 63 在 Visual Basic 应用程序中，以下描述正确的是_。 BA. 过程的定义可以嵌套，但过程的调用不能嵌套B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套64 假定有如下的 Sub 过程： Sub swapp(x As Single, y
14、 As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As SingleDim b As Singlea = 5: b = 4swapp a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是_。 DA. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 65 以下程序的运行结果是_。 CFunction fun(a As Integer) b = 0 Static c b = b + 1 c
15、 = c + 1 fun = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print Sum End Sub A. 24 B. 12 C. 15 D. 32 66 阅读程序： 因为默认的最小下标为 0这个三维数组可以认为,有 4 个二维数组;每个二维数组有 5 个一维数组,每个一维数组有 6 个元素参数是按地址传送,过程内部如果对参数作了改动,会影响到实参变量: 是分隔写在一行中的多个语句a 和 b 是实参
16、,swapp 运行时 a 和 b 的值将被改变按地址传送参数c 是静态变量,属于过程级变量，但是过程执行完毕的时候,其值仍被保留,直到程序运行结束才会被清除 第一次执行本语句后,c=1;第二次执行本语句后,c=2; 第二次执行完本语句,c=3省二级考试 VB 试题汇总第 10 页 共 79 页Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a
17、(4) = 8 subp a For i = 1 To 4 Print a(i);Next i End Sub 程序运行时，单击命令按钮得到的结果是_。 AA. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出错 67 假定有以下两个过程： Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End S
18、ub 则以下说法中正确的是_。 BA. 用过程 S1 可以实现交换两个变量的值的操作，S2 不能实现 B. 用过程 S2 可以实现交换两个变量的值的操作， S1 不能实现 C. 用过程 S1 和 S2 都可以实现交换两个变量的值的操作D. 用过程 S1 和 S2 都不能实现交换两个变量的值的操作68 在窗体上添加一个命令按钮 Command1 和两个名称分别为 Label1 和 Label2 的标签，在通用声明段声明变量 x,并编写如下事件过程和 SUB 过程：Private x As Integer Private Sub Command1_Click() x = 5: y = 3Call
19、proc(x, y)Label1.Caption = x Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。B对参数进行赋值,会改变相应实际参数的值a 作为实参调用过程 subpa 的值将被改变x、y 都是按 值 传送参数改变了参数(交换两个参数的值)不会对两个参数有影响x、y 都是按 地址 传送参数改变了参数(交换两个参数的值)对两个参数有影响调用自定义过程(代码见下)按 值 传送参数因为 y 是局部变量，proc 过程又是对第二个参数按值传送，所以 proc（）对 y 没有任何影响，输出的 y 还是原来的值全局变量
