38

1.下列叙述中正确的是,,

A.解决同一个问题的不同算法的时间复杂度一般是不同的

B.解决同一个问题的不同算法的时间复杂度必定是相同的

C.对同一批数据作同一种处理，如果数据存储结构不同，不同算法的时间复杂度肯定相同

D.对同一批数据作不同的处理，如果数据存储结构相同，不同算法的时间复杂度肯定相同

2.下列处理中与队列有关的是

A.操作系统中的作业调度 

B.执行程序中的过程调用

C.执行程序中的循环控制

D.二叉树的遍历

3.设栈的存储空间为S(1:m)，初始状态为top=m+1。经过一系列入栈与退栈操作后，top=1。现又要将一个元素进栈，栈顶指针top值变为

A.发生栈满的错误

B.2

C.m

D.0

4.设二叉树共有150个结点，其中度为1的结点有10个，则该二叉树中的叶子结点数为

A.71

B.70

C.69

D.不可能有这样的二叉树

5.非空循环链表所表示的数据结构

A.有根结点也有叶子结点

B.没有根结点但有叶子结点

C.有根结点但没有叶子结点

D.没有根结点也没有叶子结点

6.设二叉树中共有31个结点，其中的结点值互不相同。如果该二叉树的后序序列与中序序列相同，则该二叉树的深度为

A.31

B.16

C.17

D.5

7.在最坏情况下，堆排序的时间复杂度是

A.

B.

C.

D.

8.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是

A.学籍管理系统

B.ERP系统

C.C编译程序

D.CAI软件

9.存储在计算机内有结构的数据集合是

A.数据库

B.数据库系统

C.数据库管理系统

D.数据结构

10.在数据库技术中，为提高数据库的逻辑独立性和物理独立性，数据库的结构被划分成用户级、存储级和

A.概念级

B.外部级

C.管理员级 

D.内部级

11.以下叙述中错误的是(  )。

A.一个Visual Basic应用程序可以包含一或多个工程

B.一个Sub过程内不能嵌套定义另一个Sub过程

C.MsgBox函数的返回值与在对话框中所单击的按钮有关，为一整数

D.Visual Basic应用程序只能以解释方式执行

12.下列说法中错误的是(  )。

A.事件是Visual Basic预置的，且能够被对象识别的动作

B.事件过程是指响应某个事件后执行的一段程序代码

C.一个对象可以识别一个或多个事件

D.Visual Basic是采用对象驱动编程机制的语言

13.N260010342) 下面是Visual Basic合法变量名的是(  )

A.PrintA

B.10B             

C.Debug           

D.B#C

14.以下不是Visual Basic合法常量的是(  )。

A.'a'             

B.&O12      

C.&H12&   

D.#1/20/2014#

15.以下叙述中，错误的是(  )。

A.MsgBox函数的返回值为一整数

B.InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定

C.有语句：x = InputBox("输入：", "输入整数")，则该语句打开的对话框的标题是"输入整数"

D.可以用MsgBox函数输出一条信息

16.在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是(  )。

A.该控件的TabStop属性值为True

B.该控件的TabStop属性值为False

C.该控件的Enabled属性值为True

D.该控件的Locked属性值为True

17.下列符号常量声明中，不合法的是(  )。

A. Const conx = "ok" 

B.Const conx& = 20

C.Const conx As Integer = 20

D.Const conx = Int(20.67)

18.

A.Sin ^ 2 * (x + y) + Exp(5)

B.Sin ^ 2 * (x + y) + e ^ 5

C.Sin(x + y) ^ 2 + e ^ 5

D.Sin(x + y) ^ 2 + Exp(5)

19.在窗体上画一个文本框、一个标签，其名称分别为Text1、Label1，然后编写如下事件过程：

Private Sub Text1_Change()

  Label1.Caption = UCase(Mid(Trim(Text1.Text), 7, 3))

End Sub

程序运行时，如果在文本框中输入字符串“VisualBasic计算机等级考试”，则在标签Label1中显示的内容是(  )。

A.asi

B.ASI

C.Bas

D.BAS

20.下面说法中正确的是(  )。

A.设a=5，b=3，c=1，则执行语句Print a>b>c后的输出结果为False

B.语句Const x As Double = Sqr(2)能够定义一个符号常量x

