２００５年4月份二级VB真题

（考试时间90分钟，满分100分）
一、选择题((1)~(35)每小题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1)数据的存储结构是指
A) 存储在外存中的数据B) 数据所占的存储空间量
C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示

(2)下列关于栈的描述中错误的是
A)栈是先进后出的线性表B) 栈只能顺序存储
C) 栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针

(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是
A) 冒泡排序为n/2B) 冒泡排序为n
C) 快速排序为nD) 快速排序为n(n-1)/2

(4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为
A) log2nB) n/2C) nD) n+1

(5)下列对于线性链表的描述中正确的是
A)存储空间不一定是连续，且各元素的存储顺序是任意的
B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C)存储空间必须连续，且前件元素一定存储在后件元素的前面
D)存储空间必须连续，且各元素的存储顺序是任意的

(6)下列对于软件测试的描述中正确的是
A)软件测试的目的是证明程序是否正确
B)软件测试的目的是使程序运行结果正确
C)软件测试的目的是尽可能多地发现程序中的错误
D)软件测试的目的是使程序符合结构化原则

(7)为了使模块尽可能独立，要求
A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

(8)下列描述中正确的是
A) 程序就是软件
B) 软件开发不受计算机系统的限制
C) 软件既是逻辑实体，又是物理实体
D) 软件是程序、数据与相关文档的集合

(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指
A) 数据与程序独立存放
B) 不同的数据被存放在不同的文件中
C) 不同的数据只能被对应的应用程序所使用
D) 以上三种说法都不对

(10) 用树形结构表示实体之间联系的模型是
A) 关系模型B) 网状模型C) 层次模型D) 以上三个都是
11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：
A)Private Sub Text1_Change()
Command1.Caption=”计算机等级考试”
End Sub
B) Private Sub Command1_Click()
Caption=”计算机等级考试”
End Sub
C) Private Sub Form1_Click()
Text1.Caption=”计算机等级考试”
End Sub
D) Private Sub Command1_Click()
Text1.Text=”计算机等级考试”
End Sub
(12)设a=5,b=4,c=3,d=2，下列表达式的值是
3>2*b Or a=c And b<>c Or c>d
A)1 B)True C)False D)2

(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
A)b=Left(a,10)
B)b=Mid(a,10)
C)b=Right(a,10)
D)b=Mid(a,11,10)

(14)假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = "Microsoft Visual Basic"
b$ = Right(a$, 5)
c = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：
A)Microsoft Visual
B)Microsoft
C)Basic
D)5

(15)设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=Iif((a

  1<b) (="" c="" or="">d),”A”,”B”)后，x的值为：   
  2A)”a”   
  3B)”b”   
  4C)”B”   
  5D)”A”   
  6  
  7(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是   
  8A)Command1.Move -200   
  9B) Command1.Move 200   
 10C) Command1.Left= Command1.Left+200   
 11D) Command1.Left= Command1.Left-200   
 12  
 13(17)在窗体上画一个文本框，然后编写如下事件过程：   
 14Private Sub Form_Click()   
 15x = InputBox(\"请输入一个整数\")   
 16Print x + Text1.Text   
 17End Sub   
 18程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：   
 19A)123   
 20B)456   
 21C)579   
 22D)123456   
 23  
 24  
 25（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：   
 26Private Sub Command1_Click()   
 27Timer1._________   
 28End Sub   
 29  
 30Private Sub Timer1_Timer()   
 31Text1.Text = Time   
 32End Sub   
 33在______处应填入的内容是   
 34A)Enabled=True   
 35B)Enabled=False   
 36C)Visible=True   
 37D)Visible=False   
 38(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：   
 39A)选择图片框，然后按Del键   
 40B)执行语句Picture1.Picture=LoadPicture(“”)   
 41C)执行语句Picture1.Picture=””   
 42D)选择图片框，在属性窗口中选择Picture属性，然后按回车键   
 43  
 44  
 45（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是   
 46A) Private Sub List1_Click()   
 47Label1.Caption = List1.ListIndex   
 48End Sub   
 49B) Private Sub List1_Click()   
 50Label1.Name = List1.ListIndex   
 51End Sub   
 52C) Private Sub List1_Click()   
 53Label1.Name = List1.Text   
 54End Sub   
 55D) Private Sub List1_Click()   
 56Label1.Caption = List1.Text   
 57End Sub   
 58  
 59  
 60（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：   
 61Private Sub Command1_Click()   
 62Dim i As Integer, x As Integer   
 63For i = 1 To 6   
 64If i = 1 Then x = i   
 65If i &lt;= 4 Then   
 66x = x + 1   
 67Else   
 68x = x + 2   
 69End If   
 70Next i   
 71Print x   
 72End Sub   
 73程序运行后，单击命令按钮，其输出结果为   
 74A)9   
 75B)6   
 76C)12   
 77D)15   
 78  
 79  
 80（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：   
 81Private Sub Command1_Click()   
 82c = \"ABCD\"   
 83For n = 1 To 4   
 84Print _________   
 85Next   
 86End Sub   
 87程序运行后，单击命令按钮，要求在窗体上显示如下内容：   
 88D   
 89CD   
 90BCD   
 91ABCD   
 92则在________处应填入的内容为   
 93A)Left(c,n)   
 94B)Right(c,n)   
 95C)Mid(c,n,1)   
 96D)Mid(c,n,n)   
 97  
 98  
 99(23)执行以下程序段   
