2009年计算机等级二级VB笔试考前模拟试题

第一套 客观题

第一题：是非题（共10分，每项1分）

1. ActiveX部件是可以重复使用的编程代码和数据。 A.对 B.错

2. 窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。 A.对 B.错

3. 每一个控件实质上都是一个微型程序。A A.对 B.错

4. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。 16. Print #1，STR1$中的Print是 A 。 A.顺序文件的写语句 B.在窗体上显示的方法 C.子程序名

D.打印命令

17. 使用Public x声明一个全局的变量时，该语句应放在 D 。 A.过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段

D.窗体模块或标准模块的通用声明段 18. 文本框没有 D 属性。

A.Enabled B.Visible C.BackColor D.Caption 19. 记录长度最大可取的值是A字节。 A.32767 B.32768 C.65535 D.65536 A.对 B.错

5. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。 A.对 B.错

6. 定义菜单项时，可以不设置分隔线的菜单项控件名称。 A.对 B.错

7. 在事件驱动的应用程序中，代码是按照预定的路径执行的。 A.对 B.错

8. 函数调用时，实际参数与形式参数在数量必须完全一致。 A.对 B.错

9. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。 A.对 B.错

10. 通用过程可以放在标准模块中，也可以放在窗体模块中。 A.对 B.错

第二题、 单选题（共45分，每项1.5分）

11. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。C

A.Chang B.KeyDown C.Click D.KeyPress 12. InputBox函数的返回值的类型为 B 。 A.数值 B.字符串 C.逻辑值 D.日期值

13. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是A。

A.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m) C.Sub Proc1(n,Byval m)

D.Sub Proc1(n, m)

14. 下面关于打印对话框属性的说法错误的是 C 。 A.Copies属性指定打印的份数。

B.HDC属性指定分配给打印机的句柄，用来识别对象的设备

环境。

C.FromPage属性指定要打印文档的页范围。使用该属性时必

须把Flags属性设置为1。

D.Max和Min属性用来显示FromPage和ToPage的范围，其

中Min指定允许的起始页码，Max指定允许的最后页码。 15. 常量2.7856E-6的类型是 B 。 A.整型 B.实型 C.字符型 D.双精度

1

下面四项中， A 是VB中的数值变量。 A.ABC B.E+2 C.\D.1.35E-2

将数据项“China”添加到列表框（List）中成为第一项应使用

A 语句。

A.List1.AddItem”China”，0 B.List1.AddItem”China”，l C.List1.AddItem 0，”China” D.List1.AddItem 1，”China” 下列不能打开菜单编辑器的操作是 D 。 A.按Ctrl+E

B.单击工具栏中的“菜单编辑器”按钮 C.执行“工具”菜单中的“菜单编辑器”命令 D.按Shift + Alt + M

文本框（Text1）中有选定的文本，执行 Text1.SelText=”Hello”

的结果是 A 。

A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前 C.Text1.SelLength为5 D.文本框中只有“Hello”

语句Print Format(\的输出结果是 B 。 A.HELLO B.hello C.He D.he

函数Int(Rnd*11)+10产生的数值的范围是 C 。 A.（0,10） B.[10,10] C.[10,20] D.(0,20)

如果文本框的Enabled属性设为 False，则 A 。 A.文本框的文本将变成灰色，并且此时用户不能将光标置于文

本框上

B.文本框的文本将变成灰色，用户仍然能将光标置于文本框

上，但是不能改变文本框中的内容

C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D.文本框的文本正常显示，用户能将光标置于文本框上，但是

不能改变文本框中的内容 框架内的所有控件是 A 。 A.随框架一起移动、显示、消失和屏蔽 B.不随框架一起移动、显示、消失和屏蔽

C.仅随框架一起移动 D.仅随框架一起显示和消失 类型的数据由 B 字节组成。 A.1 B.2 C.3 D.4

数学表达式x>y>z的正确VB逻辑表达式是 D 。 A.x>y And y>z C.x>y And >z D.x>y And y>z

20. 21. 22. 23. 24. 25. 26. 27. 28. Integer 29. 30. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的

语句是 D 。

A.Hide B.Show C.Load D.Unload 31. 在下列说法中，正确的是 D 。

A.通过适当的设置，可以在程序运行期间，让时钟控件显示

在窗体上

B.在列表框中不能进行多项选择

C.在列表框中能够将项目按字母顺序从大到小排列 D.框架也有 Click和 DblClick事件

32. 为了把一个记录型变量的内容写入文件中指定的位置，所

使用的语句的格式为_ D___。 End Sub

A.隐藏窗体，按‘确定’按钮使窗体重现 B.隐藏窗体

C.显示窗体，按‘确定’按钮使窗体隐藏 D.显示窗体

42. 执行下面程序段后，变量c$的值为__D__。 a$= \ b$= \

c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,12) A.Visual BASIC Programming B.Quick Basic Programming A.Get 文件号，记录号，变量名 B.Get 文件号，变量名，记录号 C.Put 文件号，变量名，记录号 D.Put 文件号，记录号，变量名 33. 按文件的组织方式分为____A _。

A.顺序文件和随机文件 B.文本文件和二进制文件 C.程序文件和数据文件 D.只读文件和读写文件 34. 以下_ C___不能作为VB中的变量名。 A.Abx45 B.P1234 C.89TasFF D.xy 35. 已编译的控件部件的扩展名是 A A. .OCX B. .VBP C. .EXE D. .CTL

36. 为了建立一个随机文件，其中每一条记录有多个不同数据

类型的数据项组成，应使用_ A___。

A.自定义类型 B.数组 C.字符串类型 D.变体类型 37. 表达式Int(23.4)+Round(-35.5)的计算结果为__C__。 A.-11 B.-12.1 C.-13 D.-12.5

38. 引用列表框（List1）最后一个数据项应使用_ B___。 A. List1.List(List1.ListCount) B.List1.List(List1.ListCount-1) C.List1.List(ListCount) D.List1.List(ListCount-l)

39. 通过代码在运行时设置属性的语法格式为_ B___。 A.对象名＝属性 .新值 B.对象名.属性＝新值

C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 40. 在下面选项中，不能完成对顺序文件的读操作的是___D__。 A.LineInput#语句 B.Input#语句

C.Input（）函数 D.Get#语句

第三题、 简单程序（共15分，每项1.5分） 41. 下列程序段的运行结果。 A Private Sub Form_Click() Dim Msg Hide

Msg=”选择‘确定’按钮” MsgBox Msg Show

2

运行下面程序后，在窗体中显示的是_ D____。 D.$$$$$$$$$

执行下面程序段后，变量a的值为__C __。 C.14 D.21 写出如下程序运行结果。 D C.QUICK Basic Programming D.Quick BASIC Programming

