04秋～08春 浙江VB二级考卷及答案
2008年春浙江省高等学校
(Visual Basic) 说明：? 考生应将所有试
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
的答案填写在答卷上。其中试题1～试题6，请在答卷上各小
题正确选项的对应位置处填“?”；
? 请将你的准考证号的后五位填写在答卷右下角的指定位置内；
? 考试时间为90分钟;
1（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入123显示321，输入-567显示-765。
【程序】
(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)
(4)
Wend
End Sub
【供选择的答案】
(1) A、Dim n As Byte B、Dim n As Integer
C、Dim n As String D、Public n As Byte
(2) A、Text1.Locked = True B、Text1.Locked = False
C、Text1.Visible = True D、Text1.Visible = False
(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text
C、Text1.Text & n/10 D、Text1.Text & n Mod 10
(4) A、n = n \ 10 B、n = n / 10
C、n = n Mod 10 D、n = n - 10
2（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】
运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。
1
Private Sub Form_Activate()
P1.Height = P1.Width
P1.FontSize = 10
(5) (-10, 110)-(110, -10)
(6)
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)
Next i
End Sub
【供选择的答案】
(5) A、P1.Draw B、P1.Line C、P1.Print D、P1.Scale (6) A、P1.ForeColor = RGB(255,0,0) B、P1.FillColor = RGB(255,0,0)
C、P1.FillColor = VbRed D、P1.ForeColor = Red
(7) A、1 To 9 Step 1 B、10 To 90 C、10 To 90 Step 10 D、2 To 9 (8) A、PSet i B、P1.Print i C、P1.Pset i D、Print i 3（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】
单击“读文件”按钮将文本文件读入并逐行在列
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
框控件List1中显示；然后单击“分
解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。 运行结果如下图所示。
2
【程序】
Private Sub Command1_Click() '读文件
Dim s As String
Open "e:\xxx.txt" For (9) As #1
While Not EOF(1)
Line Input #1, s : List1.AddItem s
Wend
Close #1
End Sub
Private Sub Command2_Click() '分解
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 = ""
For j = 1 To n
If (12) Then s1=s1+a(j) Else s2=s2+a(j)
Next j
List2.AddItem s1
List3.AddItem s2
Next i
End Sub
【供选择的答案】
( 9)A、Read B、Append
C、Input D、Output (10)A、List1.Count B、ListCount
C、ListCount-1 D、List1.ListCount (11)A、Mid(List1.List(i-1),j,1) B、Middle(List1.List(i-1),j,1)
C、Mid(List1.List(i-1),j) D、Middle(List1(i-1),j,1) (12)A、a(j)>='a' And a(j)<='z' Or a(j)>='A' And a(j)<='Z'
3
B、a(j)>="a" And a(j)<="z" Or a(j)>="A" And a(j)<="Z"
C、"a"<=a(j)<="z" Or "A"<=a(j)<="Z"
D、(a(j)>='a' And a(j)<='z') Or (a(j)>='A' And a(j)<='Z')
4（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub Text1_KeyPress(K As Integer)
If K < Asc("0") Or K > Asc("9") Then
K = 0
Else
Label1.Caption = Chr(K) + Label1.Caption
End If
End Sub
【供选择的答案】
(13) Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：
A、135 B、531 C、9 D、5
(14) Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：
A、972 B、279 C、297 D、18
(15) Text1获得输入焦点后，依次按 -、2、3、5键，Label1显示：
A、-532 B、-235 C、532 D、235
(16) Text1获得输入焦点后，依次按 1、2、a、5键，Label1显示：
A、空白 B、12a5 C、5a21 D、521
5（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub Form_Load()
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
End Sub
【供选择的答案】
(17) 激活Timer1后，每间隔1秒显示一次系统时间，方式是：
A、蓝、绿色交替显示 B、蓝色显示 C、绿色显示 D、红色显示 (18) 系统时间的显示位置，是在：
4
A、窗体右上角 B、窗体左上角 C、窗体右下角 D、窗体左下角 (19) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1
后，窗体系统时间显示上的颜色为：
A、蓝、绿色交替 B、蓝色 C、绿色 D、红色 (20) 如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：
A、Date,Time B、Date;Time C、Date-Time D、Date + Time
6（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】
Private Sub f(b() As Integer, ByRef m As Integer)
Dim i As Integer, j As Integer, k As Integer
i = 1
Do While i <= m
For j = 1 To m
If b(i) Mod b(j) = 0 And i <> j Then
For k = i To m - 1: b(k) = b(k + 1): Next k
Exit For
End If
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
End Sub
(21) 单击Command1输入7、8、5、4、9、3后，相应的显示结果为：
A、8 9 3 B、8 9 3 3 3 3 C、7 5 4 3 3 3 D、7 5 4 3 (22) 如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(21)，显示结果为：
A、8 9 3 B、8 9 3 3 3 3 C、7 5 4 3 3 3 D、7 5 4 3 (23) 单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：
A、4 3 3 3 3 3 B、4 3 C、12 27 8 -6 D、12 27 8 (24) 如果将过程f首句中的“ByRef”改为“Byval”，输入数据同(23)，显示结果为：
A、4 3 3 3 3 3 B、4 3 C、12 27 8 -6 D、12 27 8
7(28分)
编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。
请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。
5
2008年春计算机等级考试参考答案(二级Visual Basic)
试题1~6（每小题3分）
1 2 3 4 5 6 7 8
B A D A D A C B
9 10 11 12 13 14 15 16
C D A B B A C D 17 18 19 20 21 22 23 24
A B B C D C B A
试题7（28分）
Private Sub Command1_Click()
Dim a(5) As Single, i As Integer
For i = 1 To 5
a(i) = InputBox("please input")
Next i
Call f(a, 5)
End Sub
Public Sub f(a() As Single, m As Integer)
Dim s As Single, v As Single, z As Integer
For i = 1 To m
s = s + a(i)
Next i
v = s / m
x = Abs(a(1) - v)
z = 1
For i = 2 To m
If Abs(a(i) - v) < x Then
x = Abs(a(i) - v)
z = i
End If
Next i
Print "平均值是"; v
Print "最小的那个数组元素是"; a(z)
End Sub
6
2007年秋浙江省高等学校
(Visual Basic)
说明：? 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小
题正确选项的对应位置处填“?”；
? 请将你的准考证号的后五位填写在答卷右下角的指定位置内；
? 考试时间为90分钟;
1（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
2【程序说明】单击Command1后计算a•x＋b•x＋c的值并显示，界面
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
以及运行时的
显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。
【程序】
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x As Single, y As Single
a = Text1(0).Text: b = Text1(1).Text
c = Text1(2).Text: x = Text1(3).Text
y = a * x * x + b * x + c
Label3.Caption = y
End Sub
Private Sub Text1_ (1) (Index As Integer, (2) )
Select Case (3)
Case "A" To "Z"
K = 0
Case (4)
K = 0
End Select
End Sub
【供选择的答案】
(1) A、keyPress B、change C、keydown D、keyup (2) A、keyAscii As Integer B、Value C、Text() D、k As Integer
(3) A、Chr(KeyAscii) B、Chr(K) C、Asc(K) D、Asc(KeyAscii) (4) A、a To z B、'a' To 'z' C、"a" To "z" D、'a'...'z' 2（每小题3分，共12分）
7
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】
过程f的功能是：返回Single类型数组n个元素的平均值，查找数组中最大值、最小
值并通过相应的实参返回到调用处。该过程可以被其他模块中的过程所调用。
(5) f(a() As Single, n As Integer, (6) ) As Single
Dim i As Integer
max = a(1): min=a(1)
For i = 1 To n
If a(i)>max Then max=a(i)
If a(i)
a(k) B、a(i)a(k) D、a(j)=n-5 B、i>n-5 C、n>5 D、i 0
f = f + a
Loop
End Function
Private Sub Command1_Click()
Static k As Integer
Dim m As Integer, n As Integer
m = InputBox("m=")
n = InputBox("n=")
k = k + 1
Form1.Cls
Print f(m, n)
End Sub
【供选择的答案】
(17) 运行时第1次单击Command1输入4、6后，窗体上的显示结果为：
A、4 B、24 C、8 D、12 (18) 运行时第2次单击Command1输入15、10后，窗体上的显示结果为：
A、150 B、20 C、30 D、2 (19) 运行时第3次单击Command1输入4、10后，窗体上的显示结果为：
A、10 B、20 C、40 D、80 (20) 第4次单击Command1后，该事件过程中变量k的当前值为：
A、4 B、3 C、0 D、2
6（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。界面
设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。
【程序】
Private Sub Form_Load()
Picture1.Width = Picture1.Height
Picture1.Scale (-10, 10)-(10, -10)
10
Picture1.BorderStyle = 0
HScroll1.SmallChange = 2: HScroll1.LargeChange = 10
End Sub
Private Sub HScroll1_Change()
Dim t As Single
Picture1.Cls
t = HScroll1.Value * 3.14159 / 180
Label1.Caption = HScroll1.Value
Picture1.Circle (0, 0), 10, vbRed
Picture1.Line (0, 0)-(9 * Cos(t), 9 * Sin(t))
End Sub
(21) 决定运行时图片框控件边框不显示的相关属性为：
A、BackColor B、ForeColor C、FillStyle D、BorderStyle (22) 滚动条Value属性值为180时，以原点为起点的直线指向：
A、12点方向 B、9点方向 C、6点方向 D、3点方向 (23) 滚动条Value属性值为270时，以原点为起点的直线指向：
A、12点方向 B、9点方向 C、6点方向 D、3点方向 (24) 下列说法中正确的是：
A、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件
B、拖动滚动条滑块的过程结束后立即触发HScroll1_Change事件
C、单击滚动条两端箭头时Value的增量为10或-10。
D、单击滚动条上空白区域时Value的增量为2或-2。
7(28分)
2n,1a，ax，ax，？，ax编程，计算多项式的值。在文本框控件Text1、Text2中123n
分别输入n、x后，按Command1可输入，按Command2可计算该多项式a、a、a、？、a123n的值并以标签控件Label3显示。
程序设计时的界面设计如下图左所示。运行时输入n为3、x为1.5，输入a、a、a分123
别为1、2、3后的输出结果如下图右所示。请将答卷上各事件过程补充完整。
11
2007
(Visual Basic)
1~63
1 2 3 4 5 6 7 8 A D B C A A B D 9 10 11 12 13 14 15 16 A B C B A B D C 17 18 19 20 21 22 23 24 D C B A D B C B
728
12
2007年春浙江省高等学校
(Visual Basic) 说明：? 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小
题正确选项的对应位置处填“?”；
? 请将你的准考证号的后五位填写在答卷右下角的指定位置内；
? 考试时间为90分钟;
1（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如
输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。 【程序】
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("n=")
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()
13
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 (8) A、vbblank B、Rgb(255,0,0) C、vbwhite D、Rgb(255,255,0) (9) A、x*x+y*y<=4 B、x>2 And y>2 C、x*x+y*y<=2 D、x*x+y*y>4
3（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】
某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有
数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。
【程序】
Private Sub Command1_Click()
Dim x As Single
List1.Clear: CommonDialog1.Action = 1
Open CommonDialog1.FileName For (10) As #1
Do While (11)
Input #1, x: List1.Additem x
Loop
Close #1
14
End Sub
Private Sub Command2_Click()
Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer
n = List1. (12)
Redim a(n) As Single
For i = 1 To n: a(i) = List1.List(i-1): Next i
For i = 1 To n -1
k = i
For j = i+1 To n: If (13) Then k = j: Next j
x = a(k): a(k) = a(i): a(i) = x
Next i
Open CommonDialog1.FileNmae For Output As #1
For i = 1 To n: Print #1,a(i): Next i
Close #1
End Sub
【供选择的答案】
(10) A、Output B、Input C、Append D、Read (11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn) (12) A、Count B、ListCount-1 C、List D、ListCount (13) A、a(j)>a(k) B、a(j)<=a(k) C、a(j)<>a(k) D、a(j) "9") And k<> 13 Then k=0
If k=13 Then s = s + Val(Text1.Text): Text1.Text = "": Print s;
End Sub
(14) 写出运行时在Text1中依次按“1? 3? 5? ”后窗体上的显示结果。
A、1 4 9 B、9 C、1 3 5 D、5
(15) 写出运行时在Text1中依次按“2? 4? 6? ”后窗体上的显示结果。 A、2 4 6 B、12 C、6 D、2 6 12
(16) 写出运行时在Text1中依次按“1? -3? 5? ”后窗体上的显示结果。 A、1 -2 3 B、1 4 9 C、1 -3 5 D、3
(17) 写出运行时在Text1中依次按“1? 2a? 5? ”后窗体上的显示结果。 A、1 43 48 B、1 2 5 C、5 D、1 3 8
5（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
15
【程序】
Private Function f(a As Integer, b As Integer) As Integer
Dim r As Integer, t As Integer
If a < b Then t = a: a = b: b = t
Do
r = a Mod b
If r = 0 Then Exit Do
a = b: b = r
Loop
f = b
End Function
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = InputBox("m="): n = InputBox("n=")
Form1.Cls: Print f(m, n)
End Sub
(18) 运行时若输入m值为15、n值为25，窗体上的显示结果为：
A、25 B、15 C、5 D、3 (19) 运行时若输入m值为24、n值为16，窗体上的显示结果为：
A、24 B、16 C、8 D、2 (20) 运行时若输入m值为123、n值为23，窗体上的显示结果为：
A、100 B、1 C、23 D、146
6（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub f(n As Integer, k As Integer, x As String)
Dim m As Integer, t As Integer
x= "": m = n : n = Abs(n)
Do While n <> 0
t = n Mod k
If k=16 And t>9 Then x = Chr(Asc("a")+t-10) + x Else x = t & x
n = n \ k
Loop
If m < 0 Then x = "-" + x
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer, s As String
x = Inputbox("x="): y = Inputbox("y=")
Call f(x, y, s)
Form1.Cls: Print s
End Sub
(21) 运行时若输入x值为13、y值为2，窗体上的显示结果为：
16
A、1011 B、33 C、1101 D、1001 (22) 运行时若输入x值为27、y值为8，窗体上的显示结果为：
A、33 B、1101 C、1011 D、1001 (23) 运行时若输入x值为-14、y值为2，窗体上的显示结果为：
A、-1110 B、1101 C、1101- D、1011 (24) 运行时若输入x值为123、y值为16，窗体上的显示结果为：
A、123 B、321 C、b7 D、7b
7(28分)
按照下列要求和规定的步骤编程：
? 编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是
6，引用sum(-23)的结果是5，等等）。
? 编写事件过程Command1_Click，完成下列运算：
? 输入10个数到整型数组a；
? 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数
字和赋值到b(10)【要求调用函数sum实现】；
? 在窗体上以一行输出a数组各元素值（保持原输入值不变）；
? 在窗体上以一行输出b数组各元素值。
17
2007年春计算机等级考试参考答案(二级Visual Basic)
试题1~6（每小题3分）
1 2 3 4 5 6 7 8
B A D C D C B A
9 10 11 12 13 14 15 16
A B B D A A D B 17 18 19 20 21 22 23 24
D C C B C A A D
试题7（28分）
Private Function sum(ByVal n As Integer) As Integer ' 4分
n = Abs(n) ' 2分
Do While n > 0
sum = sum + n Mod 10 ' 3分
n = n \ 10 ' 3分
Loop
End Function
Private Sub Command1_Click()
Dim a(10) As Integer, b(10) As Integer, i As Integer ' 2 分
For i = 1 To 10
a(i) = InputBox("a(" & i & ")") ' 3分
Next i
For i = 1 To 10
b(i) = sum(a(i)) ' 4分
Next i
For i = 1 To 10
Print a(i); ' 3分
Next i
Print
For i = 1 To 10
Print b(i); ' 2分
Next i
End Sub
18
2006年秋浙江省高等学校
(Visual Basic) 说明：? 考生应将所有试题的答案填写在答卷上。其中试题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
19
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中显示，按“反转”按钮后，将
20
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
21
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分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
22
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
23
(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的数值用输入对话框输入。 xxxx23n s,，，，...，2!3!4!(n，1)!
8(14分)
某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：
? 用通用对话框控件Commondialog1选择该文件； 文本文件格式 ? 在Label1(0)～Label1(1) 显示总分最高的学生之学 "05010101",78,89
号、总分。 "05010102",83,79
......
......
24
2006Visual Basic
(每小题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
(每题14分)
变量声明2分 Private Sub Command1_Click()
输入语句2分 Dim s As Single, x As Single, t As Single
循环前赋初值2分 Dim i As Integer, n As Integer
输出语句1分 x = InputBox("x=")
n = InputBox("n=")
如果程序逻辑上 s = x / 2: t = x / 2
混乱，语法上较多错 For i = 3 To n + 1
误，该题最多得以上7 t = t * x / i
分（包括用自定义函数 s = s + t
求阶乘的编写方法）。 Next i
Print s
End Sub
(每题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)
变量声明2分 Input #1,x,k1,k2
调用通用对话框2分 If k1 + k2 > zf Then
Open语句2分 zf = k1 + k2
显示输出语句1分 xh = x
End If
如果程序逻辑上 Loop
混乱，语法上较多错 Close #1
误，该题最多得以上7 Label1(0).Caption = xh
分。 Label1(1).Caption = zf
End Sub
25
2006年春浙江省高等学校
(Visual BASIC)
315
阅读下列程序说明和程序，在每一小题提供的若干可选答案中，挑选一个正确答案
界面设计如下图所示，程序运行时要求完成以下功能： (1) 按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且a>b，并分
别在Label1、Label2中显示，此后Command1不可用； (2) 在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做
错的题数，Command1恢复为可用；
(3) 按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。
【程序】
Dim n As Integer, n_error As Integer
Private Sub Command1_Click()
Dim c as Integer
a = 10 + Rnd * 90
b = 10 + Rnd * 90
If a < b Then
Label1.Caption = a
Label2.Caption = b
n = n + 1
Text1.Text = ""
Command1.Enabled = False
End Sub
Private Sub Text1_ (KeyAscii As Integer)
If KeyAscii<>13 Then
If a - b = Val(Text1.Text) Then
MsgBox ("回答正确")
Else
MsgBox ("不回答正确")
26
n_error = n_error + 1
End If
Command1.Enabled = True
End Sub
Private Sub Command2_Click()
MsgBox
End Sub
【供选择的答案】
(1) A、'
小学
小学生如何制作手抄报课件柳垭小学关于三违自查自纠报告小学英语获奖优质说课课件小学足球课教案全集小学语文新课程标准测试题
生两位数减法训练程序 B、a=0: b=0: c=0
C、n=0: n_error=0 D、Dim a As Byte, b As Byte, c As Byte (2) A、 b=a: a=b B、c=a: a=b: b=c
C、 a=b: b=a D、c=a: b=a : a=c
(3)A、keypress B、change C、keyDown D、KeyUp (4)A、Exit Sub B、keyAscii=13 C、keyAscii=0 D、Exit Do (5) A、″共″& n &″题，错″& n error & ″题″
B、″共n 题，错n error题″
C、″共″+ n + ″题，错″+ n error +″题″
D、共 & n & ″题，错″ & n error & ″题″
2312
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】
输入n后，再输入n个数a , a ,„,a ,按照下列公式计算S的值并显示。 12n
222()()...()avavav,,，，,aaa，，...12n12nV = S = nn
【程序】
Private Function f( （ 6） ) As Single
Dim i As Integer
For i = 1 To n
f = f + x(i)
Next i
End Function
Private Sub Command1_Click()
Dim n As Integer, a() As Single, i As Integer
Dim v As Single, s As Single
n = InputBox("输入数据个数")
（7）
For i = 1 To n
a(i) = InputBox("a(" & i & ")=", "输入各数组元素")
Next i
27
v = f(a, n) / n
For i = 1 To n
s = (8)
Next i
(9)
End Sub
【供选择的答案】
（6） A、x() As Single ,n As Integer B、x(n) As single
C、a As Single, n As Integer D、n As Integer,x()As Single （7） A、Dim a(n) As Single B、ReDim a( )
C、Dim a (n) D、ReDim a(n) (8) A、(a(i)-v)*(a (i)-v) B、s+a(i)-vˆ2
C、s+(a(i)-v)ˆ2 D、(a(i)-v)ˆ2 (9) A、s=sˆ0.5/n B、Print sˆ0.5/n
C、Print Sqr(s) D、Sqr(s)/n
3315
阅读下列程序说明和程序，在每小题提供的若干答案中，挑选一个正确答案。
【程序说明】
图片框控件PP 除Name 属性外均缺省值，将鼠标在P拖动绘制矩形框（边框颜色通过通1 、21用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角：
鼠标抬起后，将P中矩形区域的图象在P中重新绘制，如下图所示。 12
【程序】
（10）
Private sub p1_ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
X1=X: Y1=Y
End Sub
Private Sub p1_ Mouseup (Button As Integer, Shift As Integer, X As single, Y As
Single )
28
Dim j As Single, i As Single, jk As Single, ik As Single
Dim (11)
jk = P2.ScaleWidth / (X - x1): ik = P2.ScaleHeight / (Y - y1)
Commondialogl.Action = (12) P1.Line (x1,y1)-(x,y),Commondialogl.Color, B
For j =x1 To x
For i =y1 To Y
C= (13) ,读取该点处的颜色值
（14）
next I,j
Next Sub
【供选择的答案】
（10）A、Dim x As Single, y As Single B、Dim x2 As Single, y2 As Single
C、Public x1 As Single, y1 As Single D、Dim x1 As Single, y1 As Single (11) A、c As Long B、c As Integer C、c As Single D、c As Double (12) A、1 B、2 C、3 D、4 (13) A、p1.pset(j, i ) B、p2.pset(j,i )
C、p1.point(j,i) D、p1.point(i,j )
(14) A、p2. pSet((j-x1)*jk,(i-y1)*ik),c B、p1.pset((j-x1)*jk,(i-y1)*ik),c
C、 p2. pSet((i-y1)*ik,(j-x1)*jk),c D、p1. pset((i-y1)*ik,(j-x1)*jk),c
（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub Form_Load()
Text1.Text = "": List1.C1ear
End Sub
Private Sub Text1_keypress(K As Integer)
Dim n As Integer
' If K>=Asc("0") And K<=("9") Then k=0
If K = 13 Then
List1.AddItem Text1.Text, n
n = n + 1
Text1.Text = ""
End If
End Sub
(15) 运行时在文本框控件Text1中依次输入3个以回车结束的字符串"abc34"、"xy12$"、
"+-*/"，列表框中各表项依次为:
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc
(16)如果将语句Dim n As Integer用 Static n As Integer替换，运行时在文本框中依次输入3个以回车结束的字符串"abc34"、"xy12$"、"+-*/"，列表框中各表项依次为：
29
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc
(17)如果将语句Dim n As Integer后一条语句前的注释符删除，运行时在文本框中依次输
入3个以回车结束的字符串"abc34"、"xy12$"、"+-*/"，列表框中各表项依次为：
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc
（每小题3分，共12分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub f(s As String)
Dim i As Integer, n As Integer, c As String
n = Len(s)
If n Mod 2 = 1 Then c = Mid(s, n \ 2 + 1, 1)
For i = 1 To Len(s) \ 2
c = Mid(s, Len(s) + 1 - i, 1) + c + Mid(s, i, 1)
Next i
s = c
End Sub
Private Sub Command1_Click()
Dim x As String
x = InputBox(" x =")
Call f(x)
Print x
End Sub
(18)单击Command1后输入"abc"，窗体上显示结果为： A、cba B、bca C、abc D、acb (19)单击Command1后输入"abcd"，窗体上显示结果为： A、 abdc B、cdab C、abcd D、bcad （20）如果将Sub过程f首句改为private Sub f(Byva1 s As String),单击Command1后
输入"abcd",窗体上显示结果为：
A、 abdc B、cdab C、abcd D、bcad （21）如果将Sub过程f首句改为private Sub f (Byref s As String),单击Command1
后输入"abcd",窗体上显示结果为：
A、 abdc B、cdab C、abcd D、bcad
（每小题3分，共9分）
阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
Private Sub commandl_click()
30
Dim i As Integerl, fn As Byte
fn = FreeFile
Open "e :\ aaa.txt" For Output As #fn
For i = l To 20
If Sqr(i) = Int(Sqr(i)) Then Print #fn, i
Next i
Close #fn
End Sub
(22)如果文件e:\aaa.txt 已存在并已有数据 1、4，执行以上过程后文件中全部数据为：
A、1，4，1，4，9，16 B、1，4，9，16 C、1，4
D、2，4，6，8，10，12，14，16，18
(23)如果文件e:\aaa.txt 不存在，执行以上过程后文件中全部数据为：
A、1，4，1，4，9，16 B、1，4，9，16 C、空
D、2，4，6，8，10，12，14，16，18
(24)如果文件e:\aaa.txt 已存在并已有数据 1、4，且程序中文件打开方式改为Append,执行以上过程后文件中全部数据为：
A、1，4，1，4，9，16 B、1，4，9，16 C、1，4
D、2，4，6，8，10，12，14，16，18
（14分）
编写过程Commandl_Click,用 InputBox函数输入100个学生的成绩，统计后依次用标
签控件Labell~Labe13显示优秀（85~100）、通过（60~84）和未通过（小于60）的人数。
8（14分）
编写程序，界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：
（1） 在窗体的Load事件过程中设置记时器控件Timer l 的Enable属性为 False、响应
的时间间隔为1秒：
（2） 单击Commandl后记时器开始记时，每隔1秒刷新一次控件Label2(o)---Label2(3)
在窗体上所显示的当前时间以及记时开始所经过的时间。
31
2006
Visual Basic
1-6（每小题3分）
12345 6 7 8 DBAAA A D C
9 101213141516B DACCABA
1718192021222324DABCBBBA
7（每题14分）
Private Sub Command1_Click()
Dim x As Integer, I As Integer, s(3) As Integer
For I = 1 To 10
x = InputBox("x")
If x >= 85 Then
s(1) = s(1) + 1
ElseIf x >= 60 Then
s(2) = s(2) + 1
Else
s(3) = s(3) + 1
End If
Next I
Label1.Caption = s(1)
Label2.Caption = s(2)
Label3.Caption = s(3)
End Sub
8（每题14分）
Dim k As Long
32
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False End Sub
Private Sub Timer1_Timer()
Label2(0).Caption = Time
k = k + 1
Label2(1).Caption = k \ 3600
Label2(2).Caption = (k Mod 3600) \ 60
Label2(3).Caption = k Mod 60 End Sub
33
2005年秋浙江省高等学校
(Visual BASIC)
说明：? 考生应将试题一至试题四答案涂写在答题卡上，将试题五的答案填写在答卷上，
否则作无效处理；
? 请将你的准考证号的后四位填写在答卷右下角的指定位置内；
? 考试时间为120分钟。
（每题1分，共10分）
说明：在以下提供的若干个陈述中，逐一判断其正确与否，选A表示正确，选B表示错误。 (1) 若x是Double类型变量，函数 Len(x) 的返回值为16。
(2) 所有的事件过程都只能由鼠标或按键事件触发。
(3) 函数MsgBox也可以提供在程序运行时的人机交互功能。
(4) 文本框控件的MultiLine属性是只读属性，在运行时不可改变。 (5) 若文本框控件的MaxLength属性赋值0，则该文本框内不可输入任何字符。 (6) 在自定义Sub过程中，过程名必须被赋值。
(7) 若复选框控件的Value属性值为True则框内显示“?”，若Value属性值为False则显
示空白。
(8) VB的RGB函数可以返回的不同颜色值有256×256×256种。
(9) f11_Click是名称为f11的菜单项所能编制的唯一的事件过程。
(10) 用WRITE# 语句向文本文件输出时，VB自动为同一行上的不同数据间加逗号作间隔符。
（每题2分，共20分）
(11) 表达式 75 \ 7 Mod 2 * 3 的值为 (11) 。
A、5 B、4 C、3 D、0 (12) 判断变量x、y中有且只有一个为0的下列各表达式中，正确的是 (12) 。
A、x=0 Or y=0 and x*y<>0 B、x+y=0 and x*y<>0
C、x+y<>0 and x*y=0 D、x=0 and y<>0
1/3(13)
数学
数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划
式 (x+5) 写成VB表达式是 （13） 。
A、(x+5)^1/3 B、(x+5)^(1\3) C、(x+5)^1\3 D、(x+5)^(1/3)
(14) 函数Val("H100") 的返回值为 （14） 。
A、256 B、0 C、100 D、64 (15) 以下使用方法的VB程序代码中，正确的是 (15) 。
A、Label1.SetFocus B、Form1.Clear C、Text1.SetFocus D、Combo1.Cls (16) 用Sclae方法改变了窗体坐标系后，被改变了属性值的窗体属性名是 (16) 。
A、ScaleWidth B、Width C、Height D、DrawMode (17) 使用Circle方法不可以绘制的图形是 （17） 。
A、圆角矩形 B、椭圆 C、圆饼图 D、扇形 (18) BorderStyle是用来表示线条的 （18） 。
34
A、长度 B、宽度 C、线形 D、颜色 (19) 通用对话框控件所不具有的属性为 (19) 。
A、BackColor B、FileName C、Flags D、Filter
(20) 可以用来获取已打开文件长度的函数是 (20) 。
A、Len B、LOF C、LOE D、FileLen
（每空2分，共20分）
说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。
1
-9【程序说明】 用近似公式求自然对数的底数e的值，要求计算结果的误差小于10。
1111 e,1，，，，，？ 1!2!3!4!
【程序】
Private Sub Command1_Click()
Dim s As Double, (21)
Dim i As Integer
i = 2
(22)
t = 1
Do While (23)
(24)
t = t / i
i = i + 1
Loop
Print s
End Sub
(21) A、t As Single B、t As Byte C、t As Integer D、t As Double
(22) A、s = 2 B、s = 1 C、s = 0 D、s = i + 1
(23) A、t <= 1e-9 B、t >= 1d-9 C、t >= 1e-9 D、t <
0.000000001
(24) A、s = s + t B、s = s + i C、s = t / i D、s = s + t
/ i
2
【程序说明】 下列过程的功能是为与形参a所对应的n个元素的实参数组送数：第1个元
素赋值n，其他元素为2位随机整数，要求这n个数各不相同。
【程序】
Private Sub create(a() As Byte, n As Byte)
Dim i As Byte, j As Byte, x As Byte
a(1) = n
i = 1
Do While i < n
35
x = (25)
For j = 1 To (26)
If x = a(j) Then (27)
Next j
If (28) Then i = i + 1: a(i) = x
Loop
End Sub
(25) A、Rnd * 99 B、10 + rnd * 90 C、Rnd * 100 D、Int(rnd * 100) (26) A、i B、n - 1 C、i - 1 D、n (27) A、Break B、Exit Sub C、j = j - 1 D、Exit For (28) A、j > i B、j <= i C、x <> a(i) D、j <> i
3【程序说明】 下列过程在装入窗体时，清空列表框控件List1中所有表项，并顺序、逐行读入文件e:\aaa.txt 中的数据，显示在List1中。 【程序】
Private Sub Form_Load()
Dim s As String
Open "e:\aaa.txt" For Input As #1
(29)
Do While Not EOF(1)
(30)
List1.AddItem s
Loop
Close #1
End Sub
(29) A、List1.List="" B、List1="" C、List1.Cls D、List1.Clear (30) A、Line Input #1,s B、Input Line #1,s C、Input #1,s D、LineInput s
（每空2分，共20分）
说明：阅读下列程序并根据各题的要求，在各程序后的若干组选项中选出一组，写在答卷纸
的相应题号下。
1、设Text1.Text为 "abcdef"，运行时连续单击3次控件HScroll1右侧箭头后，组合框控件中的第1项为 (31) 、第2项为 (32) 、第3项为 (33) 。 Private Sub Form_Load()
HScroll1.SmallChange = 1: HScroll1.Max = 5
HScroll1.Min = 1: HScroll1.Value = 1
Combo1.Clear
End Sub
Private Sub HScroll1_Change()
Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0
End Sub
(31) A、abc B、abcd C、ab D、abcde (32) A、a B、abcde C、abc D、abcd (33) A、abcde B、abcd C、abc D、ab
36
2、执行下列事件过程时，窗体上的显示结果依次为 2、 (34) 、 (35) 、 (36) 。
Private Sub Command1_Click()
Dim x As Long, i As Integer
x = 60
i = 2
Do While x > 1
If x Mod i = 0 Then Print i; : x = x \ i Else i = i + 1
Loop
End Sub
(34) A、2 B、3 C、5 D、 1 (35) A、2 B、5 C、3 D、 1 (36) A、2 B、5 C、1 D、 3
3、下列过程f的功能是 (37) ；运行时单击命令按钮控件Command1后窗体上的
显示结果是 (38) ；如果将其中的语句“t = a(k): a(k) = a(i): a(i) = t”修改为
“a(k) = a(i): a(i) = a(k)”，则显示结果是 (39) 。
Private Sub f(a() As Single, n As Integer)
Dim i As Integer, j As Integer, k As Integer, t As Single
For i = 1 To n - 1
k = i
For j = i + 1 To n
if abs(a(j)) > abs(a(k)) Then k = j
Next j
t = a(k): a(k) = a(i): a(i) = t
Next i
End Sub
Private Sub Command1_Click()
Dim x(5) As Single
x(1) = 5: x(2) = -7: x(3) = 5: x(4) = 12: x(5) = -3
Call f(x, 5)
Print x(1);x(2);x(3);x(4);x(5)
End Sub
(37) A、对相应实参数组按值从小到大排序 B、对相应实参数组按绝对值从小到大排序
C、对相应实参数组按值从大到小排序 D、对相应实参数组按绝对值从大到小排序
(38) A、-3 5 -7 12 B、12 -7 5 5 -3
C、-3 5 5 -7 12 D、12 -7 5 -3 (39) A、5 -7 5 5 -3 B、12 12 12 12 -3
C、-3 5 -7 12 D、-7 5 5 5 -3
4执行下列过程时图片框控件Pic1上图案的形状是 (40) 。
Private Sub Command1_Click()
Pic1.Width = Pic1.Height
Pic1.Scale (-8, 8)-(8, -8)
Pic1.FillStyle = 1
37
Pic1.Circle (0, 0), 3
Pic1.FillStyle = 0
Pic1.Circle (0, 0), 6
End Sub
(40) A、 B、 C、 D、
（每题10分，共30分）
21. 编制事件过程Command1_Click计算一元二次方程ax＋bx＋c＝0的根：
•系数a、b、c已分别在Text1(0)、Text1(1)、Text1(2)中输入；
•若方程有实根则分别通过标签控件Label1、Label2显示，否则在Label1中显示文本信息“方程无实根”。
2. 编制事件过程Form_Click，计算并显示下列数列的前30项。
f,f,112 f,f，fi,2ii,1i,2
3. 文本文件e:\aaa.txt中存放了若干个数，编制事件过程Form_Click，计算它们的平均值，然后把其中所有大于平均值的数写入到文本文件e:\bbb.txt。
38
2005年秋VB考试参考答案
试题一、判断题（每题1分，共10分） 1. B 2. B 3. A 4. A 5. B 6. B 7. B 8. A 9. A 10. A
试题二、单选题（每题2分，共20分） 11. B 12. C 13. D 14. B 15．C 16. A 17. A 18. C 19. A 20. B 试题三、程序填空题（每空2分，共20分） 21．D 22. A 23. C 24. D 25. B 26. A 27. D 28. A 29. D 30. A
试题四、程序阅读题(每空2分，共20分) 31．B 32. C 33. D 34. A 35. C 36. B 37. D 38. B 39. A 40. C
试题五、程序设计题（每小题各10分，共30分） 1. 编制事件过程Command1_Click计算一元二次方程ax2＋bx＋c＝0的根：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Text1(0).Text: b = Text1(1).Text: c = Text1(2).Text
d = b * b - 4 * a * c
If d<0 Then
Label1.Caption = "方程无实根"
Else
Label1.Caption = ( -b + sqr(d)) / 2 / a
Label1.Caption = ( -b - sqr(d)) / 2 / a
End If
End Sub
2. 编制事件过程Form_Click，计算并显示下列数列的前30项。
Private Sub Form_Click()
Dim f(30) As Long, i As Integer
f(1) = 1: f(2) = 1
Print f(1): Print f(2)
For i = 3 To 30
f(i) = f(i - 1) + f(i - 2)
Print f(i)
Next i
End Sub
3. 文本文件e:\aaa.txt中存放了若干个数，编制事件过程Form_Click，
计算它们的平均值，然后把其中所有大于平均值的数写入到文本文件e:\bbb.txt。
Private Sub Form_Click ( )
Dim x As Single, y As Single
Dim n As Integer
Open "e:\aaa.txt" For Input #1
Do While Not Eof(1)
Input #1, x
n = n + 1
y = y + x
39
Loop
y = y / n
Close #1 Open "e:\aaa.txt" For Input #1 Open "e:\bbb.txt" For Output #2
Do While Not Eof(1)
Input #1, x
If x > y Then Print #2, x
Loop
Close #1
Close #2
End Sub
40
2005年春浙江省高等学校
(Visual BASIC)
说明：? 考生应将试题一至试题三的答案涂写在答题卡上，将试题四、试题五的答案填写
在答卷上，否则作无效处理；
? 请将你的准考证号的后四位填写在答卷右下角的指定位置内；
? 考试时间为120分钟。
（每小题1分，共10分）
说明：在以下提供的若干个陈述中，逐一判断其正确与否，选A表示正确，选B表示错误。 （1）VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （2）事件过程可以由某个用户事件触发执行，它不能被其他过程调用。 （3）函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。 （4）在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。 （5）在自定义函数过程中，函数名必须被赋值。
（6）列表框控件，只能设置为单选。
（7）语句“Shape1.FillStyle = vbSolid”和“Shape1.FillStyle = 0”作用相同。 （8）通用对话框的FileName属性，返回的是一个输入或选取的文件全名。 （9）当一个菜单项不可见时，其后的菜单项就会填充留下来的空位。 （10）在Open语句中用Append方式所打开的文件若不存在，则创建该文件。
（每小题2分，共20分）
（11）VB算术运算符乘或除、整除、求余的优先级，从高到低依次为 （11） 。
A、乘或除、求余、整除 B、乘或除、整除、求余
C、整除、求余、乘或除 D、整除、乘或除、求余 （12）表达式 （12） 可以计算整型变量x 的位数。
A、Len(Trim(Str(Abs(x)))) B、Len(Abs(x))-1
C、Len(Abs(x)) D、Len(Trim(Int(x)))
（13）函数 InStr("windowse", Mid("winnt",2,2)) 的返回值是 （13） 。
A、0 B、1 C、2 D、3 （14）将文本框控件的 (14) 属性设置为False，可正常显示文本但不可编辑。
A、Locked B、Enabled C、MultiLine D、Visible （15）执行下列语句后，列表框中各表项顺序为 （15） 。
List1.Clear
For i = 1 To 4: List1.AddItem i - 1, 0: Next i
A、0、0、0、0 B、1、2、3、4 C、0、1、2、3 D、3、2、1、0 （16）滚动条控件的 （16） 属性用于指定用户单击滚动箭头时Value属性值的增量。
A、LargeChange B、Change C、SmallChange D、Value （17）下列表达式中， （17） 不是红颜色的值。
A、 vbRed B、Rgb(255,0,0) C、QBColor(1) D、&Hff （18）返回图片框控件P1坐标（a,b）处颜色值的表达式为 （18） 。
A、P1.SetColor(a,b) B、P1.GetColor(a,b) C、P1.Pset(a,b) D、P1.Point(a,b)
41
（19）通用对话框可以通过对 （19） 属性的设定来过滤文件类型。
A、Action B、FilterIndex C、Font D、Filter
（20）编制一个对Single类型一维数组排序的Sub过程，该过程只能被本模块中其他过程
所调用，其首句为 （20） 。
A、Sub f(a() As Single,n As Integer)
B、Public Sub f(a() As Single)
C、Private Sub f(a(n) As Single,n As Integer)
D、Public Sub f(a() As Single,n As Integer)
（每空2分，共20分） 说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。
1
【程序说明】
单击窗体后，用输入对话框输入x、n，按下式计算结果。要求：将计算结果以标签控件显示，且每秒钟随机变换一次颜色。
【程序】
(21)
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False
End Sub
Private Sub Form_Click()
Dim x As Single, n As Integer, i As Integer, t As Single
s = 0: x = InputBox("x="): n = InputBox("n=")
(22)
For i = (23)
t = t * x / i: s = s + t
Next i
(24)
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.Caption = s
End Sub
(21) A、Static s As Single B、Dim s As Single
C、Option Base 1 D、Const s As Single (22) A、t = -1 B、t = 0 C、t = 2 D、t = 1
(23) A、2 To n + 1 B、1 To n C、2 To n D、1 To n + 1
(24) A、Timer1.Enabled = False B、Timer1.Enabled = True
C、Label1.Enabled = False D、Label1.Enabled = True
2
【程序说明】
42
下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司
销售额的圆饼图（如图1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用
红、绿、蓝色显示A、B、C公司的扇区填充色。
图1 程序2的界面设计 【程序】
Private Sub Command1_Click() '绘制圆饼图
Const PI = 3.141593
Dim a As Single, b As Single, c As Single, x As Single
Picture1.Scale (-8, -8)-(8, 8)
(25)
a = Text1(0).Text: b = Text1(1).Text
c = Text1(2).Text
x = 2 * PI / (a + b + c) '计算每个单位在圆饼图中所占圆心角的弧度值
Picture1.FillColor = RGB(255, 0, 0)
Picture1.Circle (0, 0), 6, 0, (26)
Picture1.FillColor = RGB(0, 255, 0)
Picture1.Circle (0, 0), 6, 0, -a * x, -(a + b) * x
Picture1.FillColor = (27)
Picture1.Circle (0, 0), 6, 0, -(a + b) * x, -(a + b + c) * x
End Sub
Private Sub Form_Load()
Picture1.Width = Picture1.Height
End Sub
Private Sub Text1_KeyPress(Index As Integer, K As Integer)
If (28) Then K = 0
End Sub
(25) A、Picture1.FillStyle = 1 B、Picture1.DrawStyle = 0
C、Picture1.DrawStyle = 1 D、Picture1.FillStyle = 0 (26) A、2*PI, -a*x B、-2*PI, a*x C、-2*PI, -a*x D、2*PI, a*x
(27) A、RGB(255, 0, 0) B、vbBlue C、Blue D、RGB(0, 255, 0)
(28) A、K < Asc("0") Or K > Asc("9") B、K < "0" Or K > "9"
C、K < Asc(0) Or K > Asc(9) D、K < 0 Or K > 9 3
43
【程序说明】
Form2的过程Command1_Click如下，输入10个数，根据Form1中全局变量flag的
不同取值做不同运算：若flag为True则求10个数的和，若flag为False则求10个数的积。
【程序】
Private Sub Command1_Click()
Dim a(10) As Single, s As Single, i As Integer
s = 0
If (29) Then s = 1
For i = 1 To 10
a(i) = InputBox("a(" & i & ")=")
If (30) Then s = s + a(i) Else s = s * a(i)
Next i
Print s
End Sub
(29) A、Not Form1.flag B、Form1.flag C、flag D、flag =
True
(30) A、s = 1 B、s <> 1 C、Form1.flag D、flag
（每小题5分，共20分）
说明：阅读下列程序，将运行时的输出结果写在答卷纸的相应题号下。
1、顺序写出运行时执行下列事件过程的显示结果。
Private Sub Command1_Click()
For i = 2 To 20
If i Mod 2 = 1 And i Mod 3 = 2 Then Print i
Next i
Print i
End Sub
2、 写出下列程序运行时，单击命令按钮控件Command1后窗体上的显示结果。
Private Function f1(n As Integer) As Integer
Static i As Integer
While i <= n
f1 = f1 + i: i = i + 1
Wend
End Function
Private Function f2(ByVal n1 As Integer, n2 As Integer) As Integer
Dim i As Integer
Do While n2 >= n1
f2 = f2 + n2: n2 = n2 - 1
Loop
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Print f1(3)
44
Print f1(5)
a = 5: b = 8
Print f2(a, b)
Print f2(b, a)
End Sub
3写出下列程序运行时，单击窗体后窗体上的显示结果。
Sub prnt(b() As String * 1, n As Integer)
Dim i As Integer
For i = 1 To n
Print b(i);
Next i
Print
End Sub
Private Sub Form_Click()
Dim a(7) As String * 1, i As Integer
For i = 1 To 7
a(i) = Chr(Asc("A") + i - 1)
Next i
For i = 7 To 4 Step -1
Call prnt(a, i)
Next i
End Sub
4顺序画出下列程序运行时HScroll1.Value依次为1、2、3、4时图片框控件P1上
图案的形状。
Private Sub Form_Load()
P1.Height = P1.Width
P1.Scale (0, 0)-(4, 4)
HScroll1.Min = 0: HScroll1.Max = 4
End Sub
Private Sub HScroll1_Change()
P1.Cls
P1.Line (0, 0)-(HScroll1.Value, HScroll1.Value), , BF
End Sub
（每小题各10分，共30分）
1. 编制事件过程Command1_Click，执行该过程时调用InputBox函数输入x，按下式
计算y并以标签控件Label1显示y值。 2,xxx3，2,1,,5
,x yxxx,,sin，2,5,,,,5,
,xxx,5，log,510,
2. 编制通用函数过程fsum，计算Single类型一维数组所有元素的和。
3. 文本文件e:\aaa.txt中存放了若干行字符，编制相应事件过程：在加载窗体时读入文
45
件中各行字符并顺序在列表框控件List1的列表部分显示，在运行时按窗体控制菜单“关闭”
后自动将列表框中各行数据存储到文本文件e:\aaa.txt。
【提示】加载窗体时自动执行的事件过程是Form_Load()，按窗体控制菜单“关闭”后自动执行的事件过程是Form_Terminate()
46
2005年春VB考试参考答案
试题一、判断题（每小题1分，共10分）
1. B 2. B 3. B 4. A 5. A 6. B 7. A 8. A 9. A 10. A
试题二、单选题（每小题2分，共20分）
11. B 12. A 13. C 14. A 15．D 16. C 17. C 18. D 19. D 20. A 试题三、程序填空题（每空2分，共20分） 21．B 22. D 23. A 24. B 25. D 26. C 27. B 28. A 29. A 30. C
试题四、程序阅读题(每小题5分，共20分) 1. 5 2. 6 3. ABCDEFG
11 9 ABCDEF
17 26 ABCDE
21 9 ABCD 4.
试题五、程序设计题（每小题各10分，共30分）
1. 编制事件过程Command1_Click，执行该过程时调用InputBox函数输入x，按下式计
算y并以标签控件Label1显示y值。
2,xxx3，2,1,,5
,x yxxx,,sin，2,5,,,,5,
,xxx,5，log,510,
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("x=")
If x < -5 Then y = 3*x^2 + 2*x -1
If x>=-5 And x<=5 Then y = x*Sin(x) + 2^x
If x>5 Then y = Sqr(x-5) + Log(x)/Log(10)
Label1.Caption = y
End Sub
2. 编制通用函数过程fsum，计算Single类型一维数组所有元素的和。
Private Function fsum(a() As Single, n As Single) As Single
Dim i As Integer
For i = 1 To n
fsum = fsum + a(i)
Next i
End Function
47
3. 文本文件e:\aaa.txt中存放了若干行字符，编制相应事件过程：在加载窗体时读入文件中各行字符并顺序在列表框控件List1的列表部分显示，在运行时按窗体控制菜单“关闭”后自动将列表框中各行数据存储到文本文件e:\aaa.txt。
【提示】加载窗体时自动执行的事件过程是Form_Load()，按窗体控制菜单“关闭”后
自动执行的事件过程是Form_Terminate()
Private Sub Form_Load()
Dim ss As String
Open "e:\aaa.txt" For Input As #1
List1.Clear
Do While Not EOF(1)
Line Input #1, ss
List1.Addtime ss
Loop
Close #1
End Sub
Private Sub Form_ Terminate ()
Dim i As Integer
Open "e:\aaa.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1
End Sub
48
2004年秋浙江省高学校
Visual BASIC
说明：（1）考生应将试题一至试题三的答案在答题卡上，将试题四、试题五的答案填写在答
卷上，否则作无效处理；
（2）请将你的准考证号的后四位填写在答卷右下角的指定位置内；
（3）考试时间为120分钟。
15
30
110
说明：在以下提供的若干个陈述中，逐一判断其正确与否，选A表示正确，选B表示错误。 (16)VB的Byte类型数据的数值范围，在-255到255之间。
（17）标签控件在运行时不可能获得输入焦点。
（18）文本框控件只能响应KeyPress、KeyDown、KeyUp、Change事件。 （19）控件Listl中已有若干表项，执行语句“Listl.AddItem ”计算机应用041”,1 ”
，插入字符串“计算机应用042”为第1个表项。
（20）用Cls方法可以清除组合框中的所有表项。
（21）用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。 （22）定时器控件的Interval属性是只读属性。
（23）图片框控件与影像框控件加载图形文件的方法相同。
（24）窗体的Fom_load事件在装入窗体前自动执行。
（25）在Open 语句中用Input方式所打开的文件必须已经存在，否则会出现运行错误。
220
（26）判断整型变量m能否被n整除的VB表达式为 （26） 。
A、n Mod m=0 B、m/n*n=m C、m Mod n D、m\n*n=m
（27）条件“m、n不同时为0”写作VB的表达式为 （27） 。
A、m=0 And n<>0 B、m+n=0 C、 Not(m=0 And n=0) D、m*n=0 （28）取字符串Ax从第1个非空格符开始的连5个字符，写作表达式 （28） 。
A、Mid(Ax,1,5) B、Mid(Trim(Ax),5)
C、Left(Ax,5) D、Left(Trim(Ax),5)
（29）VB表达式 （29） 包含当前系统日期与时间信息。
A、Time B、Now C、Date D、Day(Date)
（30）将变量x、y中的最大数赋值给变量a，正确的表示为 （30） 。
49
A、a=x: If y>x Then a=y B、If y>x Then a=y: a=x
C、a= If y>x Then y Else x D、If y>x Then a=y Else a=x End If （31）要改变Label标签中文本的颜色，应设置它的 （31） 属性。
A、Color B、ForeColor C、BackColor D、FontColor （32）下列表达式中， （32） 不是蓝颜色的值。
A、vbBlue B、Rab(0,0,255)
C、QBColor(12) D、&Hff0000
（33）无论怎样改变图片框控件P1的坐标系，其中心点的x、y坐标分别为 （33）
A、（Pl.ScaleLeft+Pl.Scalewidth）/2、(Pl.ScaleTop+Pl.ScaleHeight)/2
B、Pl.ScaleLeft+Pl.ScaleWidth/2、Pl.ScaleTop+Pl.ScaleHeight/2
C、Pl.Left+Pl.Width/2、Pl.Top+Pl.Height/2
D、Pl.Width/2、Pl.Height/2
（34）单击滚动条控件上的箭头时，其Value属性值增加或减小幅度由 （34） 属性决定。
A、Max B、LargeChange
C、Min D、SmallChange
（35）编制一个计算Single类型一维数组所有元素和函数过程，该过程可被其他模块调用，
其首句为 （35） 。
A、Private Function Sum(a(n) As Single,n As Integer) As Single
B、Public Function Sum(a() As Single, n As Integer) As Single
C、Private Function Sum(a() As Single, n As Integer) As Single
D、Public Function Sum(a() As Single, n As Integer) As Long
210
说明：阅读下列程序说明和相应程序，在每小题提供的苦干可选答案中，挑选一个正确答案。
程序1、
[程序说明]
单击命令按钮commandl后，输入平面上凸10边形各顶点的坐标，然后计算各点之间连线的总长。
[程序]
Option Base 1
Private Function f1(x1 As Single, y1 As Single, x2 As Single, _
y2 As Single) As Single
f1 = Sqr((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1))
End Function
50
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As Single
Dim (36)
For i = 0 To 9
x(i) = InputBox("x(" & i & ") = ")
y(i) = InputBox("y(" & i & ")=")
Next i
For i = 0 To 8
For j= (37)
s=s+ (38)
Next j
Next i
Label1.Caption = s
End Sub
（36）A、x(9) As Single,y(9) As Single
B、x(0 To 9) As Single,y(0 To 9) As Single
C、x(9),y(9) As Single
D、x(10) As Single,y(10) As Single
（37）A、i+1 To 9
B、i To 9
C、i+ To 10
D、i To 10
（38）A、fl(x(i),x(j),y(j) B、fl(x1,y1,x2,y2)
C、f1(x(i),y(i),x(j),y(j)) D、f1(xi,yi,xj,yj)
程序2、
[程序说明]
下列程序运行时，单击Commandl(0)后，图片每十分之一秒自动左移1毫米，单击Commandl
（1）停止移动（当图片尾部移出窗体后，图片从窗体右端进入窗体）。界面设计如图1所示
51
图1 程序2的界面设计 [程序]
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then Timer1.Enabled = True Else Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timerl.Interval= (39)
Form1.ScaleMode = 6
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left - 1
If Picture1.Left + Picture1.Width <= Form1.ScaleLeft Then _
Picturel.Left= (40) End Sub
(39) A、0.1 B、1 C、100 D、0.6
(40) A、Forml.ScaleRight
B、Forml.Left+Forml.Width
C、Forml.ScaleLeft+Forml.ScaleWidth
D、Forml.Width
520
说明：阅读下列程序，将运行时的输出结果写在答卷纸的相应题号下。
程序1、顺序写出运行时在文本框控件Textl中输入abcd后，列表框控件Listl中的各表项。
Dim s As String
Private Sub Form_Load()
List1.Clear
Text1.Text = ""
End Sub
Private Sub Text1_Change()
s = s + Text1.Text
List1.AddItem s
End Sub
52
程序2、写出下列程序运行时四次单击复选框控件checkl后窗体上的显示结果。
Public s As Long, n As Integer
Private Sub f2(ByRef n As Integer)
Do While n > 0
s = s + n
n = n - 1
Loop
End Sub
Private Sub Form_Load()
n = 5
Check1.Value = 0
End Sub
Private Sub check1_Click()
Static ss As Long
Call f2(n)
ss = ss + s
Print ss; s; n
End Sub
程序3、写出下列程序运行时，单击窗体后窗体上的显示结果。
Private Sub Form_Click()
Dim a(4, 4) As Integer, i As Integer, j As Integer For i = l To 4
For j = l To 4
a(i, j) = Trim(Str(i)) + Trim(Str(j)) Next j
Next i
For i = 1 To 4
For j = 1 To 4
Print Tab((j - 1) * 4 + 1); a(i, j); Next j
Print
Next i
End Sub程序4、依次画出下列程序运行时单击命令按钮Command1后四个图片框上图案的
形状。
53
Private Sub Form_Load()
Dim i As Byte
For i = 0 To 3
Picture1(i).FillStyle = (i + 1) Mod 2
Picture1(i).Cls
Nexti
End Sub
Private Sub Command1_Click()
Dim i As Byte
For i = 0 To 3
Picture1(i).Scale (-10, 10)-(10, -10)
Next i
Picture1(0).Line (-10, 10)-(0, 0)
Picture1(0).Line -(-10, -10)
Picture1(1).Circle (0, 0), 5
Picture1(2).Circle (0, 0), 5, , 0, 3.14159
Picture1(3).Circle (0, 0), 5, , , , 2
End Sub
13102525
1、编制事件过程Commandl_Click，执行过程时输入n以及n个数，计算这个n个数的和并
在文本框控件Textl中显示。
2、编制事件过程Picl_MouseMove, 使得当鼠标在图片框控件Picl上移动时的坐标值能够适
时通过标签控件Labe11、Labe12显示。 [提示]事件过程Picl_MouseMove的首句如下： Private Sub Picl_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single)
3、文本文件d:\aaa.txt中存放了若干个数,编制事件过程Form_Load顺序读这些数并在组合
框控件Combol中逐行显示。
54
2004VB
（本题共30分）
（每小题1分，本题共10分，答案用A表示正确，B表示错误）
16．B 17．A 18．B 19．B 20．B 21．A 22．B 23．A
24．A 25．A
（每小题1分，本题共10分）
26．A 27．C 28．D 29．B 30．A 31．B 32．C 33．D 34．D 35. B
（本题共10分，每空2分）
36．B 37．A 38．C 39．C 40．C
（本题共20分，每小题5分）
1. a 2.15 15 0 3. 11 12 13 14
aab 30 15 0 21 22 23 24
aababc 45 15 0 31 32 33 34
aababcabcd 60 15 0 41 42 43 44
4.
（）
1. 程序如下：
Private Sub command1_Click()
Dim n As Integer, s As Integer, i As Integer, t As Integer
n = InputBox("请输入n的值:")
s = 0
For i = 1 To n
t = InputBox("请输入第" & Str(i) & "个的值:")
s = s + t
Next i
Text1.Text = s
End Sub
2. 程序如下：
Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Str(X)
Label2.Caption = Str(Y)
End Sub
3. 程序如下：
Private Sub Form_Load()
Dim n As Integer
Open "d:\aaa.dat" For Input As #1
55
While Not EOF(1)
Input #1, n
Combo1.AddItem n
Wend
End Sub
56
浙公网安备 33021202002483