2007年9月全国计算机二级VB试题(含word下载版)

（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab
的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是
A）通过属性窗口把计时器的Interval属性设置为2000
B）通过属性窗口把计时器的Enabled属生设置为False
C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$
D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是
（25）下面关于文件的叙述中错误的是
A）随机文件中各条记录的长度是相同的]
B）打开随机文件时采用的文件存取方式应该是Random
C）向随机文件中写数据应使用语句Print#文件号
D）打开随机文件与打开顺序文件一样，都使用Open语句
（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是
A）Picture1.Picture=”Flie1.jpg
B）Picture1.Picture=LoadPicture(“File1.jpg”)
C) LoadPicture(“File1.jpg”)
D）Call LoadPicture(“File1.jpg”)
（27）下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k = 1 To 10
a(k) = 11 – k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub
A）3 B）5 C）7
（28）为达到把a、b中的值交换后输出的目的，某人编程如下：
Private Sub Command1_Click()
a% = 10:b% = 20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c= a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是
A）调用swap过程的语句错误，应改为Call swap a,b
B）输出语句错误，应改为：Print ”a”,”b”
C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)
D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a
（29）有如下函数：
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer
While a >=n
a=a-n
m= m+1
Wend
fun=m
End Function
该函数的返回值是
A）a乘以n的乘积 B）a加n的和
C）a减n的差 D）a除以n的商（不含小数部分）
（30）下面程序的输出结果是
Private Sub Command1_Click()
ch$=”ABCDEF”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S=””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A）ABCDEF B）FEDCBA C）A D）F
（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a() As Integer) As Integer
Dim max%
max=1
For k = 2 To 10
If a(k)>a(max) Then
max = k
End If
Next k
MaxValue = max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是
A）语句max = 1应改为max = a(1)
B）语句For k = 2 To 10应改为For k = 1 To 10
C）If语句中的条件a(k)>a(max)应改为a(k)>max
D）语句MaxValue = max 应改为MaxValue = a(max)
（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click()
Dim n%,b,t
t = 1:b = 1:n = 2
Do
b = b*n
t = t + b
n = n +1
Loop Until n>9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是
A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！
（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)
cmdmave = True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)
cmdmave = False
End Sub
此程序的功能是
A）每按下鼠标键一次，在鼠标所指位置画一个点
B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
酷影网(ky530.com)转载请注明出处,http://www.ky530.com/ncre/02/2007-nian-12-yue-ji-suan-ji-er-ji-VB.html
关键词: 计算机,计算机二级