43. Private Sub Form_Click() a$=\ For k=1 To 3

x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub

A.*** ** **** B.*$*$*$ C.1*$2*$3*$ 44. For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I

A.3 B.9 45. Function f(m As Integer) As Integer b = 1

Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function

Private Sub Command1_Click() Dim a As Integer a = 2 sum=0

For I = 1 To 3 sum=sum+ f(a)

Next I print sum End Sub

A.12 B.16 C.20 D.24 46.以下程序的输出结果是 B 。 Private Sub Command1_Click() a=1234 b$=Str$(a) c=Len(Trim(b)) print c;LenB(b) End Sub

A.3 8 B.4 10 C.5 10 D.4 8

47. 执行下面程序段后，变量x的值为___A _。 x=5

For I=1 To 20 step 2 x=x+I\\5 Next I

A.21 B.22 C.23 D.24 48. 以下程序的输出结果是_ D___。 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a>100 print a End Sub

A.100 B.120 C.201 D.101 49. 以下程序的循环次数是__ A __。 Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub

A.10 B.9 C.27 D.28 50. 下列程序运行后，其结果为__A __。 Private Sub Form_Click ( ) Filename=“c:\\testfile.txt” Open filename For Output As #1 Print #1,“ABCD我是一个学生” Close #1

Open filename For Input As #1 MsgBox Input(8,1) Close #1 End Sub

A.在通用对话框中显示“ABCD我是一个” B.在通用对话框中显示“ABCD我是”

C.在窗体中显示“ABCD我是一个”

D.在窗体中显示“ABCD我是”

第一套 主观题

填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）

1. 下列程序运行后，能求出20个数中的最大值。请填上适当的内容，将程序补充完整。 Private Sub Form_Activate() Randomize

Dim I As Integer,ssl As Integer,Dim tt As Integer ssl = Int(Rnd * 51 + 50) For I = 1 To 19 tt = Rnd * 51 + 50 __IF ssl

2. 在C盘根目录下建立一个名为Student.dat的顺序文件。 要求用InputBox函数输入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。 Private Sub Form_Load ( )

Open “C:Student.dat” For Output As #1 For I=1 to 10

StuNo=InputBox(“请输入学号”) StuName= InputBox (“请输入姓名”) StuSex= InputBox (“请输入性别”) _write #1, _ ,StuNo,Stuname,StuSex Next I Close #1 End Sub

3. 编写一个求最大公约数的函数，并调用该函数，程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As Integer

Dim re as integer Do While b<>0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_Click()

Dim x As Integer,y As Integer, z As integer X=96 Y=64

3

z=gcd(x,y) ____ Print “结果=”;z End Sub

4. 请用正确的内容填空。

下面程序的作用是利用随机函数产生10个(1～200) 之间的随机整数，打印其中7的整数倍的数并求其和。 Private Sub Form_Click() For I=1 To 10 x=Int(Rnd*200+1) If (x mod 7)=0 __ Then k1=k1+x Print x End If Next I Print

Print \ End Sub

5. 下面程序运行时，内层循环的循环总次数是___6____。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m

6. 在窗体中添加两个命令按钮，其名称分别为Command1和Command2，

窗体加载时要求Command1不可用，Command2可用；单击Command2后，

Command1可用。请将下列程序补充完整。 Private Sub Command2_Click() __ command1.enabled=true________ End Sub

Private Sub Form_Load()

____command1.enabled=false _ command2.enabled=true________ End Sub

7. 函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生

[1,9]之间的随机数，调用odd过程，判断该数是否为奇数。 如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd(n As Integer) Print n; If n/2<>n\\2 Then Print \奇数\ Else

Print __ “偶数”___ End If End Sub

Private Sub Command1_Click()

4

Dim x As Integer Randomize

x =_ int(rnd*9+1) ___ odd x End Sub

8. 下列程序允许用户按Enter键将一个组合框（cboComputer）中没有的项目添加到组合框中。

Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=False

For I=0 To cboComputer.ListCount-1

If cboComputer.Text=cboComputer.List(i) Then Flag=True Exit For End If Next

If Not flag Then

cboComputer.AddItem cboComputer.Text Else

MsgBox(”组合框中已有该项目！”) End If End If End Sub

9. 请用正确的内容填空。

下面程序的功能是通过InputBox对话框接受一个二进制数，并把它转换成一个十进制数，结果显示在窗体中。 Private Sub Form_Click()