C.在过程中，要定义可选参数，应使用的关键字是ParamArray

D.用Static定义的变量，其值在程序运行过程中始终存在，因此，该种类型的变量是全局变量

21.程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为(  )。

A.LargeChange属性的值

B.Min属性的值

C.Max属性的值

D.SmallChange属性的值

22.设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是(  )。

A.Text1.MaxLength = 30 

B.Text1.Text = 89

C.Text1.Caption = 89

D.Text1.FontBold = True

23.设组合框 Combo1 中有 5 个项目，则以下能删除最后一项的语句是(  )

A.Combo1.RemoveItem 4

B.Combo1.RemoveItem 5

C.Combo1.RemoveItem Combo1.ListCount+1

D.Combo1.RemoveItem Combo1.ListCount

24.假定列表框List1中没有被选中的项目，则执行

List1.RemoveItem List1.ListIndex

语句的结果是(  )。

A.删除最后加入列表中的一项

B.删除最后一项

C.出错

D.删除第一项

25.假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是(  )。

A.Print 100

B.Text1.Print 100

C.Debug.Print 100

D.Picture1.Print 100

26.下列叙述中，正确的是(  )。

A.框架控件的标题不能在程序运行过程中修改

B.标签中显示的文本在运行阶段不能改变

C.组合框是组合文本框和列表框的特性而成的控件，所以它具有二者的全部属性

D.文本框可以显示多行文本

27.设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是(  )

A.List1.List

B.List1.ListIndex

C.List1.Text

D.List1.Text

28.若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：

Private Sub Form_Load ( )

    List1.AddItem "数学"

    List1.AddItem "物理"

    List1.AddItem "化学"

    List1.AddItem "外语"

    List1.AddItem "语文"

End Sub

Private Sub Form_Click()

    List1.RemoveItem 1

    List1.RemoveItem 2

End  Sub

运行程序后，单击窗体，则列表框中显示的项目是(  )。

A.数学

化学

语文

B.数学

外语

语文

C.化学

外语

语文

D.物理

外语

语文

29.有如下程序代码：

Private Sub Form_Click()

    X = 8

    If X > 8 Then

        Print "X > 8"

    ElseIf X < 10 Then

        Print "X < 10"

    ElseIf X = 8 Then

        Print "X = 8"

    End If

End Sub

运行程序，单击窗体，输出结果是(  )。

A.X < 10

     X = 8

B.X < 10

C.X = 8

D.不确定

30..在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click()

    Dim S As Integer

    S = 0

    For i = 1 To 15

        x = 2 * i - 1

        If x Mod 3 = 0 Then

            S = S + 1

        End If

    Next i

    Label1.Caption = S

End Sub

运行程序，单击窗体，标签中显示的是(  )。

A.5

B.1

C.27

D.45

31.有如下程序段：

s = 0

For i = 1 To 10

   s = s + i

Next i

Print s

与上述程序段输出结果相同的程序段为(  )。

A.s = 0: i = 0

     While i <= 10

        i = i + 1

        s = s + i

     Wend

     Print s

B. s = 0: i = 1

     While i < 10

        i = i + 1

        s = s + i

     Wend

     Print s

C.s = 0: i = 1

     Do

        s = s + i

        i = i + 1

     Loop While i < 10

     Print s

D.s = 0: i = 1

     Do

        s = s + i

        i = i + 1

     Loop Until i > 10

     Print s

32.运行如下程序

   Private Sub Command1_Click()

      Dim a(5, 5) As Integer

      For i = 1 To 5

         For j = 1 To 4

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

            If a(i, j) / 7 = a(i, j) \ 7 Then

               n = n + 1

            End If

         Next j

      Next

      Print n

   End Sub

则n的值是(  )

A.2

B.3

C.4

D.5

33.要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：

Function DelChar(str As String, ch As String) As Integer

    Dim n%, st$, c$

    st = ""

    n = 0

    For k = 1 To Len(str)

        c = Mid(str, k, 1)

        If c = ch Then

            st = st & c

        Else

            n = n + 1

        End If

    Next k

    str = st

    DelChar = n

End Function

并用下面的Command1_Click()过程观察函数调用结果

Private Sub Command1_Click()

    ch$ = Text1.Text

    Print DelChar(ch, "x"), ch

