二级VB考试_试题(真题)及详细答案_doc格式

2008 年秋浙江省计算机二级（vb）复习资料 　　　　　　　　历年试题与测试上机题库

2008 年春浙江省高等学校

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

说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题 1～试题 6，请在答卷上各小题

正确选项的对应位置处填“√”；

⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内；

⑶ 考试时间为 90 分钟;

试题 1（每小题  分，共  分）

Private Sub Form_Load()

(2)

End Sub

Private Sub Command1_Click()

Text1.Text = "": n = InputBox("n=")

End Sub

Private Sub Command2_Click()

If n < 0 Then n = -n: Text1.Text = "-"

While n <> 0

Text1.Text = (3)

、$%#&'  、$%#&'("

、$)!"' 、$)!"'("

、*+,$、-+,$

、$,*+ 、$,-+

.、'/+ 、'*+

、'-+、'+

试题 2（每小题  分，共  分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

第 1 页 共 101 页 答疑：info.zjfc.edu.cn/vbweb

2008 年秋浙江省计算机二级（vb）复习资料 　　　　　　　　历年试题与测试上机题库

P1.Line (-5, 0)-(100, 0)

P1.Line (0, -5)-(0, 100)

For i = (7)

P1.Line (i, 0)-(i, 2)

P1.Line (0, i)-(2, i)

Next i

For i = 1 To 9

P1.CurrentX = i * 10 - 2

P1.CurrentY = -2

(8)

、50 、+5+、+5+0+ 、5

6、、$ 、$、

试题 3（每小题  分，共  分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击“读文件”按钮将文本文件读入并逐行在列表框控件 % 中显示；然后单击“分解”

按钮将 % 每行中的英文字母、其他字符分别显示在 %、% 各行中。

运行结果如下图所示。

第 2 页 共 101 页 答疑：info.zjfc.edu.cn/vbweb

2008 年秋浙江省计算机二级（vb）复习资料 　　　　　　　　历年试题与测试上机题库

【程序】

Private Sub Command1_Click() '读文件

End Sub

Dim i As Integer, n As Integer, s1 As String, s2 As String

For i = 1 To (10)

n = Len(List1.List(i - 1))

ReDim a(n) As String * 1

For j = 1 To n

a(j) = (11)

Next j

s1 = "": s2 = ""

End Sub

【供选择的答案】

5、2、00、0 、7 0 

+、%$ 、% 、% 、%$% 

、-%$%484、-"%$%484

、-%$%48、-"%484

、89'::8;':<:789'::8;':=:

、89'>>8;'><>789'>>8;'>=>

、>>;'8;'><>7>>;'8;'>=>

、89'::8;':<:789'::8;':=:

第 3 页 共 101 页 答疑：info.zjfc.edu.cn/vbweb

2008 年秋浙江省计算机二级（vb）复习资料 　　　　　　　　历年试题与测试上机题库

试题 4（每小题  分，共  分）

Label1.Caption = Chr(K) + Label1.Caption

End If

End Sub

【供选择的答案】

 获得输入焦点后，依次按数字键 、、，%!" 显示：

、、、5、

. 获得输入焦点后，依次按数字键 、、5，%!" 显示：

、5 、5、5、6

 获得输入焦点后，依次按 、、、 键，%!" 显示：

、 、、、

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Static k As Byte

Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值

Form1.Cls

If k = 0 Then k = 1 Else k = 0

If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _

Form1.ForeColor = RGB(0, 0, 255)

Print Time

5如果将  过程中的语句“#&?改为“&?，激活 

后，窗体系统时间显示上的颜色为：

、蓝、绿色交替 、蓝色 、绿色 、红色

第 4 页 共 101 页 答疑：info.zjfc.edu.cn/vbweb

2008 年秋浙江省计算机二级（vb）复习资料 　　　　　　　　历年试题与测试上机题库

、4、@、、A

试题 6（每小题  分，共  分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

Private Sub f(b() As Integer, ByRef m As Integer)

Dim i As Integer, j As Integer, k As Integer

i = 1

Next j

If j > m Then i = i + 1 Else m = m - 1

Loop

End Sub

Private Sub Command1_Click()

Dim a(6) As Integer, i As Integer, n As Integer

n = 6

For i = 1 To 6: a(i) = InputBox("a(" & i & ")="): Next i

Call f(a, n)

For i = 1 To n: Print a(i); : Next i

单击  输入 、6、、.、5、 后，相应的显示结果为：

、65、65、.、.

第 5 页 共 101 页 答疑：info.zjfc.edu.cn/vbweb