b=InputBox(\请输入一个二进制数\ m=Len(b)

For j= __1 to m___

dec=dec*2+ ___val (Mid(b,j,1)) Next j

Print b;\转换后的十进制数为：\ End Sub

10. 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = \

Open \ Do While ___not eof(1)___ Input #1, inData

Text1.Text = Text1.Text & inData Loop End Sub

第二套 客观题

第一题：是非题（共10分，每项1分）

1. 函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。 A.对 B.错

2. 当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。 A.对 B.错

3. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。 A.对 B.错

4. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据

类型的内在空间，而且还为变量赋所需的初值。 A.对 B.错

5. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。 A.对 B.错

6. Style为0时组合框称为简单组合框。 A.对 B.错 7. VB中的“消息”是指由一个应用程序传递到另一个应用程序的信息包。 A.对 B.错

8. 普通窗体与子窗体建立的方法是相同的，不同之处是子窗体的MDIChild属性设置为False，而普通窗体的MDIChild属性设置为True。 A.对 B.错

9. 除了Click事件之外，菜单项还能响应其他的事件。 A.对 B.错

10. 数组作为过程参数时，使用的是地址传送方式。 A.对 B.错

第二题、 单选题（共45分，每项1.5分） 11. 在下列表达式中，非法的是 C 。 A.a=b+c B.a>b+c C.a≠b>c D.a

12. 语句Dim a(3,-3 to 0,3 to 6)声明的数组a有 C 元素。 A.12 B.27 C.64 D.80

13. 下面关于随机文件的描述，不正确的是 B 。 A.每条记录的长度必须相同 B.一个文件中记录号不必惟一 C.文件的组织结构比顺序文件复杂

D.可通过编程对文件中的某条记录方便地修改 14. 下列说法错误的是 C 。

A.在多重窗体中一定要有一个窗体为启动窗体。

B.在多重窗体中，如果没有指定启动窗体，则默认首先设计

的窗体为启动窗体。

C.启动窗体能在运行程序时自动显示出来，其它窗体有些也

能自动显示出来。

5

D.启动窗体通过“工程”菜单中的“工程属性”命令来指定。 15. 在VB中，常量987654,987654#的数据类型是 D 。 A.整型 B.实型 C.长整型 D.双精度

16. 假定有一个菜单项，名为MenuItem，为了在运行时使该菜

单项失效（变灰），应使用的语句为 A 。

A. MenuItem. Enabled=False B.MenuItem. Enabled=True C.MenuItem. Visible=True D.Menultem. Visible=False 17. 不论何种控件，共同具有的是 B 属性。 A.Text B.Name C.BackColor D.Caption 18. If结构的结束语句是 C 。

A.End Select B.End Sub C.End If D.End Do 19. MsgBox函数的返回值的类型为 A 。 A.整数 B.字符串 C.逻辑值 D.日期值

20. VB表达式Cos(0)+Abs(-1)+Int(Rnd(1))的值是 B 。 A.1 B.2 C.0 D.-1

21. 假如列表框（List1）有4个数据项，那么把数据项“China”

添加到列表框的最后，应使用 D 语句。 A. List1.AddItem3，”China”

B.List1.AddItem”China”，List1.ListCount-1 C.List1.AddItem”China”，3

D.List1.AddItem”China”，List1.ListCount 22. 表达式a+b=c是 D 。

A.赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式 23. 在VB中要将一个窗体装载到内存中进行预处理，但不显示，

应该使用语句 C 。

A.Form.Show B.Form.Load C.Form.Hide D.Form.Unload 24. 如果列表框（List1）中只有一个项目被用户选定，则执行

Debug．Print List1Selected（List1.ListIndex）语句的结果是 B 。

A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True

C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True

25. 为减少语句的使用，将一个窗体加载到内存中并显示出来，

所使用的语句或方法是 C 。 A.Load B.Unload C.Show D.Hide

26. 窗体从加载到显示，依次引发的事件有。 D A.Load、Initialize、Activate B.Initialize、Activate、load C.Load、Activate、Initialize D.Initialize、Load、Activate

27. 如果每0.5秒产生一个计时器事件，那么Interval属性值应

设为 C 。

A.5 B.50 C.500 D.0.5

28. 表达式3>4 And 7=5的返回值为 D 。 A.0 B.True C.-1 D.False 29. 下面语句语法正确的是 B 。

A.a=1 b=2 c=3 B.a=1:b=2:c=3 C.a=1,b=2,c=3 D.a=1;b=2;c=3 Case Else 30. VB表达式Cos(0)+Abs(-1)+Int(Rnd(1))的值是 B 。 A.1 B.2 C.0 D.-1

31. 使用驱动器列表框的 B 属性可以返回或设置磁盘驱动器的名称。

A.ChDrive B.Drive C.List D.ListIndex 32. 文件号最大可取的值为 B 。 A.255 B.511 C.512 D.256

33. 在Visual Basic中，语句Print 3>9的输出结果为 D 。 A.0 B.1 C.-1 D.False 34. 全局变量必须在 A 中定义

A.标准模块 B.任意模块 C.窗体模块 D.类模块 35. 为了防止用户随意将光标置于控件之上，应该进行 D 设置。

A.将控件的 TabIndex属性设置为 0 B.将控件的 TabStop属性设置为 True C.将控件的 TabStop属性设置为 False D.将控件的 Enabled属性设置为 False

36. 当一个工程含有多个窗体时，其中的启动窗体是 D 。A. 启动VB时建立的窗体 B. B.第一个添加的窗体 C. 最后一个添加的窗体

D. D.在“工程属性”对话框中指定的窗体。 37. 如果列表框（List1）中没有被选定的项目，则执行

List1.RemoveItem List1.ListIndex语句的结果是 D 。 A.移去第一项 B.移去最后一项

C.移去最后加入列表的一项 D.以上都不对 38. 通过代码在运行时设置属性的语法格式为 B 。 A.对象名＝属性 .新值 B.对象名.属性＝新值

C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 39. 改变驱动器列表框的Drive属性值将激活 A 事件。

A.Change B.Scoll C.KeyDown D.KeyUp

40. 下列逻辑表达式中，其值为真的是 A 。 A.\B.\C.9>\D.\

第三题、 简单程序（共15分，每项1.5分）

41. 运行下面程序后，在弹出的消息窗口中显示的是 D 。 Private Sub Form_Click() score=Int(Rnd)+5 Select Case score Case 5 a$=\ Case 4 a$=\ Case 3 a$=\

a$=\ End Select MsgBox a$ End Sub

A.Bad B.Pass C.Ok D.Good 42. 下列程序段的运行结果。 C Private Sub Form_Load() ListCityName.AddItem ”北京” ListCityName.AddItem ”上海” ListCityName.AddItem ”广州” End Sub

A.在文本框中增加“北京”、“上海”和“广州”三个初始条目 B.在组合框中增加“北京”、“上海”和“广州”三个初始条目 C.在列表框中把“北京”、“上海”和“广州”三个初始条目清除 D.在列表框中增加“北京”、“上海”和“广州”三个初始条目 43. 写出下面过程运行后显示的结果。B Public Sub a(n As Integer, ByVal m As Integer) x = x Mod 10 y = y \\ 10 End Sub

Private Sub Command1_Click() Dim x As Integer, y As Integer x = 4 y = 12 Call a(x, y) Print x+y End Sub

A.8 B.16 C.12.4 D.5.2 44. 下列程序运行后，其结果为 D 。 Dim char As Byte

Open “D:\\Abc.dat” For Binary As #1 Open “A:\\Myfile.dat” For Binary As #2 Do While Not Eof(1) Get #1, ,char Put #2, ,char Loop Close #1,#2

A.将A盘上的文件Myfile.dat复制到D盘，文件名改为

Abc.dat。

B.将A盘上的文件Myfile.dat复制到D盘 C.将D盘上的文件Abc.dat复制到A盘

D.将D盘上的文件Abc.dat复制到A盘，文件名改为Myfile.dat

45. 下面程序运行后，输出的结果为 B 。 Private Sub Command1_Click( ) A$=”Beijing” 6

B$=”dalian” C$=”shanghai”

C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub

A.10 B.0 C.8 D.6

46. 写出下列程序的运行结果，并说明函数的功能。 A Public Function f(m%, n%) Do While m <> n Do While m > n m = m – n Loop

Do While n > m n = n – m Loop Loop f = m End Function

Private Sub Command1_Click() print f(24, 18) End Sub

A.6 B.8 C.10 D.12

47. 执行下面的程序段后，变量S的值为 C 。 S＝5

For I ＝2.6 To 4.9 Step 0.6 S=S+1 Next I

A.7 B.8 C.9 D.10

48. 以下程序的输出结果是 A 。 Option Base 1

Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5

For I=1 To 10 a(I)=I Next I For I=1 To 3 p(I)=a(I*I) Next I For I=1 To 3 k=k+p(I)*2 Next I Print k End Sub

A.33 B.28 C.35 D.37

49. 运行下面程序后，在弹出的消息窗口中显示的是 C 。 Private Sub Form_Click()

k=0

Do While k<70 k=k+2 k=k*k+k a=a+k Loop MsgBox a End Sub

A.64 B.72 C.78 D.148

50. 运行下面程序后，在弹出的消息窗口中显示的是 C 。 Private Sub Form_Click() Dim counter counter=0 While counter<20 counter=counter+1 Wend

MsgBox counter End Sub

A.0 B.21 C.20 D.19

第二套 主观题

填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）

1. 请用正确的内容填空。以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。 Private Sub Form_Click() Dim d(6) For I=1 To 50

n= int(rnd*6+1) d(n)=d(n)+1 Next I For I=1 To 6

Print I;\点出现\次\ Next I End Sub

2. 窗体中有一公共对话框Comdialog1和一个命令按钮

Command1， 当单击按钮时打开颜色对话框。请将程序补充完整。 Private Sub Command1_Click( )

ComDialog1. ShowColor(Action=3) End Sub

3. 在窗体frmform1中添加一个通用对话框控件

CommonDialog1， 运行时，首先使用CommonDialog1打开一个标准的颜色对话框，用于设置对象颜色，其次使用

CommonDialog1打开一标准的字体对话框，用于设置对象的字体、字形和字号效果。 Private Sub Form_Load() CommonDialog1.Action = 3

7

Text1.BackColor = CommonDialog1.Color CommonDialog1. flags=1 CommonDialog1=4

Text1.FontName = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize End Sub

4. 窗体中有一公共对话框Comdialog1和一个命令按钮Command1， 当单击按钮时打开颜色对话框。请将程序补充完整。 Private Sub Command1_Click( ) ComDialog1. Showcolor End Sub

5. 请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。 Private Sub Form_Click() For x=1 To 50 For y=x To 50 z=Sqr(x*x+y*y)

If z<=5 And z=Int(z) Then Print x; y; z Next y Next x Print End Sub

6. 执行下面的程序段后，s的值为 7 Private Sub Form_Click() Static s As Integer s = 5

For I = 1.4 To 2.1 Step 0.6 s = s + 1 Next I Print s End Sub

7. 执行下面的程序段后，X的值为 8 。 X=5

For I=1 to 10 Step 2 X=X+I\\5 Next I

8. 请用正确的内容填空。下面程序用“选择”法将数组a中的10个整数按升序排列。 Option Base 1

Private Sub Form_Click() Dim a

a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For I=1 To 9

For j= i+1 To 10 If a(i)>a(j) Then t=a(I): a(I)=a(j): a(j)=t End If

8

Next j Next I For I=1 To 10 Print a(I); Next I End Sub

9. 以下程序的功能是：生成20个200到300之间的随机整数， 输出数的位置能被5整除的数并求出它们的和。请填空。 Private Sub Commandl_C1ick() For I＝1 To 20

x＝Int( Rnd *200+100) If I Mod 5 ＝0 Then Print x S＝S+ x End If Next I

Print \＝\ End Sub

10. 以下程序的功能是：从键盘上输入若干个学生的考试分数， 统计并输出最高分数和最低分数，当输入负数时结束输入， 输出结果，请将程序补充完整。 Private Sub Form_Click() Dim x, amax, amin A Single x = InputBox(\ amax = x amin = x

Do While x>0 If x > amax Then amax = x End If

If x

x = InputBox(\ Loop

Print \ End Sub

第三套 客观题

第一题：是非题（共10分，每项1分）

1. 用户在“文件打开”通用对话框中选择一个文件时，对话框控件的FileName属性含有所选文件名字。 A.对 B.错

2. 表达式 “ab” & 34的结果是 “ab34”。 A.对 B.错

3. 变量名是以字母或汉字开头，由字母、汉字、数字或下划线组成，长度可以任意的字符序列。

A.对 B.错 4.标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。 A.对 B.错

5. Timer是时钟控件的唯一事件。 A.对 B.错

6. 菜单项的快捷键不能任意设置。 A.对 B.错

7. GotFocus事件通常用来在焦点移离时进行验证和确认。 A.对 B.错

8. ActiveX技术是一种共享程序数据和功能的技术。 A.对 B.错

9. 菜单选项“Enabled”属性与“Visible”属性是相同的。 A.对 B.错

10. VB6.0只能运行在Windows 2000下，不能运行在Windows 98

下。 A.对 B.错

第二题、 单选题（共45分，每项1.5分） 11. 在VB中，变量的默认类型是 C 。

A.Integer B.Double C.Variant D.Currency 12. 在顺序文件中 D 。

A.文件中按每条记录的记录号从小到大排序 B.文件中按每条记录的长度从小到大排序 C.文件中按记录的某关键数据项的从小到大的顺序 D.记录是按写入的先后顺序存放的，读出也是按写入的先后

顺序读出

13. 利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔

符，菜单分隔符的标题必须设置为 B 。 A.+ B.- C.* D./

14. 在Visual Basic中，最简单的数据类型包括 A 。 A.整型、实型、布尔型、字符型 B.整型、实型、字符型 C.整型、实型、逻辑型 D.实型、逻辑型、字符型 15. 下列控件中，没有Caption属性的是 B 。 A.框架 B.列表框 C.复选框 D.单选按钮 16. 在随机文件中__ C __。

A.文件中的内容是通过随机数产生的 B.文件中的记录号是通过随机数产生的 C.可对文件中的记录根据记录号随机地读写 D.文件的每条记录的长度是随机的

17. 下列控件中，不属于文件系统控件的是_ D ___。

A.驱动器列表框 C.目录列表框

B.文件列表框 D.图象列表框

C.在打开或另存为对话框中，用户选择的文件名和路径可以

经FileTitle属性返回。

D.利用通用对话框可显示和制作帮助对话框。

19. VB中的工具栏可以从 C 菜单上的“工具栏”命令中移进或移出。

A.工具 B.编辑 C.视图 D.调试 20. 用来设置粗体字的属性是。C

A.Font1Italic B.FontName C.FontBold D.FontSize 21. 在VB的集成环境中创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是 C 。 A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 22. Sub和Function的最大差别在于 A 。 A.Function有返回值，而Sub没有 B.Function需要输入参数，而Sub不用 C.Sub可以用Call语句调用，而Function不行 D.两者并无不同

23. 当一个窗体被卸载时，最后引发的一个事件是 D 。 A.Deactivate B.QueryUnload C.Unload D.terminate 24. 复选框的Value属性为1时，表示 B 。 A.复选框未被选中 B.复选框被选中

C.复选框内有灰色的勾 D.复选框操作方式“错误” 25. 下列四个字符串进行比较，最小的是_ A _。

A.\26. 计时器的时间间隔是 A 。

A.以毫秒计 B.以分计 C.以秒计 D.以小时计 27. 组合框的Style属性决定组合框的类型和行为，它的值为2

时，其显示形式和功能是 C 。

A.下拉列表框，并允许用户输入不属于列表框中的选项 B.简单组合框，并允许用户输入不属于列表框中的选项 C.下拉列表框，不允许用户输入不属于列表框中的选项 D.简单组合框，不允许用户输入不属于列表框中的选项 28. 下面关于顺序文件的描述，正确的是 C __。 A.每条记录的长度必须相同

B.可通过编程对文件中的某条记录方便地修改

C.数据以ASCII码形式存放在文件中，所有可通过文本编辑

软件显示

D.文件的组织结构复杂

29. 文件列表框中用于设置或返回所选文件的文件名的属性是 D __。

A.FilePath B.File C.Path D.FileName 30. 当一个工程含有多个窗体时，其中的启动窗体是 D __。

A.启动VB时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体

D.在“工程属性”对话框中指定的窗体。

31. 使用目录列表框的_ C _属性可以返回或设置当前工作

目录的完整路径。

9

18. 下列关于通用对话的描述错误的是 C _。 A.CommandDialog1.ShowFont显示字体对话框。

B.在打开或另存为对话框中，用户选择的文件名和路径可以

经FileName属性返回。

A.Drive B.ListIndex C.Path D.Dir

32. 如果列表框（List1）中只有一个项目被用户选定，则执行

Debug．Print List1Selected（List1.ListIndex）语句的结果是 A 。

A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True

C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True

33. 要使用FSO对象模型，必须通过【工程】菜单中的_ D___

命令将FSO对象模型引入到当前工程中。

A.部件 B.工程属性 C.添加属性 D.引用 34. 下列说法错误的是 B 。

A.在同一模块不同过程中的变量可以同名。 B.不同模块中定义的全局变量不可以同名。

C.引用另一模块中的全局变量时，必须在变量名前加模块名。 D.同一模块中不同级的变量可以同名。

35. 用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是

C 。 A.7 B.8 C.9 D.10

36. 在Visual Basic中，用于获得字符串S最左边4个字符的函

数是 A 。

A.Left(S,4) B.Left(1,4) C.LeftStr(S) D.LeftStr(S,4) 37. VB 工程中的每一个窗体都是独立的 B 。 A.类 B.对象 C.数据库 D.方法

第三题、 简单程序（共15分，每项1.5分）

41. 从键盘输入一个实数mm，利用字符串函数对输入的数进行

处理，如果输出的内容不是字符则输出“END“，程序的输出结果是 C 。 Private Sub Command1_Click()

mm=Val(InputBox(\请输入一个实数\ n$=Str$(mm) p=InStr(n, \ If p>0 Then Print Mid(n,p) Else Print \ End If End Sub

A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据部分的小数点，保留所有数码输出

42. 当输入4时，以下程序的输出结果是 D 。 Private Sub Command1_Click() x=InputBox(x) If x^2<15 Then y=1/x If x^2>15 Then y=x^2+1

10

Print y End Sub

A.4 B.17 C.18 D.0.25

43. 下面的程序运行后，将产生 C 的结果。 Private Sub Form_load()

Dim Str As String, Anum As Integer Open \ str1 = \ str2 = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub

A.建立一个\的文本文件

B.建立一个\的文本文件，并写入一行数据，还

在窗体上显示一行数据

C.建立一个\的文本文件，并写入两行数据 D.打开一个\的文本文件，并读出两行数据 44. 以下程序的输出结果是 D 。 Private Sub Command1_Click() Dim sum As Integer sum%=19 sum=2.32 Print sum%,sum End Sub

A.19 2.32 B.19 19 C.2.32 2.32 D.2 2 45. 下面程序运行后，单击命令按钮，在两个文本框中显示的值

分别为__ B____。

Private Sub Command1_Click() x=0

Do While x<50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

A.1和0 B.2和72 C.3和50 D.4和168 46. 单击命令按钮之后，下列程序代码的执行结果为。B Private Function p(n As Integer) For I = 1 To n Sum = Sum + I Next I p = Sum End Function

Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4)

Print s; End Sub

A.10 B.20 C.24 D.28 47. 以下程序的输出结果是__A ___。 Private Sub Command1_Click() a=\ b=\ c=Lcase(a) d=Ucase(b) Print c+d End Sub

A.abcdEFGH B.abcdefgh C.ABCDefgh D.ABCDEFGH 48. 在窗体中添加Command1和Command2两个命令按钮来测验

文本框Text1的值，然后编写如下代码： Private Sub Command1_Click() Text1.Text = \ End Sub

Private Sub Command2_Click() Text1.Text = \ End Sub

首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示___A___。

A.AB B.CD C.ABCD D.CDAB

End Sub

3. 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，

要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2， 请在将程序补充完整。 Private Sub Command1_Click() Form1.hide Form2. show End Sub

4. 打开顺序文件Student.dat，读取文件中的全部数据，并将数据显示在窗体上。

Private Sub Form_Click ( )

Open \ Do While _not EOF(1)___

Input #1, stuno, stuname, stusex

Print stuno; Tab(10); stuname; Tab(20); stusex Loop Close #1 End Sub

5. 编程统计D:\\data.txt中字符“$”出现的次数。并将统计结果写入到文本文件D:\\Mydir\\result.txt中 Private Sub Form_Click()

Dim Inputdata As String, Count As Integer Open \ Do While Not EOF(1)

Inputdata = Input(1, #1) __if inputbox=”$” then____ Count = Count + 1 Loop Close #1

Open \ _ print #1 ,count_____ Close #1 End Sub

6. 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程

Private Sub Command1_C1ick() Dim a As String a= ”123456789” For I ＝1 To 5

Print Spc(6-I)；Mid$(a，6-I，2*I-1) Next I End Sub

程序运行后，单击命令按钮，要求窗体上显示的输出结果为 5 456 11

第三套 主观题

填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！） 1. 请用正确的内容填空。以下程序的运行结果为： D CD

Private Sub Form_Click() a=\

For m= 1 To 2

Print Tab(5-m); Right$(a, m) Next m End Sub

2. 以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。 Option Base 1

Private Sub Command1_Click() Dim arr1, Max as Integer

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) max = arr1(1) For I = 1 To 8

If arr1(I) > Max Then max =arr1 (I) Next I

Print \最大值是: \

34567 2345678 123456789 请填空。

7. 请用正确的内容填空。下面程序运行后，输出的结果是： ******** ******** ******** ********

Private Sub Form_Click() For I=1 To 4 Print Tab(10+I); For j=1 To 8 Print \ NEXT J Print Next I End Sub

8. 在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和 一个命令按钮（其Name属性为Command1），单击命令按钮，在两 个文本框Text1和Text2中分别显示的值是N和X,完成程序。

Private Sub Command1_Click() X = 0

Do While X < 10 X = (X + 1) * (X + 2) n = n + 1 Loop

Text1.Text = str(N) Text2.Text = Str(X) End Sub

9. 用FSO模型操作方法将“C:\\My Documents”文件夹中的文件（不含子文件夹）复制到“C:\\Temp”文件夹。 Dim fsox As New fileSystemObject

Fsox CopyFil “C:\\My Documents\\*.*”，“C:\\Temp\\” 10. 请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。 Private Sub Form_Click()

a$=\ b$=\ c=InStr(a$, b$) x=0 While c<>0 x=x+1

a$=Mid$(a$, InStr(a$,b$)+2) c=InStr(a$,b$) Wend

12

print x End Sub

第四套 客观题

第一题：是非题（共10分，每项1分）

1. 用户控件和系统控件都可以加载到工具箱上，并且永久保留。 A.对 B.错

2. 在VB中，可通过函数Shell调用DOS或Windows下的可执

行程序。 A.对 B.错

3. 窗体的Moveabel属性设为False时，不能改变窗体的大小，

只能移动窗体。 A.对 B.错 4. \是一个字符串，而\不是一个字符串。 A.对 B.错

5. 单选项和复选框能够响应Click事件，但通常不需要编写事件

过程。 A.对 B.错

6. 在Not、Or、And三个运算符中，运算符And的的优先级最

高。 A.对 B.错

第四套 主观题

填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）

1. 下面程序的功能是：输入一个字符串，在“d:\\f1.dat”文件中

查找输入的字符串是否存在， 若存在，则输出“找到字符串”，否则输出“没找到字符串”。请将下列程序补充完整。 Private Sub Form_Load()

a$ = InputBox(\请输入要查找的字符串\ Open \ input As #1 b$ = Input(LOF(1),#1) dim y as integer y = InStr(1, b$, a$) If y <> 0 Then Print \找到字符串\ Else

Print \没找到字符串\ End If End Sub

4 7 10 6 9 12

2.请用正确形式填空。以下程序运行输出矩阵： 5 8 11 Private Sub Form_Click() Dim a(3, 3) For j = 1 To 3 For k = 1 To 3

a(j, k) = 3 * k + j Print a(j, k); Next k Print Next j End Sub

3.以下程序计算1+1/3+1/5+??+y/2N-1)，直到1/(2N-1)小于0.0001

Private Sub Form_Click() Sum = 1: n = 1 Do

n = n + 1 term = 1 / (2 * n - 1) Sum = Sum + term

If term < 0.0001 Then Exit Do Loop Print \Print \End Sub

一、选择题

(1) 下面叙述正确的是(C)

A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对

(2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈

(3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得

A. 8 B. 16 C. 32 D. 15

(4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句

(5) 下面概念中，不属于面向对象方法的是 (D) 注：P55-58

A. 对象 B. 继承 C. 类 D. 过程调用

(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)

A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码

(7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构

13

C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B)

A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库

(9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致

(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108

A. 内模式 B. 外模式 C. 概念模式 D. 逻辑模式 (11) 算法的时间复杂度是指(C)

A. 执行算法程序所需要的时间 B. 算法程序的长度 C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数

(12) 算法的空间复杂度是指(D)

A. 算法程序的长度 B. 算法程序中的指令条数 C. 算法程序所占的存储空间 D. 算法执行过程中所需要的存储空间

(13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出 A. 349 B. 350 C. 255 D. 351

(14) 结构化程序设计主要强调的是(B) A.程序的规模 B.程序的易读性

C.程序的执行效率 D.程序的可移植性

(15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D) 注：即第一个阶段

A. 概要设计 B. 详细设计 C. 可行性分析 D. 需求分析

(16) 数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是(A) 注：P67 A. 控制流 B. 加工 C. 数据存储 D. 源和潭

(17) 软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B) 注：P66

A. 阶段性报告 B. 需求评审 C. 总结 D. 都不正确 (18) 下述关于数据库系统的叙述中正确的是(A)

A. 数据库系统减少了数据冗余 B. 数据库系统避免了一切冗余

C. 数据库系统中数据的一致性是指数据类型的一致 D. 数据库系统比文件系统能管理更多的数据

(19) 关系表中的每一横行称为一个(A) A. 元组 B. 字段 C. 属性 D. 码

(20) 数据库设计包括两个方面的设计内容，它们是(A) A. 概念设计和逻辑设计 B. 模式设计和内模式设计 C. 内模式设计和物理设计 D. 结构特性设计和行为特性设计

(21) 下列叙述中正确的是(A)

A. 线性表是线性结构 B. 栈与队列是非线性结构 C. 线性链表是非线性结构 D. 二叉树是线性结构 (22) 下列关于栈的叙述中正确的是(D)

A. 在栈中只能插入数据 B. 在栈中只能删除数据

C. 栈是先进先出的线性表 D. 栈是先进后出的线性表 (23) 下列关于队列的叙述中正确的是(C)

A. 在队列中只能插入数据 B. 在队列中只能删除数据 C. 队列是先进先出的线性表 D. 队列是先进后出的线性表

(24) 对建立良好的程序设计风格，下面描述正确的是(A) 注：P48

A. 程序应简单、清晰、可读性好 B. 符号名的命名要符合语法

C. 充分考虑程序的执行效率 D. 程序的注释可有可无 (25) 下面对对象概念描述错误的是(A) 注：P55

A. 任何对象都必须有继承性 B. 对象是属性和方法的封装体

C. 对象间的通讯靠消息传递 D. 操作是对象的动态性属性

(26) 下面不属于软件工程的3个要素的是(D) 注：P62 A. 工具 B. 过程 C. 方法 D. 环境 (27) 程序流程图（PFD）中的箭头代表的是(B) 注：P81 A. 数据流 B. 控制流 C. 调用关系 D. 组成关系 (28) 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是(A)

A. 数据库系统 B. 文件系统 C. 人工管理 D. 数据项管理

(29) 用树形结构来表示实体之间联系的模型称为(B) A. 关系模型 B. 层次模型 C. 网状模型 D. 数据模型 (30) 关系数据库管理系统能实现的专门关系运算包括(B)

A. 排序、索引、统计 B. 选择、投影、连接 C. 关联、更新、排序 D. 显示、打印、制表

(31) 算法一般都可以用哪几种控制结构组合而成(D) 注：P3

A. 循环、分支、递归 B. 顺序、循环、嵌套 C. 循环、递归、选择 D. 顺序、选择、循环 (32) 数据的存储结构是指(B) 注：P13，要牢记

A. 数据所占的存储空间量 B. 数据的逻辑结构在计算机中的表示

C. 数据在计算机中的顺序存储方式 D. 存储在外存中

14

的数据

(33) 设有下列二叉树：图见书P46 对此二叉树中序遍历的结果为(B)

A. ABCDEF B. DBEAFC C. ABDECF D. DEBFCA

(34) 在面向对象方法中，一个对象请求另一对象为其服务的方式是通过发送(D) 注：P56 A. 调用语句 B. 命令 C. 口令 D. 消息

(35) 检查软件产品是否符合需求定义的过程称为(A) 注：P95

A. 确认测试 B. 集成测试 C. 验证测试 D. 验收测试 (36) 下列工具中属于需求分析常用工具的是(D) 注：P67

A. PAD B. PFD C. N-S D. DFD

(37) 下面不属于软件设计原则的是(C) 注：P73 A. 抽象 B. 模块化 C. 自底向上 D. 信息隐蔽 (38) 索引属于(B)

A. 模式 B. 内模式 C. 外模式 D. 概念模式 (39) 在关系数据库中，用来表示实体之间联系的是(D) A. 树结构 B. 网结构 C. 线性表 D. 二维表

(40) 将E-R图转换到关系模式时，实体与联系都可以表示成(B)

A. 属性 B. 关系 C. 键 D. 域

(41) 在下列选项中，哪个不是一个算法一般应该具有的基本特征(C)

A. 确定性 B. 可行性 C. 无穷性 D. 拥有足够的情报 (42) 希尔排序法属于哪一种类型的排序法(B)

A.交换类排序法 B.插入类排序法 C.选择类排序法 D.建堆排序法

(43) 在深度为5的满二叉树中，叶子结点的个数为(C) A. 32 B. 31 C. 16 D. 15

(44) 对长度为N的线性表进行顺序查找，在最坏情况下所需要的比较次数为(B) 注：要牢记 A. N+1 B. N C. (N+1)/2 D. N/2

(45) 信息隐蔽的概念与下述哪一种概念直接相关(B) 注：P74

A.软件结构定义 B. 模块独立性 C. 模块类型划分 D. 模拟耦合度

(46) 面向对象的设计方法与传统的的面向过程的方法有本质不同，它的基本原理是(C)

A. 模拟现实世界中不同事物之间的联系 B. 强调模拟现实世界中的算法而不强调概念 C. 使用现实世界的概念抽象地思考问题从而自然地解决问题 D. 鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考

(47) 在结构化方法中，软件功能分解属于下列软件开发中的阶段是(C) 注：总体设计也就是概要设计

A. 详细设计 B. 需求分析 C. 总体设计 D. 编程调试

(48) 软件调试的目的是(B) 注：与软件测试要对比着复习

A.发现错误 B.改正错误 C.改善软件的性能 D.挖掘软件的潜能

(49) 按条件f对关系R进行选择，其关系代数表达式为(C)

A. R|X|R B. R|X|Rf C. бf(R) D. ∏f(R)

(50) 数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是(D) 注：P127，要牢记 A. 自顶向下 B. 由底向上 C. 由内向外 D. 由整体到局部

(51) 在计算机中，算法是指(C) A. 查询方法 B. 加工方法

C. 解题方案的准确而完整的描述 D. 排序方法

(52) 栈和队列的共同点是(C) 注：这一共同点和线性表不一样

A. 都是先进后出 B. 都是先进先出 C. 只允许在端点处插入和删除元素 D. 没有共同点

(53) 已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是(A) 注：P38，前提要掌握三种遍历的方法

A. cedba B. acbed C. decab D. deabc (54) 在下列几种排序方法中，要求内存量最大的是(D) 注：要牢记，书中没有提到。

A. 插入排序 B. 选择排序 C. 快速排序 D. 归并排序 (55) 在设计程序时，应采纳的原则之一是(A) 注：和设计风格有关

A. 程序结构应有助于读者理解 B. 不限制goto语句的使用

C. 减少或取消注解行 D. 程序越短越好

(56) 下列不属于软件调试技术的是(B) 注：P98

A. 强行排错法 B. 集成测试法 C. 回溯法 D. 原因排除法

(57)下列叙述中，不属于软件需求规格说明书的作用的是(D)注：P71

A. 便于用户、开发人员进行理解和交流 B. 反映出用户问题的结构，可以作为软件开发工作的基础和依据 C. 作为确认测试和验收的依据 D. 便于开发人员进行需求分析

(58) 在数据流图（DFD）中，带有名字的箭头表示(C) A. 控制程序的执行顺序 B. 模块之间的调用关系 C. 数据的流向 D. 程序的组成成分 (59) SQL语言又称为(C)

A. 结构化定义语言 B. 结构化控制语言 C. 结构化查询语言 D. 结构化操纵语言

(60) 视图设计一般有3种设计次序，下列不属于视图设计的是(B)

15

A. 自顶向下 B. 由外向内 C. 由内向外 D. 自底向上 (61) 数据结构中，与所使用的计算机无关的是数据的(C)

A. 存储结构 B. 物理结构 C. 逻辑结构 D. 物理和存储结构

(62) 栈底至栈顶依次存放元素A、B、C、D，在第五个元素E入栈前，栈中元素可以出栈，则出栈序列可能是(D)

A. ABCED B. DBCEA C. CDABE D. DCBEA

(63) 线性表的顺序存储结构和线性表的链式存储结构分别是(B)

A. 顺序存取的存储结构、顺序存取的存储结构 B. 随机存取的存储结构、顺序存取的存储结构 C. 随机存取的存储结构、随机存取的存储结构 D. 任意存取的存储结构、任意存取的存储结构

(64) 在单链表中，增加头结点的目的是(A)

A. 方便运算的实现 B. 使单链表至少有一个结点 C. 标识表结点中首结点的位置 D. 说明单链表是线性表的链式存储实现

(65) 软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指(B) 注：P73

A. 模块间的关系 B. 系统结构部件转换成软件的过程描述 C. 软件层次结构 D. 软件开发过程

(66) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为(B) 注：P82

A. PAD图 B. N-S图 C. 结构图 D. 数据流图

(67) 数据处理的最小单位是(C) 注：数据项不可再分割

A. 数据 B. 数据元素 C. 数据项 D. 数据结构

(68) 下列有关数据库的描述，正确的是(C) 注：P102 A. 数据库是一个DBF文件 B. 数据库是一个关系 C. 数据库是一个结构化的数据集合 D. 数据库是一组文件

(69) 单个用户使用的数据视图的描述称为(A) 注：P108

A. 外模式 B. 概念模式 C. 内模式 D. 存储模式 (70) 需求分析阶段的任务是确定(D)

A. 软件开发方法 B. 软件开发工具 C. 软件开发费用 D. 软件系统功能

(71) 算法分析的目的是(D) 注：书中没有总结，但要牢记

A. 找出数据结构的合理性 B. 找出算法中输入和输出之间的关系 C. 分析算法的易懂性和可靠性 D. 分析算法的效率以求改进

(72)链表不具有的特点是(B)

A.不必事先估计存储空间 B.可随机访问任一元素

B．在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用 C．调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D．调用通用对话框控件的ShowColor方法，可以打开颜色对话框

第10题 实现算法所需要的存储单元的多少称为（ ）。 A．可实现性 B．空间复杂度 C．时间复杂度 D．困难度

第11题 要让窗体不具有最大化功能，应该将窗体的某个属性设置为False，这个属性是（ ） A．Max B．MaxButton C．AutoRedraw D．BorderStyle

第12题 要使一个文本框可以显示多行文本，应设置为True的属性是（ ） A．Enabled B．MultiLine C．MaxLength D．Width

第13题 某人在窗体上画了一个名称为Timer 1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签是显示一次系统当前时间。 Private Sub Timer1_Timer() Label 1.Caption=Time$ End Sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是 （ ）

A．通过属性窗口把计时器的Interva1属性设置为200

21

0

B．通过属性窗口把计时器的Enabled属性设置为False

C．把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time

D．把事件过程中的Label1.Caption=TimeS语句改为Label1.Caption=Timer1.Time

第14题 文件是（ ）构成的数据集合。 A．字段 B．字符 C．记录 D．汉字

第15题 下列叙述中正确的是（ ）。

A．线性链表的各元素在存储空间中的位置必须是连续的

B．线性链表的头元素一定存储在其他元素的前面 C．线性链表中的各元素在存储空间中的位置不一定是连续的，但表头元素一定存储在其他元素的前面 D．线性链表中的各元素在存储空间中的位置不一定是连续的，且各元素的存储顺序也是任意的

第16题 设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是（ ）。 A．命令按钮的所有Caption属性都是Command1 B．在代码中访问任意一个命令按钮只需使用名称Command1

C．命令按钮的大小都相同 D．命令按钮共享相同的事件过程

第17题 执行以下程序段 Dim x As Integer，i As Integer x=0

For i=20 T0 1 Step -2 x=x+i\\5 Next i

后，x的值为（ ） A．16 B．17 C．18 D．19

第18题 以下叙述中错误的是（ ） A．事件过程是响应特定事件的一段程序 B．不同的对象可以具有相同的名称的方法 C．对象的方法是执行指定操作的过程 D．对象事件的名称可由编程者指定

第19题 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码： Private X As Integer

Private Sub Command l_Click() X=5：Y=3 Call proc(X，Y) Labell．Caption=X Label2．Caption=Y End Sub

Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b-I-b End Sub

程序运行后，单击命令按钮，由两个标签中显示的内容分别是（ ） A．5和3 B．25和3 C．25和6 D．5和6

第20题 在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Command 1_lick() For i=1 T0 4

22

Ifi=1 Then x=i Ifi<=4 Then x=x+1 Print x; Next 1 End Sub

程序运行后，单击命令按钮，其输出结果为（ ） A．1 2 3 4 B．2 3 4 5 C．2 3 4 4 D．3 4 5 6

第21题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command 1_Click() Dim numAs Integer num=1

Do Unti I num>6 Print num； num=hum+2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（ ） A．1 3.4 5.8 B．1 3 5 C．1 4 7 D．无数据输出

第22题 用LineInput语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到_______分隔符，即认为一行的结束。 A．文件结束符 B．回车符 C．空格 D．Tab字符

第23题 组合框是文本框和（ ）特性的组合。 A．复选框

B．列表框 C．标签 D．目录列表框

第24题 在窗体上画一个命令按钮，然后编写如下事件过程：

第27题 工程有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮的Click事件过程应该是（ ） A．Private Sub Command1_Click(1 Form 2．Show End Sub

B．Private Sub Command l_Click() Form2．Visible End Sub

C．Private Sub Command l_Click() Load Form2 End Sub

D．Private Sub Command l_Click() Form 2．Load End Sub

第28题 以下程序运行后，输出的结果是（ ）。 Private Sub Command1_Cliek()

Dim a As Integer，b As Integer，C As Integer a＝3：b＝5：C＝7 abc＝F(c，a，b) Print abc EndSub

Private Function F(x As Integer，Y As Integer，z As Integer) As Integer F＝(X+Y*Y)*z End Function A．80 B．196 C．90 D．100

第29题 在窗体上画1个名称为Command1的命令接钮，然后编写如下事件过程 Private Sub Command 1_Click()

23

运行上面的程序，单击命令按钮，其输出结果是（ ）。 A．13579 B．135 C．975 D．97531

第25题 执行如下语句：

a=InputBox(“Today”，“Tomorrow”，“Yesterday”，，，“Day before yestersay”,5)将显示一个输入对话框，在对话框的输入区中显示的信息是（ ） A．Today B．Tomorrow C．Yesterday

D．Day before yesterday

第26题 似定有一个菜单项，名称为Menultem，为了在运行时使该菜单失效(变灰)，应使用的正确语句是（ ）

A．Menultern.Enabled=False B．Menultem.Enabled=True C．Menultem.Visible=True D．Menultem.Visible=False

Dim a(5，5)As Integer For i=1 T0 5 For j=1 T0 5 a(i，j)=(i+j)*5\\1O Next j Next i S=0

For i=1 T0 5 S=S+a(i，i) Print End Sub

程序运行后，单击命令按钮，输出结果是（ ） A．15 B．13 C．11 D．9

第30题 在窗体上画一个命令按钮(名称为Commandl)，然后编写如下事件过程 Private Sub Command l_Click() Dim bAsInteger b=b+1 End Sub

程序运行后，三次单击命令按钮后，变量b的值是（ ） A．0 B．1 C．2 D．3

第31题 在窗体上画一个命令按钮，编写如下事件代码：

Private Sub Command l_Click() msgl$=“Microsoft” msg2$=“Visual Basic” r=MsgBox(msgl，34，msg2) End Sub

程序运行后，单击命令按钮，则结果是

第32题 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command l_Click() Dim xAsInteger Static Y As Integer x=10 Y=5

Call f1(X，Y) Print X，V End Sub

Private Sub f1(ByRef X1 As Integer，yl As Integer) x1=X1+2 y1=y1+2 End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是 （ ） A．10 5 B．12 5

24

C．10 7 D．12 7

第33题 函数String(n“str”)的功能是（ ） A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符

D．从字符串中第n个字符的位置开始取子字符串 第34题 要使一个文本框可以显示多行文本，应设置为True的属性是（ ） A．Enabled B．MultiLine C．MaxLength D．Width

第35题 若窗体中已经有若干个不同的单选按钮．要把官们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是（ ）

A．把所有单选按钮的Index属性改为相同值 B．把所有单选按钮的Index属性改为连续的不同值 C．把所有的单选按钮的Caption属性值改为相同 D．把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值纠错

25