100Dim x As Integer, i As Integer   
101x=0   
102For i = 20 To 1 Step -2   
103x = x + i 5   
104Next I   
105后，x的值为   
106A)16   
107B)17   
108C)18   
109D)19   
110（24）在Visual Basic工程中，可以作为启动对象的程序是   
111A)任何窗体或标准模块   
112B)任何窗体或过程   
113C)Sub Main过程或其他任何模块   
114D)Sub Main过程或任何窗体   
115  
116  
117(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是   
118A)数组中每个命令按钮的名称(名称属性)均为Command1   
119B)数组中每个命令按钮的标题(Caption属性)都一样   
120C)数组中所有命令按钮可以使用同一个时间过程   
121D)用名称Command1(下标)可以访问数组中的每个命令按钮   
122(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:   
123Private Sub Form_KeyPress(KeyAscii As Integer)   
124Dim ch As String   
125ch = Chr(KeyAscii)   
126KeyAscii = Asc(UCase(ch))   
127Print Chr(KeyAscii + 2)   
128End Sub   
129程序运行后,按键盘上的”A”键,则在窗体上显示的内容是   
130A)A   
131B)B   
132C)C   
133D)D   
134  
135  
136(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:   
137Private Sub Command1_Click()   
138a = InputBox(\"请输入日期(1~31)\")   
139t = \"旅游景点:\" _   
140&amp; IIf(a &gt; 0 And a &lt;= 10, \"长城\", \"\") _   
141&amp; IIf(a &gt; 10 And a &lt;= 20, \"故宫\", \"\") _   
142&amp; IIf(a &gt; 20 And a &lt;= 30, \"颐和园\", \"\")   
143Text1.Text = t   
144End Sub   
145程序运行后,如果从键盘输入16,则在文本框中显示的内容是:   
146A)旅游景点：长城故宫   
147B)旅游景点：长城颐和园   
148C)旅游景点：颐和园   
149D)旅游景点：故宫   
150  
151  
152(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:   
153Private Sub Form_Click()   
154Dim arr(10, 10) As Integer   
155Dim i As Integer, j As Integer   
156For i = 2 To 4   
157For j = 2 To 4   
158arr(i, j) = i * j   
159Next j   
160Next i   
161Label1.Caption = Str(arr(2, 2) + arr(3, 3))   
162End Sub   
163程序运行后,单击窗体,在标签中显示的内容是   
164A)12   
165B)13   
166C)14   
167D)15   
168  
169  
170(29) 在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:   
171Private Function fun(ByVal m As Integer)   
172If m Mod 2 = 0 Then   
173fun = 2   
174Else   
175fun = 1   
176End If   
177End Function   
178Private Sub Command1_Click()   
179Dim i As Integer, s As Integer   
180s = 0   
181For i = 1 To 5   
182s = s + fun(i)   
183Next   
184Print s   
185End Sub   
186程序运行后,单击命令按钮,则窗体上显示的是:   
187A)6   
188B)7   
189C)8   
190D)9   
191(30)阅读程序:   
192Option Base 1   
193Dim arr() As Integer   
194Private Sub Form_Click()   
195Dim i As Integer, j As Integer   
196ReDim arr(3, 2)   
197For i = 1 To 3   
198For j = 1 To 2   
199arr(i, j) = i * 2 + j   
200Next j   
201Next i   
202ReDim Preserve arr(3, 4)   
203For j = 3 To 4   
204arr(3, j) = j + 9   
205Next j   
206Print arr(3, 2) + arr(3, 4)   
207End Sub   
208程序运行后,单击窗体,输出结果为:   
209A)21   
210B)13   
211C)8   
212D)25   
213  
214  
215(31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:   
216Option Base 1   
217  
218Private Sub Command1_Click()   
219Dim c As Integer, d As Integer   
220d = 0   
221c = 6   
222x = Array(2, 4, 6, 8, 10, 12)   
223For i = 1 To 6   
224If x(i) &gt; c Then   
225d = d + x(i)   
226c = x(i)   
227Else   
228d = d - c   
229End If   
230Next i   
231Print d   
232End Sub   
233程序运行后,如果单击命令按钮,则在窗体上输入的内容为   
234A)10   
235B)16   
236C)12   
237D)20   
238  
239  
240(32)设有如下程序:   
241Private Sub Command1_Click()   
242Dim c As Integer, d As Integer   
243c = 4   
244d = InputBox(\"请输入一个整数\")   
245Do While d &gt; 0   
246If d &gt; c Then   
247c = c + 1   
248End If   
249; d = InputBox(\"请输入一个整数\")   
250Loop   
251Print c + d   
252End Sub   
253程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:   
254A)12   
255B)11   
256C)10   
257D)9   
258  
259  
260(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:   
261Microsoft Visual Basic Programming   
262然后编写如下事件过程:   
263Private Sub Command1_Click()   
264Open \"d: empoutf.txt\" For Output As #1   
265For i = 1 To Len(Text1.Text)   
266c = Mid(Text1.Text, i, 1)   
267If c &gt;= \"A\" And c &lt;= \"Z\" Then   
268Print #1, LCase(c)   
269End If   
270Next i   
271Close   
272End Sub   
273程序运行后,单击命令按狃,文件outf.txt中的内容是:   
274A)MVBP   
275B)mvbp   
276C)M   
277V   
278B   
279P   
280D)m   
281v   
282b   
283p   
284  
285  
286(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:   
287Dim SW As Boolean   
288Function func(X As Integer) As Integer   
289If X &lt; 20 Then   
290Y = X   
291Else   
292Y = 20 + X   
293End If   
294func = Y   
295End Function   
296  
297  
298Private Sub Command1_Click()   
299Dim intNum As Integer   
300intNum = InputBox(\"\")   
301If SW Then   
302Print func(intNum)   
303End If   
304End Sub   
305  
306Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   
307SW = False   
308End Sub   
309  
310Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)   
311SW = True   
312End Sub   
313程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:   
314A)输出0   
315B)输出25   
316C)输出45   
317D)无任何输出   
318  
319  
320(35) 设有如下通用过程:   
321Public Sub fun(a() As Integer, x As Integer)   
322For i = 1 To 5   
323x = x + a(i)   
324Next   
325End Sub   
326在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:   
327Private Sub Command1_Click()   
328Dim arr(5) As Integer, n As Integer   
329For i = 1 To 5   
330&amp;nb  sp; arr(i) = i + i   
331Next   
332fun arr, n   
333Text1.Text = Str(n)   
334End Sub   
335程序运行后,单击命令按钮,则在文本框中显示的内容是   
336A)30   
337B)25   
338C)20   
339D)15   
340  
341  
342二、填空题(每空2分，共30分)   
343  
344请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。   
345  
346  
347(1) 某二*树中度为2的结点有18个，则该二*树中有 【1】 个叶子结点。   
348  
349(2) 在面向对象方法中，类的实例称为 【2】 。   
350  
351  
352(3) 诊断和改正程序中错误的工作通常称为 【3】 。   
353  
354(4) 在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。   
355  
356(5) 问题处理方案的正确而完整的描述称为 【5】 。   
357  
358  
359(6)以下语句的输出结果是: 【6】   
360Print Int(12345.6789*100+0.5)/100   
361  
362  
363(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:   
364Private Sub Form_Click()   
365Text1.Text = \"VB程序设计\"   
366End Sub   
367  
368Private Sub Text1_Change()   
369Picture1.Print \"VBProgramming\"   
370End Sub   
371程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】   
372  
373  
374(8)阅读下面的程序   
375Private Sub Form_Click()   
376Dim Check As Boolean, Counter As Integer   
377Check = True   
378Counter = 5   
379Do   
380Do While Counter &lt; 20   
381Counter = Counter + 1   
382If Counter = 10 Then   
383Check = False   
384Exit Do   
385End If   
386Loop   
387Loop Until Check = False   
388Print Counter   
389End Sub   
390程序运行后,单击窗体,输出结果是【9】   
391  
392  
393  
394(9)设有如下程序   
395Private Sub Form_Click()   
396Dim a As Integer, s As Integer   
397n = 8   
398s = 0   
399Do   
400s = s + n   
401n = n - 1   
402Loop While n &gt; 0   
403Print s   
404End Sub   
405以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】   
406  
407  
408(10)设有如下程序:   
409Option Base 1   
410  
411Private Sub Command1_Click()   
412Dim arr1   
413Dim Min As Integer, i As Integer   
414&amp;nbs  p; arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)   
415Min = 【12】   
416For i = 2 To 8   
417If arr1(i) &lt; Min Then 【13】   
418Next i   
419Print \"最小值是:\"; Min   
420End Sub   
421以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空   
422  
423  
424(11)在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:   
425Private Sub Form_Click()   
426Open \"d: estsmtext1.txt\" For Input As #1   
427Do While Not 【14】   
428Line Input #1, aspect$   
429whole$ = whole$ + aspect$ + Chr(13) + Chr(10)   
430Loop   
431Text1.Text = whole$   
432Close #1   
433Open \"d: estsmtext2.txt\" For Output As #1   
434Print #1, 【15】   
435Close #1   
436End Sub   
437上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt .请填空   
438  
439  
440★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★   
441以下答案仅供参考   
442  
443选择题：   
4441---5 DBDCA   
4456---10 CBDDC   
44611--15 ABBCD   
44716--20 CDABD   
44821--25 ABCDB   
44926--30 CDBBA   
45031--35 CDDDA   
451  
452填空题：   
453【1】19   
454【2】 对象   
455【3】 程序调试   
456【4】 关系   
457【5】 算法   
458【6】12345.68   
459【7】VB程序设计   
460【8】 VB Programming   
461【9】 10   
462【10】 求1-8的和   
463【11】36   
464【12】 arr1(1)   
465【13】min=arr1(i)   
466【14】 EOF(1)   
467【15】text1.text(或whole$)</b)>