End Sub

发现结果有错误，程序代码需要修改，以下正确的修改方案是(  )。

A.把语句If  c = ch  Then 改为If  c <> ch  Then

B.把语句Print DelChar(ch, "x"), ch改为Print DelChar(ch, "x") ：Print ch

C.把语句DelChar = n 改为 DelChar = st

D.删掉语句str = st

34.如果窗体模块A中有一个过程：

Private Sub Proc( )

    ……

End Sub

则下面叙述中错误的是(  )。

A.在标准模块中不能调用此过程

B.在窗体模块B中可以有与此相同名称的过程

C.窗体模块A中任何其他过程都可以调用此过程

D.在窗体模块B中可以调用此过程

35.对于通用对话框控件，下列说法中错误的是(  )。

A.DefaultEXT和DialogTitle属性只用于打开对话框，不能用于保存对话框

B.用通用对话框控件可以建立打开文件对话框，也可以建立保存文件对话框

C.用打开文件对话框可以指定一个文件，由程序使用

D.用保存文件对话框可以指定一个文件，由程序使用

36.利用菜单编辑器在窗体中新建一个名称为mnuOpen的弹出式菜单，其中含有若干个菜单项，并编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button = 2 Then

     _________________

  End If

End Sub

程序运行过程中，当在窗体上单击鼠标右键时，显示已建立的mnuOpen菜单，则在以上程序代码中的横线处应填入的语句是(  )。

A.mnuOpen.Show

B.mnuOpen.PopupMenu

C.PopupMenu mnuOpen

D.Show mnuOpen

37.设窗体上无任何控件，且有如下程序代码：

 Private Sub Form_KeyPress(KeyAscii As Integer)

     Print Chr(KeyAscii)

 End Sub

 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

     Print Chr(KeyCode)

 End Sub

运行程序，直接按“A”键，输出结果是(  )。

A.A

A

B.A

a

C.a

A

D.a

a

38.在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：

Private Type stu

  sn As String * 20

  class As String * 20

End Type

Private Sub Command1_Click()

  Dim s As stu

  Open "c:\allstu.dat" For Random As #1 Len = Len(s)

  s.sn = "John"

  s.class = "Computer 2013"

  Put #1, , s

  Close #1

End Sub

则以下叙述中正确的是(  )。

A.定义记录类型stu的Type语句可以移到事件过程Command1_Click中

B.如果文件c:\allstu.dat不存在，则Open语句执行中出现"文件未找到"的错误

C.文件c:\allstu.dat中的每条记录是等长的

D.语句“Put #1, , s”中没有指明记录号，因此系统总是把记录写到文件的头部

39.Print #语句的作用是(  )。

A.向随机文件中写数据

B.向顺序文件中写数据

C.向窗体上输出数据 

D.从顺序文件中读入数据

40.在Visual Basic工程中，可以作为“启动对象”的是(  )。

A. Sub Main过程

B.任何过程

C.在标准模块中专门定义的启动过程

D.Sub Main过程以及任何过程

1.A  算法的时间复杂度是指执行算法所需要的计算工作量，而计算工作量是用算法所执行的基本运算次数来度量的。解决同一个问题的不同算法的时间复杂度，可能相同也可能不相同。

算法的时间复杂度与数据存储结构无关，对同一批数据作同一种处理或者不同处理，数据存储结构相同或者不同，算法的时间复杂度都可能相同或者不同。

故选A选项

2.A  队列是指允许在一端进行插入，而在另一端进行删除的线性表。由于最先进入队列的元素将最先出队，所以队列具有“先进先出”的特性，体现了“先来先服务”的原则。

作业调度是指根据一定信息，按照一定的算法，从外存的后备队列中选取某些作业调入内存分配资源并将新创建的进程插入就绪队列的过程。

执行程序中的过程调用一般指函数调用，需要调用时候转入被调用函数地址执行程序，与队列无关。

执行程序中的循环控制是指算法的基本控制结构，包括对循环条件的判定与执行循环体，与队列无关。

二叉树是一个有限的结点集合，二叉树的遍历是指不重复地访问二叉树中的所有结点，与队列无关。

故本题选择A选项

