06年春秋07春二级VB试卷及答案

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

9

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 = \

Line -(150, 100), FillColor, BF End Sub

Private Sub paint_Click() Form1.Cls

If paint.Caption = \ paint.Caption = \

Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _ 255, , , ScaleHeight / ScaleWidth Else

paint.Caption = \

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的数值用输入对话框输入。

xx2x3xn s????...?试题8(14分)

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

\05010102\,83,79

......

......

10

2!3!4!(n?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(\ n = InputBox(\ 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

变量声明2分 输入语句2分 循环前赋初值2分 输出语句1分 如果程序逻辑上混乱，语法上较多错误，该题最多得以上7分（包括用自定义函数求阶乘的编写方法）。 试题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 变量声明2分 If k1 + k2 > zf Then

调用通用对话框2分 zf = k1 + k2

Open语句2分 xh = x

显示输出语句1分 End If

Loop

Close #1 如果程序逻辑上 Label1(0).Caption = xh 混乱，语法上较多错 Label1(1).Caption = zf 误，该题最多得以上7End Sub

分。

2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic)

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

的对应位置处填“√”；

⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90分钟; 试题1（每小题3分，共12分）

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

【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。

【程序】

11

Private Sub f( (1) ) Dim i As Integer i = 2

Do While (2)

If (3) Then k = k /i: Print i; Else i = i + 1 Loop End Sub

Private Sub Form_Click() Dim n As Integer Do

n = InputBox(\ Loop (4) Call f(n) Print End Sub

【供选择的答案】

(1) A、n As Integer B、k As Integer C、Byval n As Byte D、I As Integer

(2) A、k>1 B、k>=1 C、k=1 D、k Mod i=0 (3) A、k\\i=0 B、k\\i*i=0 C、n Mod i=0 D、(k\\i)*i=k (4) A、Until n>6 B、While n>=6 C、Until n>=6 D、While n>6 试题2（每小题3分，共15分）

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

统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。

Dim n As Integer

Private Sub Command1_Click()

If Command1.Caption = \开始\ Then Command1.Caption = \显示\ P1.Enabled = True: n = 0 Else

Command1.Caption = (5)

P1.Enabled = False: MsgBox(\单击该区域\ + (6) + \次\) End If End Sub

Private Sub Form_Activate() P1.Width = P1.Height

P1.Scale(-3, 3) - (3, -3) P1.FillStyle = (7)

P1.FillColor = (8) : P1.Circle(0, 0), 2 P1.FillColor = vbwhite: P1.Circle(0, 0), 1 End Sub

Private Sub Form_Load()

Command1.Caption = \开始\: P1.Enabled = False End Sub

Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single)

If x * x + y * y >= 1 And (9) Then n = n +1 End Sub

【供选择的答案】

(5) A、\退出\ B、\开 始\ C、\显示\ D、\开始\

(6) A、n B、Val(n) C、Str(n ) D、Trim(n) (7) A、1 B、0 C、2 D、3

12