浙江计算机二级VB真题2006~2010全部真题详尽答案.doc

2006年秋浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 试题1（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 ?运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n1则重新输入，否则按钮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 13C、13 D、 (2) A、B、C、D、 (3) A、 To n B、 To n Step 1 C、 To n D、3 To n A、B、C、D、 (5) A、 B、C、D、 A、B、 C、D、A、B、C、– 1 D、A、B、C、D、A、B、C、D、【程序】 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、 B、PatternC、D、 A、D1.Path B、.Path