3.A  栈是一种特殊的线性表，它所有的插入与删除都限定在表的同一端进行。入栈运算即在栈顶位置插入一个新元素，退栈运算即是取出栈顶元素赋予指定变量。题目中初始状态为top=m+1，可知入栈栈顶指针top=top-1, 出栈栈顶指针top=top+1，由于栈长为m，当top=1时栈满，不能再进行入栈操作。故选A选项

4.D  在树结构中，一个结点所拥有的后件个数称为该结点的度，所有结点中最大的度称为树的度。对任何一棵二叉树，度为0的结点总是比度为2的结点多一个。

如果有一棵二叉树，结点总数为150，假设度为0的结点个数为n，则有n+10+n-1=150，n=70.5，由于结点个数必须是整数，所以不可能有题目中这样的二叉树。故选择D选项

5.A  在单链表的第一个结点前增加一个表头结点，队头指针指向表头结点，最后一个结点的指针域的值由NULL改为指向表头结点，这样的链表称为循环链表。循环链表是线性结构，有且只有一个根结点，每一个结点最多有一个前件，也最多有一个后件。

循环链表表头结点为根结点，链表的最后一个结点为叶子节点，虽然它含有一个指向表头结点的指针，但是表头结点并不是它的一个后件。故选择A选项

6.A  二叉树遍历可以分为3种：前序遍历（访问根结点在访问左子树和访问右子树之前）、中序遍历（访问根结点在访问左子树和访问右子树两者之间）、后序遍历（访问根结点在访问左子树和访问右子树之后）。

由结点值互不相同而后序序列与中序序列相同，可知该二叉树所有的结点都没有右子树，所以31个结点的二叉树深度为31。

故选A选项。

7.B  若有ｎ个元素的序列，将元素按顺序组成一棵完全二叉树，当且仅当满足下列条件时称为堆，大根堆是指所有结点的值大于或等于左右子结点的值；小根堆是指所有结点的值小于或等于左右子结点的值。在调整建堆的过程中，总是将根结点值与左、右子树的根结点进行比较，若不满足堆的条件，则将左、右子树根结点值中的大者与根结点值进行交换。堆排序最坏情况需要次比较，所以时间复杂度是，B选项正确

8.C  计算机软件按功能分为应用软件、系统软件、支撑软件（或工具软件）。

系统软件是管理计算机的资源，提高计算机的使用效率，为用户提供各种服务的软件。应用软件是为了应用于特定的领域而开发的软件。支撑软件介于系统软件和应用软件之间，协助用户开发软件的工具型软件，其中包括帮助程序人员开发和维护软件产品的工具软件，也包括帮助管理人员控制开发进程和项目管理的工具软件，如Dephi、PowerBuilder等。选项C属于系统软件，选项A、B、D属于应用软件，故选C选项

9.A  数据库是指长期存储在计算机内的、有组织的、可共享的数据集合。

数据库系统是由数据库及其管理软件组成的系统，是应用软件。

数据库管理系统是数据库系统的核心，它位于用户与操作系统之间，属于系统软件。

数据结构是计算机存储、组织数据的方式。故本题选A选项

10.A  数据库系统在其内部分为三级模式，即概念模式、内模式和外模式。

概念模式是数据库系统中全局数据逻辑结构的描述，全体用户的公共数据视图。

外模式也称子模式或者用户模式，是用户的数据视图，也就是用户所能够看见和使用的局部数据的逻辑结构和特征的描述，是与某一应用有关的数据的逻辑表示。

内模式又称物理模式，是数据物理结构和存储方式的描述，是数据在数据库内部的存储方式。所以数据库的结构被划分成用户级、存储级和概念级。

故选A选项

11.D  一个Visual Basic应用程序可以包含一个或多个工程，当包含两个以上的工程时，这些工程构成一个工程组，故A选项正确；Sub过程不可以嵌套，也就是说，在Sub过程内，不能定义Sub过程或Function，故B选项正确；MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关，MsgBox函数所显示的对话框有7种按钮，返回值与这7种按钮对应，分别为1~7的整数(见下图)，故C选项正确；Visual Basic应用程序既可以以解释方式也可以以生成可执行文件方式执行，故D选项错误。

12.D  Visual Basic是采用事件驱动编程机制的语言，故D选项错误；A、B、C叙述均正确。

