浙江省计算机二级06年秋VB试题及答案

2006年秋浙江省高等学校
计算机等级考试试卷(二级Visual Basic)
说明：⑴考生应将所有试题的答案填写在答卷上。

其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；
⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；
⑶考试时间为90分钟;
试题1（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
•运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<1则重新输入，否则按钮Command1可用；
•按Command1计算费波那契数列第n项的值（该数列第1、2项均为1，此后各项为该项前两项之和，如：1、1、2、3、5、8、┄）；
•用消息框输出结果（右上图表示输入n为8后，输出结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。

【程序】
Dim n As Integer
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_KeyPress(k As Integer)
If (1) Then Exit Sub
n = Text1.Text
If n < 1 Then MsgBox ("n应大于零！"): Exit Sub
Command1.Enabled = True
End Sub
Private Sub Command1_Click()
Dim i As Integer
(2)
f(1) = 1: f(2) = 1
For i = (3)
f(i) = f(i-1) + f(i-2)
Next i
k = MsgBox("第" & n & "项为" & f(n) & "，是否继续？", (4) ) If k = vbYes Then
Text1.Text = "" : Command1.Enabled = False
Text1.SetFocus
Else
End
End If
End Sub
【供选择的答案】
(1) A、k = 13B、k <> 13 C、KeyAscii<>13D、KeyAscii=13
(2) A、Redim f(8) As Long B、Redim f(n) As Long
C、Dim f(n) As Long
D、Dim f(8) As Long
(3) A、1 To n B、1 To n Step 1 C、2 To n D、3 To n
(4) A、vbNo B、vbYes C、vbYesNo D、vbQuestion 试题2（每小题3分，共15分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。

Private Sub Command1_Click()
Dim i As Integer, j As Integer
(5)
For i = 0 To (6)
For j = 0 To (7)
If List1.List(i) = List2.List(j) Then (8)
Next j
If (9) Then List3.AddItem List1.List(i)
Next i
End Sub
【供选择的答案】
(5) A、List3.Clear B、List3.List="" C、List3.delete D、List3.Cls
(6) A、List1.ListCount B、List1.ListCount - 1
C、List2.ListCount
D、List2.ListCount - 1
(7) A、List2.ListCount - 1 B、List2.ListCount
C、List1.ListCount – 1
D、List1.ListCount
(8) A、Exit For B、Exit C、Exit Do D、Break
(9) A、j< List2.ListCount B、j<= List2.ListCount
C、j> List2.ListCount
D、j>= List2.ListCount
试题3（每小题3分，共15分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】
选择一个图象文件（BMP、JPG）后，在图片框控件P1中显示，按“反转”按钮后，将P1中每一像素在P2中相应位置以不同颜色显示。

