选择题（每小题2分，共70分）

　　下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

　　（1）下列选项中不符合良好程序设计风格的是

　　A） 源程序要文档化      B） 数据说明的次序要规范化

　　C） 避免滥用goto语句   D） 模块设计要保证高耦合、高内聚

　　（2）从工程管理角度，软件设计一般分为两步完成，它们是

　　A） 概要设计与详细设计  B） 数据设计与接口设计

　　C） 软件结构设计与数据设计  D） 过程设计与数据设计

　　（3）下列选项中不属于软件生命周期开发阶段任务的是

　　A）软件测试     B）概要设计 C）软件维护 D）详细设计

　　（4）在数据库系统中，用户所见的数据模式为

　　A） 概念模式    B）外模式  C）内模式   D）物理模式

　　（5）数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和

　　A） 编码设计    B） 测试阶段    C）运行阶段 D）物理设计

　　（6）设有如下三个关系表

    下列操作中正确的是

　　A）T＝R∩S      B）T＝R∪S

　　C）T＝R×S      D）T＝R/S

　　（7）下列叙述中正确的是

　　A）一个算法的空间复杂度大，则其时间复杂度也必定大

　　B）一个算法的空间复杂度大，则其时间复杂度必定小

　　C）一个算法的时间复杂度大，则其空间复杂度必定小

　　D）上述三种说法都不对

　　（8）在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为

　　A）63   B）64   C）6    D）7

　　（9）数据库技术的根本目标是要解决数据的

　　A）存储问题 B）共享问题 C）安全问题        D）保护问题

　　（10）对下列二叉树

　　进行中序遍历的结果是

　　A）ACBDFEG  B）ACBDFGE  C）ABDCGEF  D）FCADBEG

　　（11）以下叙述中正确的是

　　A）窗体的Name 属性指定窗体的名称，用来标识一个窗体

　　B）窗体的Name 属性值是显示在窗体标题栏中的文本

　　C）可以在运行期间改变窗体的Name 属性的值

　　D）窗体的Name 属性值可以为空

　　（12）以下叙述中错误的是

　　A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件

　　B）保存Visual Basic程序时，应分别保存窗体文件及工程文件

　　C）Visual Basic应用程序只能以解释方式执行

　　D）窗体文件包含该窗体及其控件的属性

　　（13）设a = 2, b = 3, c = 4, 下列表达式的值是

　　Not a b) And (c > d), 10, 20)

　　A）10   B）20   C）True D）False

　　（16）执行以下程序段后，变量c$的值为

　　a$ = "Visual Basic Programming"

　　b$ = "Quick"

　　c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)

　　A）Visual BASIC Programming B）Quick Basic Programming

　　C）QUICK Basic Programming D）Quick BASIC Programming

　　（17）在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是

　　A）Private Sub Text1_Click()   B）Private Sub Text1_Change()

　　     Label1.Caption = Text1.Text        Label1.Caption = Text1.Text

　　   End Sub        End Sub

　　C）Private Sub Label1_Change() D）Private Sub Label1_Click()

　　     Label1.Caption = Text1.Text        Label1.Caption = Text1.Text

　　   End Sub        End Sub

　　（18）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：

　　  Private Sub Command1_Click()

　　     Counter = 0

　　     For i = 1 To 4

　　        For j = 6 To 1 Step -2

　　             Counter = Counter + 1

　　        Next j

　　     Next i

　　     Label1.Caption = Str(Counter)

　　   End Sub

　　程序运行后，单击命令按钮，标签中显示的内容是

　　A） 11  B）12   C） 16  D）20

　　（19）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　    Dim i As Integer, n As Integer

　　    For i = 0 To 50

　　        i = i + 3

　　        n = n + 1

　　        If i > 10 Then Exit For

　　    Next

　　    Text1.Text = Str(n)

　　  End Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是

　　A）5    B）4    C）3    D）2

　　（20）在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：

　　 Private Sub Command1_Click()

　　     a = 0