13.A  在VB中，变量是一个名字，给变量命名时应遵循以下规则：

（1）  名字只能由字母、数字和下画线组成；故B和D选项错误。

（2）  名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符；

（3）  名字的有效字符为255个；

（4）  不能用Visual Basic的保留字作变量名，但可以把保留字嵌入变量名中。Debug为保留字，故C选项错误。

  根据以上规则，只有A选项正确。

14.A  Visual Basic的文字常量分为两种，即字符串和数值。字符串常量用一对双引号括起来，故A选项错误；八进制整型数值常量由一个或几个八进制数字(0~7)组成，前面冠以&（或&O），故B选项正确；十六进制长整型数值常量由一个或几个十六进制数字（0~9及A~F或a~f）组成，前面冠以&H（或&h）开头，以&结尾，故C选项正确；日期常量用一对“#”括起来，故D选项正确；本题正确选项为A。

15.B  MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关，A选项正确；InputBox函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。在默认情况下，InputBox的返回值是一个字符串（不是变体类型）。也就是说，如果没有事先声明返回值变量的类型（或声明为变体类型），则当把该函数的返回值赋给这个变量时，Visual Basic总是把它作为字符串来处理，B选项叙述错误； InputBox函数的格式为：InputBox（prompt[，title][，default][，xpos，ypos][，helpfile，context]）其中，第一个参数prompt是一个字符串，它是在对话框内显示的信息，用来提示用户输入数据。第二个参数title是一个字符串，它是对话框的标题，显示在对话框的顶部的标题区。故C选项正确；MsgBox函数也可以写成语句形式，但MsgBox语句没有返回值，因而常用于较简单的信息显示，D选项正确；本题正确选项为B。

16.B  TabStop 属性指定是否能使用Tab键将焦点移到控件上，为True时可以获得焦点，为False时不可获得焦点，故A选项错误。Enabled属性用来确定文本框或其他可获得焦点的控件，是否对用户产生的事件作出反应，当为False时，文本框被禁用，当为True，可以获得焦点，故C选项错误。Locked属性是用来设置本文框或其他可获得焦点的控件的内容是否可以被编辑，默认为False，可编辑，取值为True时，不可编辑，但仍可获得焦点，故D选项错误，正确答案为B选项。

17.D  在Visual Basic中定义符号常量的一般格式为：Const 常量名=表达式[，常量名=表达式]……；其中“常量名”是一个名字，按变量的构成规则命名，可加类型说明符。“表达式”由文字常量、算术运算符(指数运算符^除外)、逻辑运算符组成，也可以使用诸如“Error on input”之类的字符串，但不能使用字符串连接运算符、变量及用户定义的函数或内部函数。故D选项错误

18.D  在Visual Basic中表达式Sin²(x + y)可以表示成Sin(x+y)^2；e⁵可以表示成Exp(5)；故D选项正确。

19.D  Trim（C）函数是去掉字符串C两端的空格；Mid（C，7，3）函数截取C中从第7个字符开始的共3个字符；Ucase函数是将C中的小写字母转化为大写字母。故正确答案为选项D。

20.A  语句Print a>b>c语句执行的顺序为：先执行a>b，结果为True，再判断True>c，True在ASCII表对应数字的值为-1，本题中在与数值c比较时，True转换为数字-1，判断-1>c，结果为False，故选项A正确；在声明符号常量时，可以在常量名后面加上类型说明符，如果不适用类型说明符，则根据表达式的求值结果确定常量类型，故B选项错误；定义可选参数的过程，必须在参数表中使用Optional关键字，并在过程体中通过IsMissing函数测试调用时是否传送可选参数，可变参数过程通过ParamArray命令来定义，故C选错误；用Static定义的变量，其值在程序运行过程中始终存在，这种变量称为静态局部变量，全局变量需要使用Public或Global定义，故D选项错误。本题正确选项为A。

21.A  水平滚动条的值从左向右递增，最左端代表最小值，最右端代表最大值。Max属性表示滚动条所能达到的最大值，取值范围为-32767~32768。当滚动框位于最右端时，Value属性将被设置为该值。故C选项错误；Min属性表示滚动条所能达到的最小值，取值范围同Max属性。当滚动框位于最左端时，Value属性将被设置为该值。故B选项错误；LargeChange属性表示当单击滚动条中滚动框前面或后面的部位时，Value增加或减小的增量值。故A选项正确；SmallChange属性表示当单击滚动条两端的箭头时，Value属性增加或减少的增量值。故本题选择A选项。