【程序】
Private Sub Form_Load()
File1. (10) = "*.bmp;*.jpg"
P2.Width = P1.Width: P2.Height = P1.Height
P1.ScaleMode = 3: P2.ScaleMode = 3
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = (11)
End Sub
Private Sub File1_Click()
(12) GoTo kk
P1.Picture = LoadPicture(File1.Path + File1.FileName)
Exit Sub
kk:
P1.Picture = LoadPicture(File1.Path + "\" + File1.FileName) End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer, (13)
Dim r As Byte, g As Byte, b As Byte
For x = P1.ScaleLeft To P1.ScaleLeft + P1.ScaleWidth
For y = P1.ScaleTop To P1.ScaleTop + P1.ScaleHeight
c = P1.Point(x, y)
If c >= 0 Then
r = c Mod 256: c = c \ 256
g = c Mod 256: c = c \ 256
(14)
P2.PSet (x, y), RGB(255 - r, 255 - g, 255 - b)
End If
Next y, x
End Sub
【供选择的答案】
(10) A、Filter B、Pattern C、FileName D、Path
(11) A、Dir1.Path B、File1.Path C、Drive1.Path D、Drive1.Drive
(12) A、On Error B、In Error C、If Error D、If Error Then
(13) A、c As Byte B、c As Long C、c As Single D、c As Integer
(14) A、b = c Mod 255 B、b = c \ 256 C、b = c D、b = c / 256 试题4（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Form_click()
Dim n As Integer, i As Integer, k As Integer, j As Integer
Do
n = InputBox("请输入1个1至9之间的整数")
Loop Until 0 < n And n < 10
k = 10: j = 1
For i = 1 To n
Print Space(k); String(j, Trim(Str(i)))
If i <= n / 2 Then
k = k - 1: j = j + 2
Else
k = k + 1: j = j - 2
End If
Next i
End Sub
(15) 若运行时输入n值为2，窗体上的显示结果为：
A、 1
B、 1
C、 1
D、 2
121 222 123 121
(16) 若运行时输入n值为3，窗体上的显示结果为：
A、 1
B、 1
C、 1
D、 1
222 123 12 222
33333 12321 123 3
(17) 若运行时输入n值为4，窗体上的显示结果为：
A、 1
B、 1
C、 1
D、 1
222 222 123 222
3 33333 12345 33333
444 444 1234567 4444444
试题5（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Form_Load()
Timer1.Interval = 100 : Form1.WindowState = 2
Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeft
Label1.Alignment = 0: Label1.Caption = "运行中..."
End Sub
Private Sub Timer1_Timer()
Static m As Byte
m = m + 8: Label1.FontSize = m
Timer1.Interval = Timer1.Interval + 100
If m > 80 Then Timer1.Enabled = False
End Sub
(18) 程序运行后，事件过程Timer1_Timer自动执行的次数为：
A、9
B、10
C、11
D、0
(19) “运行中...”这段文字的显示位置始终在窗体的
A、窗体的左边
B、Label1的右边
C、窗体的右边
D、Label1的中间
(20) Label1的标题在窗体上的显示多次变化，其规律为：
A、字体变大、变化减慢
B、字体变小、变化减慢
C、字体变小、变化加快
D、字体变大、变化加快
试题6（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】
Private Sub Form_Load()
Form1.Height = Form1.Width * 2 / 3 Form1.FillColor = RGB(0, 0, 255) Form1.FillStyle = vbSolid End Sub
Private Sub Form_Activate() Scale (0, 0)-(300, 200) paint.Caption = "Circle"
Line -(150, 100), FillColor, BF End Sub
Private Sub paint_Click() Form1.Cls
If paint.Caption = "Circle" Then paint.Caption = "Rectanfle"
Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _ 255, , , ScaleHeight / ScaleWidth Else
paint.Caption = "Circle"
Line -(150, 100), FillColor, BF End If End Sub
(21) 菜单项标题为“Circle ”、名称为“paint ”，单击该菜单项后窗体上显示： A 、圆
B 、纵轴大于横轴的椭圆
C 、横轴大于纵轴的椭圆
D 、矩形
(22) 菜单项标题为“Rectanfle ”、名称为“paint ”，单击该菜单项后所显示图形： A 、红色边框无填充色的椭圆 B 、兰色边框黑色填充的矩形 C 、黑色边框兰色填充的椭圆
D 、兰色边框兰色填充的矩形
(23) 菜单项标题为“Circle ”，两次单击名称为“paint ”的该菜单项，窗体显示：
A 、椭圆
B 、矩形
C 、1个椭圆和1个矩形
D 、1个椭圆和1个正方形 (24) 菜单项标题为“Rectanfle ”，两次单击名称为“paint ”的该菜单项，窗体显示：
A 、椭圆
B 、矩形
C 、1个椭圆和1个矩形
D 、1个椭圆和1个正方形
试题7(14分)
编写事件过程Command1_Click ，计算下式的和，变量x 与n 的数值用输入对话框输入。

试题8(14分)
某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程： ⑴ 用通用对话框控件Commondialog1选择该文件； ⑵ 在Label1(0)～Label1(1) 显示总分最高的学生之学 号、总分。

)!
1(...!
4!
3!
232++
+++=n x x x x s n 文本文件格式
"05010101",78,89 "05010102",83,79 ......
计算机等级考试参考答案（二级Visual Basic ）
试题1～6 (每小题3分)
⑴ B ⑵ B ⑶ D ⑷ C ⑸ A ⑹ B ⑺ A ⑻ A ⑼ D ⑽ B ⑾ D ⑿ A ⒀ B ⒁ C ⒂ B ⒃ D ⒄ B ⒅ C ⒆ A ⒇ A (21)C (22)D (23)B (24) A
试题7 (每题14分)
Private Sub Command1_Click()
Dim s As Single, x As Single, t As Single Dim i As Integer, n As Integer x = InputBox("x=") n = InputBox("n=") s = x / 2: t = x / 2 For i = 3 To n + 1 t = t * x / i s = s + t Next i Print s End Sub
试题8 (每题14分)
Private Sub Form_Click()
Dim xh As String, zf As Integer
Dim x As String, k1 As Integer, k2 As Integer Commondialog1.ShowOpen
Open Commondialog1.FileName For Input As #1 Do while Not Eof(1)
Input #1,x,k1,k2
If k1 + k2 > zf Then
zf = k1 + k2
xh = x
End If
Loop
Close #1
Label1(0).Caption = xh
Label1(1).Caption = zf
End Sub。