2007年秋至2010年秋江苏省计算机二级VB考试真题及参考答案

24.设变量I和J是整型变量,K是长整型变量。I已赋值32763,J和K分别赋值5,若接着执行以

下语句,可正确执行的是___(24)___。 A.I=I+K B.J=I+K C.K=I+J+K D.K=K+I+J

25.以下关系表达式中,运算结果为False的是 ___(25)___ A.CInt(3.5)-Fix(3.5)>=0 B.CInt(3.5)-Int(3.5)>=0 C.Int(3.5)+Int(-3.5)>=0 D.Int(3.5)+Fix(-3.5)>=0

26.以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是___(26)___ A.Left(s,i) & Right(s,Len(s)-i) B.Left(Right(s,Len(s)-i+1),i) C.Left(Right(s,i),Len(s)-i+1) D.Left(s,Len(s)-i) & Right(s,i) 27.数学表达式的VB算术表达式为____(27)____ A.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/(x-y)) B.Sqr(x*y^3)+Abs((Exp(x)+Sin(x)^3)/(x-y)) C.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/x-y)

D.Sqr((x*y)^3)+Abs((Exp(x)+Sin(x)^3)/(x-y))

28.以下有关数组的说法中,错误的是___(28)___。

A.使用ReDim语句,可以改变任何数组的大小与维数 B.使用ReDim语句,可以定义一个新数组

C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量 D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小 29.以下有关Function过程的说法中,正确的是___(29)___ 。 A.函数名在过程中只能被赋值一次

B.如果在函数体内没有给函数名赋值,则该函数无返回值

C.如果在定义函数时没有说明函数的类型,则该函数是无类型的

D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点 30.以下有关文件用法的描述中,正确的是___(30)___ A.只有顺序文件在读写前需要使用Open语句打开 B.使用同一个文件号,可同时打开多个不同的文件

C.如果以Input方式试图打开一个不存在的顺序文件,则会出错

D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

1.运行下面程序,单击CmdRun,在窗体上显示a的值是___(1)___;b的值是___(2)___;i的值是___(3)___ 。 Option Explicit

Private Sub CmdRun_Click()

Dim i As Integer,a As Integer,b As Integer a=1:b=10

For i=a To b Step a+1 a=a+1 b=b+1 i=i+1 Next i Print a,b,i

End Sub

2.执行下面程序,单击Command1,数组元素a(3,2)的值是___(4)___,a(1,2)的值是___(5)___,a(2,3)的值是___(6)___ Option Explicit Option Base 1

Private Sub Commandl_Click()

Dim n As Integer,i As Integer,j As Integer Dim a(3,3)As Integer,k As Integer n=3:k=1

i=n:j=(n+1)/2 a(i,j)=k

For k=2 To n*n i=i+1:j=j+1

If i>n And j<=n Then i=1

ElseIf i<=n And j>n Then j=1

ElseIf i>n And j>n Then i=i-2:j=j-1

ElseIf i<=n And j<=n And a(i,j)<>0 Then i=i-2:j=j-1 End If a(i,j)=k Next k For i=1 To n For j=1 To n

Pic1.Print Right(\ \ Next j Pic1.Print Next i End Sub

3.运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,,最后一行是___(9)___。 Option Explicit

Private Sub Cmd1_Click() Dim A As Integer A=3

Call Sub1(A) Print A End Sub

Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X)