22.C  文本框属性值中无Caption属性，故C选项错误A、B、D叙述均正确。

23.A  RemoveItem方法用来删除列表框或组合框中指定的项目，RemoveItem方法从组合框中删除以“索引值”为地址的项目，组合框中表项“索引值”从0开始，并且该方法每次只能删除一个项目。ListCount属性列出组合框中表项的数量。组合框中表项的排列从0开始，最后一项的序号为ListCount-1。删除组合框中第5个项目，应该使用表达式“Combo1.RemoveItem 4”，故A选项正确。

24.C  如果列表框中没有选中任何项，ListIndex的值将设置为-1，则执行表达式“List1.RemoveItem List1.ListIndex”系统会提示出错。故C选项正确。

25.B  文本框无Print方法，故B选项错误。

26.D  框架控件和标签控件，在程序运行过程中都可以通过“控件名.Caption = 标题文本”动态设置控件的标题属性，故A、B选项均错误；组合框是由组合文本框和列表框的特性而成的控件，它具有二者绝大部分属性，而不是全部属性，故C选项错误；如果把文本框的MultiLine属性设置为True时，可以显示多行文本，即在文本框中输入或输出文本时可以换行，故D选项叙述正确。本题答案为D。

27.C  列表框控件List属性用来列出表项的内容。List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值（下标值从0开始）；故A选项错误。ListIndex该属性表示列表框控件中当前所选项目的索引号，表项的位置由索引值来指定；故B选项错误。Text属性的值为最后一次选中的表项的文本，不能直接修改Text属性；Index属性用来设置或返回控件在控件数组中的标识号；故D选项错误。本题正确答案为C选项。

28.A  AddItem方法：用来在列表框中插入一行文本（即项目）。RemoveItem方法：用来删除列表框中的指定项目。注意：列表框中项目索引值从0开始计数。执行Form_load事件后，向列表框中插入5个值分别为：数学、物理、化学、外语、语文，索引值依次为0，1，2，3，4。当执行Form_Click事件中的List1.RemoveItem 1语句后，List1中“物理”项被删除。此时列表框中的值分别为：数学、化学、外语、语文，其索引值依次为0，1，2，3。当执行Form_Click事件中的List1.RemoveItem 2语句后，List1中“外语”项被删除。此时列表框中的值分别为：数学、化学、语文。故A选项正确。

29.B  在块结构条件语句中，当If结构内有多个条件为True时，Visual Basic执行第一个为true的条件后面的语句块，后面的语句块则不会被执行。本题中变量X刚开始被赋值为8，程序执行时遇到的第一个条件为X > 8 为False，不执行Print X>8而执行句“ElseIf X < 10 Then”，因8 <10 为True，执行语句“Print "X < 10"”后窗体上输出“X<10”，程序结束。故B选项正确。

30.A  For循环中，循环变量i初始值为1，终止值为15， if语句判断x是否能被3整除，若能被3整除，则将变量S加1。在整个循环过程中只要计算x的值，看有多少个x的值能被3整除，变量S则保留能被3整除的x的个数。通过计算可以得知，x=3，6，9，12，15共5个，所以变量S的值为5，故选项A正确。

31.D  题目所给出程序段的功能：计算1到10之间所有自然数的累和，选项A循环变量i的取值为从0到10，其功能为计算1到11之间所有自然数的累和，故选项A错误；选项B循环变量i的取值为从1到9，其功能为计算2到10之间所有自然数的累和，故选项B错误；选项C循环变量i的取值为从1到9，其的功能为计算1到9之间所有自然数的累和，故选项C错误；选项D的功能为计算1到10之间所有自然数的累和，故D选项正确。

32.B  程序的功能：利用二重For循环给二维数组a中每个元素赋值，然后通过If语句“a(i,j)/7=a(i,j)\7”判断a(i,j)的值是否能被7整除，若能被7整除，则利用语句“n=n+1”，统计满足条件的a(i,j)的个数。程序开始时，利用二重循环和表达式“a(i, j) = i * 2 + j”给数组元素赋值，通过计算可以得知：a(2,3)=2*2+3=7；a(3,1)=2*3+1=7；a(5,4)=2*5+4=14，3个值满足条件，即n的值为3，故B选项正确。