　　     For i = 1 To 10

　　         a = a + 1

　　         b = 0

　　         For j = 1 To 10

　　             a = a + 1

　　             b = b + 2

　　         Next j

　　       Next i

　　       Label1.Caption = Str(a）

　　       Label2.Caption = Str(b）

　　  End Sub

　　程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是

　　A）10和20  B）20和110 C）200和110    D）110和20

　　（21）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是

　　A）Private Sub List1_Click()    B）Private Sub List1_Click()

　　     Label1.Caption = List1.ListIndex        Label1. Name = List1. ListIndex

　　     List1.RemoveItem List1.Text         List1.RemoveItem List1.Text

　　  End Sub         End Sub

　　C）Private Sub List1_Click()    D）Private Sub List1_Click()

　　     Label1.Caption = List1.Text         Label1.Name = List1.Text

　　     List1.RemoveItem List1.ListIndex        List1.RemoveItem List1.ListIndex

　　   End Sub         End Sub

　　（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　Private Sub Command1_Click()

　　    Dim i As Integer, j As Integer

　　    Dim a(10, 10) As Integer

　　    For i = 1 To 3

　　       For j = 1 To 3

　　          a(i, j) = (i - 1) * 3 + j

　　          Print a(i, j);

　　       Next j

　　       Print

　　     Next i

　　   End Sub

　　程序运行后，单击命令按钮，窗体上显示的是

　　A） 1  2  3

        2  4  6

        3  6  9

　　B）  2  3  4

       3  4  5

       4  5  6

　　C） 1  4  7

        2  5  8

        3  6  9

　　D）1  2  3

　　   4  5  6

　　   7  8  9

　　（23）在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：

　　Option Base 0

　　Private Sub Command1_Click()

　　     Dim A(4) As Integer,B(4) As Integer

　　     For k = 0 To 2

　　         A(k + 1) = InputBox("请输入一个整数")

　　         B(3 - k) = A(k + 1)

　　     Next k

　　     Print B(k)

　　End Sub

　　程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为

　　A）0    B）2    C）3    D）4

　　（24）有以下程序：

　　Option Base 1

　　Dim arr() As Integer

　　Private Sub Form_Click()

　　     Dim i As Integer, j As Integer

　　     ReDim arr(3, 2)

　　     For i = 1 To 3

　　         For j = 1 To 2

　　             arr(i, j) = i * 2 + j

　　          Next j

　　     Next i

　　     ReDim Preserve arr(3, 4)

　　     For j = 3 To 4

　　         arr(3, j) = j + 9

　　     Next j

　　     Print arr(3, 2); arr(3, 4)

　　 End Sub

　　程序运行后，单击窗体，输出结果为

　　A）8  13    B）0  13    C）7  12    D）0  0

　　（25）以下叙述中正确的是

　　A）一个Sub过程至少要有一个Exit Sub语句

　　B）一个Sub过程必须有一个End Sub语句

　　C）可以在Sub过程中定义一个Function过程，但不能定义Sub过程

　　D）调用一个Function过程可以获得多个返回值

　　（26）有以下程序：

　　Sub subP(b() As Integer)

　　    For i = 1 To 4

　　       b(i) = 2 * i

　　    Next i

　　End Sub

　　Private Sub Command1_Click()

　　    Dim a(1 To 4) As Integer

　　    a(1) = 5

　　    a(2) = 6

　　    a(3) = 7

　　    a(4) = 8

　　    subP a()

　　    For i = 1 To 4

　　        Print a(i)

　　    Next i

　　 End Sub

　　运行上面的程序，单击命令按钮，输出结果为      

　　A）     2

           4

           6

           8

　　B）    5

           6

           7

           8

　　C）    10

           12

           14

           16

  　D）    出错

　　（27）设有如下通用过程：

　　Public Function Fun(xStr As String) As String

　　    Dim tStr As String, strL As Integer

　　    tStr = ""

　　    strL = Len(xStr)

　　    i = 1

　　    Do While i