发布时间 : 星期六 文章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)