33.A  DelChar函数中，使用For循环，依次取出str字符串中的字符。然后通过if语句判断取出的字符是否为要删除的字符，若不是则将该字符保存到字符串变量st中，若是则将计数变量n的值加1。观察if条件判断语句可知，“If c = ch Then st = st & c else n=n+1”逻辑有错误，应该改为“If c <> ch Then st = st & c else n=n+1”。故选项A正确。

34.D  过程所处的位置不同，其控制的范围也不同，在窗体中定义的过程能被本模块即窗体中的其他过程调用，不能被其他窗体中的模块调用。选项D表述错误，故正确答案为选项D。

35.A  DefaultEXT属性和DialogTitle属性是打开(Open)和保存(Save)对话框共同的属性，DefaultEXT属性用来设置对话框中默认文件类型，即扩展名；DialogTitle属性用来设置对话框的标题，故A选项错误。B、C、D选项叙述均正确。本题正确答案为A。

36.C  建立弹出式菜单通常分两步进行：首先用菜单编辑器建立菜单，然后用PopupMenu方法弹出显示。PopupMenu方法用来显示弹出菜单，其格式为：对象.PopupMenu 菜单名，Flags，X，Y，BoldCommand。其中“对象”是窗体名；菜单名是在菜单编辑器中定义的主菜单项名。对于两个键的鼠标来说，左键的Button参数为1，右键的Button参数值为2。程序中条件语句判断所按下的是否是鼠标右键，如果是，则用PopupMenu方法弹出菜单。PopupMenu方法省略了对象参数，指的是当前窗体。运行程序，然后在窗体的任意位置单击鼠标右键，将弹出一个菜单，故本题C选项正确。

37.B  按照事件发生的先后顺序，按下键盘上的按键时，首先触发KeyDown事件，然后再触发KeyPress事件。KeyPress事件带有一个参数，这个参数有两种形式。第一种形式是Index As Integer，只用于控件数组；第二种形式是KeyAscii As Integer，用于单个控件。KeyPress事件用来识别按键的ASCII码。参数KeyAscii是所按键的ASCII码。按下“a”键，KeyAscii的值为97。通过Chr(KeyAscii)得到“a”；KeyDown事件有两个参数，即KeyCode和Shift。KeyCode参数是按键实际的ASCII码，该码以“键”为准，而不是以“字符”为准。也就是说，大写字符与小写字母使用同一个键，它们的KeyCode相同（使用大写字母的ASCII码）。通过Chr(KeyCode)得到“A”；所以输出结果为“A  a”，故选项B正确。

38.C  用户定义数据类型可以用Type语句来定义，格式是：Type 数据类型名数据类型元素名 AS 类型名 数据类型元素名 AS 类型名....End Type。用户定义的数据类型必须先定义后使用，而且只能在模块（窗体模块或标准模块）的声明部分定义，故选项A错误。文件的打开格式：Open文件说明[For方式][Access存取类型][锁定]As #文件号[Len=记录长度]。如果以输出（Output）、附加（Append）或随机（Random）访问方式打开的文件不存在，则会建立相应的文件，故选项B错误。随机文件写操作格式：Put #文件号，[记录号]，变量，功能是把“变量”的内容写入由“文件”号所指定的磁盘文件中。当记录号没有指明时，系统默认，则数据将被写到下一个记录位置，即最近执行Get或Put语句后的记录，或由最近的Seek函数指定的记录，故选项D错误。本题正确答案为C。

39.B  向随机文件写数据使用Put #；向顺序文件中写数据使用Print #；向窗体上输出数据使用Print；从顺序文件中读入数据使用Input #；所以本题B选项正确。

40.A  Sub Main过程位于标准模块中。一个工程可以含有多个标准模块，但Sub Main过程只能有一个。Sub Main过程通常是作为启动过程编写的，但是Sub Main过程不能自动被识别，也就是说，Visual Basic并不自动把它作为启动过程，必须通过与设置启动窗体类似的方法把它指定为启动过程，所以本题A选项正确。