说明：⑴
考生应将所有试题的答案填写在答卷上。其中试题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 = 13
B、k <> 13

C、KeyAscii<>13
D、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分)
某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：

文本文件格式 "05010101",78,89 "05010102",83,79 ...... ......

⑴ 用通用对话框控件Commondialog1选择该文件；
                          ⑵
在Label1(0)～Label1(1) 显示总分最高的学生之学
                             号、总分。

计算机等级考试参考答案（二级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

把附件也传上来吧