浙江省vb计算机,浙江省计算机vb二级-优快云博客

这篇博客探讨了使用VB进行程序设计的基础知识，包括处理费波那契数列的算法实现以及列表操作。在费波那契数列的实现中，程序接收用户输入，验证输入有效性，并计算指定项的数值。同时，程序还涉及到了列表框(List1, List2, List3)的操作，通过遍历和比较，将List1中存在的但不在List2中的元素添加到List3。此外，还展示了如何处理图片显示和反转功能的实现，涉及图片框(PictureBox)的使用和像素操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

2006 年秋浙江省高等学校

计算机等级考试试卷(二级计算机等级考试试卷二级 Visual Basic)

试题 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) Then Exit Sub If (1) 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) & "，是否继续？", If k = vbYes Then Text1.Text = "" : Command1.Enabled = False Text1.SetFocus Else End End If End Sub

(4)

)

(1) A、k = 13 B、k <> 13 (2) A、Redim f(8) As Long C、Dim f(n) As Long (3) A、1 To n (4) A、vbNo

C、KeyAscii<>13

D、KeyAscii=13

B、Redim f(n) As Long D、Dim f(8) As Long C、2 To n C、vbYesNo D、3 To n D、vbQuestion

B、1 To n Step 1 B、vbYes

试题 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 Then List3.AddItem List1.List(i) If (9) Next i End Sub (5) A、List3.Clear B、List3.List="" C、List3.delete (6) A、List1.ListCount C、List2.ListCount (7) A、List2.ListCount - 1 C、List1.ListCount – 1 (8) A、Exit For B、Exit (9) A、j< List2.ListCount C、j> List2.ListCount

D、List3.Cls

B、List1.ListCount - 1 D、List2.ListCount - 1 B、List2.ListCount D、List1.ListCount C、Exit Do

D、Break B、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 = End Sub Private Sub File1_Click() (12)