1、二级 VISUAL+BASIC-21-1 及答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：25，分数：40.00)1.文本框控件中将 Text 的内容全部显示为所定义的字符的属性项是 _ 。（分数：2.00）A.PasswordCharB.需要编程来实现C.PasswordD.以上都不是2.要使标签中的文本靠右显示，则应将其 Alignment 属性设置为_。（分数：2.00）A.0B.1C.2D.33.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角
2、的小方块D.不能同时改变控件的高度和宽度4.下列有关数据库的描述，正确的是（分数：1.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件5.下列程序执行后，变量 x 的值为_。 Dim a, b, c, d As Single Dim x As Single a=100 b=20 c=1000 If ba Then d=a: a=b: b=d End If If bc Then x=b Elseif ac then x=c Else x=a End If（分数：2.00）A.100B.20C.1000D.06.算法的空间复杂度是指 _。
3、（分数：1.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间7.表达式 2*32+2*8/4+32 的值为_ 。（分数：2.00）A.64B.31C.49D.228.设 A=“12345678“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为 _ 。（分数：2.00）A.123456B.123445C.8D.69.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素，删除运算是指删除表头第一个元素，那么最节省运算时间的存储方式是，（分数：1.00）A.仅有尾指针的单向循环链表B.仅有头指针的单向循环链表
4、C.单向链表D.顺序存储10.下列叙述中错误的是 _ 。（分数：2.00）A.在数据库系统中，数据的物理结构必须与逻辑结构一致B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持11.设程序中有如下语句： x=InputBox(“输入“，“数据“，100) Print x 运行程序，执行上述语句，输入 5 并单击输入对话框上的“取消”按钮，则窗体上输出 _ 。（分数：2.00）A.0B.5C.100D.空白12.现有如下程序： Private Sub Command1_Click() s=0 For i = 1
5、To 5 s = s + f(5+i) Next Print s End Sub Public Function f(x As Integer) If x = 10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 _ 。（分数：1.00）A.38B.49C.61D.7013.结构化程序设计的 3 种基本结构是 _ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复C.递归、堆栈和队列D.调用、返回和转移14.为了在运行时能显示宙体左上角的控制框(系统菜单)，必须_ 。（分数：2.00）A.把窗体的 Contr
6、olBox 属性设置为 False，其他属性任意B.把窗体的 ControlBox 属性设置为 True，并且把 BoderStyle 属性设置为 1-5C.把窗体的 ControlBox 属性设置为 False，同时把 BoderStyle 属性调协为非 0 值D.把窗体的 ControlBox 属性设置为 True，同时把 BoderStyle 属性设置为 0 值15.以下正确的叙述是_。（分数：2.00）A.Select Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 Select Case 语句时
7、，所有的 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Case 表达式是错误的；Select Case xCase 1 to 10End Select16.在代码中定义了一个子过程： Sub P(a,B) . End Sub 下面 _调用该过程的格式是正确的。（分数：1.00）A.Call PB.Call P 10,20C.CallP(10,20)D.P(10,20)17.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是 _ 。（分数：1.00）A.学生成绩管理系统B.C 语言编译程序C.UNIX 操作系统D.数据库管理系
8、统18.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt 文件)，则正确的描述格式是（分数：2.00）A.“text(.txt)|(*.txt)“B.“文本文件(.txt)|(.txt)“C.“text(.txt)|(*.txt)“D.“text(.txt)(*.txt)“19.下列叙述中中正确的是 _（分数：2.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.上述三种说法都不对20
9、.已知二叉树 BT 的后序遍历序列是 dabec，中序遍历序列是 debac，它的前序遍历序列是_。（分数：2.00）A.cedbaB.acbedC.decabD.deabc21.设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String, ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入 Basic，然后单击命令按钮
10、，则 Text1 中显示的是（分数：2.00）A.BasicB.cisaBC.BASICD.CISAB22.“打印”对话框的 _ 属性用来设置打印份数。（分数：1.00）A.CopiesB.FromPageC.PagesD.Topage23.实体联系模型中，实体与实体之间的联系不可以是（分数：1.00）A.一对一B.多对多C.一对多D.一对零24.下面关于多窗体程序设计描述不正确的是（分数：1.00）A.多重窗体程序中第一个被装载内存的窗体称为启动窗体B.多重窗体程序包括多个窗体，每个窗体都要作为一个文件保存C.Visual Basic 允许为工程生成可执行文件D.多重窗体程序的保存操作步骤按
11、照先保存工程文件，再保存窗体文件，最后保存标准模块文件25.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：1.00）A树B.网络C图D.二维表二、填空题(总题数：14，分数：26.00)26.设计一个窗体，窗体上画一个名为 Command1 的命令按钮、一个名为 CommonDialogl 的通用对话框控件、一个名为 Text1 的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit Comm
12、onDialogl.Color=Text1.ForeColor _ 1_ Text1.ForeColor=CommonDialog1.Color End Sub （分数：1.00）27.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。 （分数：2.00）为了显示一个窗体，所使用的方法为 1；而为了隐藏一个窗体，所使用的方法为
13、2。（分数：4.00）填空项 1:_填空项 1:_29.列程序的功能是将数据 1，2，10 写入顺序文件 Base.txt 中，请填空。 Private Sub Form_Click() Dim i As Integer Open _ 1_ As#1 For i=1 To 10 Print #1, i Next Close#1 End Sub （分数：2.00）30.在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num M
14、od 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数“) n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入“345“，输出结果为 _ 1_ 。 （分数：2.00）31.启动窗体在 _ 1_ 对话框中指定。 （分数：2.00）32.设有如下程序： Option Base 1 Private Sub Commandl Click() Dim arrl D
15、im Min As Integer，i As Integer arrl=Array(12,435,76,-24,78,54,866,43) Min= _ 1_ For i=2 To 8 If arrl(i)Min Then _ 2_ Next Print“最小值是:“;Min End Sub 以上程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 （分数：1.00）33.在 KeyPress 事件过程中，KeyAscii 是所按键的 _ 1_ 值。 （分数：1.00）34.具有 88 个结点的二叉树，其深度至少为 1。 （分数：2.
16、00）35.设循环队列的容量为 55，如果头指针 front=50(指向队头元素的前一位置)，尾指针 rear=45(指向队尾)，则该循环队列中共有 1 个元素。 （分数：2.00）36.下图中，图 1、图 2 是应用程序的部分界面。运行程序首先出现图 1 的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图 2 的界面。如果输入的门令错误，则出现图 3 的信息框。单击图 1 中的“取消”按钮，则结束程序。 Private Sub iommand1_ Click () Dim passwor As String password = Text1. Text if
17、 password = “Myname“ then 1 form1. Show Else d = MsgBox( 2) Refresh End if End Sub Private Sub command2_ Click() 3 End Sub 在图 1 的窗体中，文本框对象的名称属性是 4。 （分数：2.00）37.数据结构分为线性结构和非线性结构，带链的队列属于 1。 （分数：2.00）38._ 1_ 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。 （分数：1.00）39.在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long
18、)As Lone Dim k As Long k=1 num=Abs (num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n= InputBox (“请输入一个数”) n=CLng (n) r=fun (n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入 234，输出结果为 _ 1_ 。 （分数：2.00）二级 VISUAL+BASIC-21-1 答案解析(总分
19、：66.00，做题时间：90 分钟)一、选择题(总题数：25，分数：40.00)1.文本框控件中将 Text 的内容全部显示为所定义的字符的属性项是 _ 。（分数：2.00）A.PasswordChar B.需要编程来实现C.PasswordD.以上都不是解析：2.要使标签中的文本靠右显示，则应将其 Alignment 属性设置为_。（分数：2.00）A.0B.1 C.2D.3解析：3.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度
20、解析：解析 当控件处于活动状态时，用鼠标拖拉上、下、左、右 4 个小方块中的某个小方块可以使控件在相应的方向上放大或缩小；而如果拖拉位于 4 个角上的某个小方块，则可使该控件同时在两个方向上放大或缩小。4.下列有关数据库的描述，正确的是（分数：1.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合 D.数据库是一组文件解析：解析：数据库(Database，简称 DB)是数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，并可被各个应用程序所共享。数据库中的数据具有“集成”、“共享”之特点。5.下列程序执行后，变量 x 的值为_。
21、 Dim a, b, c, d As Single Dim x As Single a=100 b=20 c=1000 If ba Then d=a: a=b: b=d End If If bc Then x=b Elseif ac then x=c Else x=a End If（分数：2.00）A.100 B.20C.1000D.0解析：6.算法的空间复杂度是指 _。（分数：1.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间 解析：解析 一个算法的空间复杂度，一般是指执行这个算法所需的内存空间。一个算法所占用的存储空间包括算法程
22、序所占的空间、输入的初始数据所占的存储空间以及算法执行过程中所需要的额外空间。7.表达式 2*32+2*8/4+32 的值为_ 。（分数：2.00）A.64B.31 C.49D.22解析：8.设 A=“12345678“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为 _ 。（分数：2.00）A.123456B.123445 C.8D.6解析：9.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素，删除运算是指删除表头第一个元素，那么最节省运算时间的存储方式是，（分数：1.00）A.仅有尾指针的单向循环链表 B.仅有头指针的单向循环链表C.单向链表D.顺序存储
23、解析：解析 由于规定了插入运算是在表尾插入一个新元素，删除运算是指删除表头第一个元素。如果使用单向链表，且仅有头指针的单向循环链表，每次插入结点都要遍历整个链表，找到链尾，才能进行插入。如果采用顺序存储，每次删除表头元素时，都要移动 n-1 个元素。如果使用仅有尾指针的单向循环链表，插入新元素时，仅需移动尾指针就可以了，删除结点时，只需一步操作就可以定位到头结点，就可以进行删除，因为头结点是尾指针的下一个结点。10.下列叙述中错误的是 _ 。（分数：2.00）A.在数据库系统中，数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系
24、统的基础上建立数据库D.数据库系统需要操作系统的支持解析：解析 本题考查数据库系统的基本概念和知识。数据的逻辑结构，是数据间关系的描述，它只抽象地反映数据元素之间的逻辑关系，而不管其在计算机中的存储方式。数据的存储结构，又叫物理结构，是逻辑结构在计算机存储器里的实现。这两者之间没有必然的联系。因此，选项 A)的说法是错误的。 数据库可以看成是长期存储在计算机内的、大量的、有结构的和可共享的数据集合。因此，数据库具有为各种用户所共享的特点。不同的用户可以使用同一个数据库，可以取出它们所需要的子集，而且容许子集任意重叠。数据库的根本目标是要解决数据的共享问题。因此，选项 B)的说法正确。11.设程
25、序中有如下语句： x=InputBox(“输入“，“数据“，100) Print x 运行程序，执行上述语句，输入 5 并单击输入对话框上的“取消”按钮，则窗体上输出 _ 。（分数：2.00）A.0B.5C.100D.空白 解析：解析 本题考查 InputBox 的使用，只有单击“确定”按钮时，才会将输入的值返回，单击“取消”按钮时不能将输入的值返回，所以 5 并没有返回并赋值给 x，所以在窗体上输出“空白”。故本题选择D。12.现有如下程序： Private Sub Command1_Click() s=0 For i = 1 To 5 s = s + f(5+i) Next Print s
26、 End Sub Public Function f(x As Integer) If x = 10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 _ 。（分数：1.00）A.38B.49 C.61D.70解析：解析 程序中过程 f 的功能是参数值大于等于 10 时，返回参数加 1 的值，否则返回参数加 2 的值。因此按钮事件中 s 值的计算过程如下： i=1 时，s=0+f(5+1)=8； i=2 时，s=8+f(5+2)=8+9=17； i=3 时，s=17+f(5+3)=17+10=27； i=4 时，s=27+f
27、(5+4)=27+11=38； i=5 时，s=38+f(5+5)=38+11=49； 因此最终在窗体上输出的是 49。13.结构化程序设计的 3 种基本结构是 _ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复 C.递归、堆栈和队列D.调用、返回和转移解析：解析 程序的 3 种基本控制结构包括顺序、选择和重复(循环)，这 3 种结构就足以表达出各种其他形式的结构。14.为了在运行时能显示宙体左上角的控制框(系统菜单)，必须_ 。（分数：2.00）A.把窗体的 ControlBox 属性设置为 False，其他属性任意B.把窗体的 ControlBox 属性设置为 True，
28、并且把 BoderStyle 属性设置为 1-5 C.把窗体的 ControlBox 属性设置为 False，同时把 BoderStyle 属性调协为非 0 值D.把窗体的 ControlBox 属性设置为 True，同时把 BoderStyle 属性设置为 0 值解析：15.以下正确的叙述是_。（分数：2.00）A.Select Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式 C.在执行 Select Case 语句时，所有的 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Ca
29、se 表达式是错误的；Select Case xCase 1 to 10End Select解析：解析 Select Case 语句中的测试表达式只能是数值表达式或字符串表达式16.在代码中定义了一个子过程： Sub P(a,B) . End Sub 下面 _调用该过程的格式是正确的。（分数：1.00）A.Call PB.Call P 10,20C.CallP(10,20) D.P(10,20)解析：解析 如果使用 Call 关键字来调用一个需要参数的过程，参数列 argumentlist 就必须要加上括号。如果省略了 Call 关键字，那么也必须要省略 argumentlis 外面的括号。1
30、7.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是 _ 。（分数：1.00）A.学生成绩管理系统 B.C 语言编译程序C.UNIX 操作系统D.数据库管理系统解析：解析 软件按功能可以分为：应用软件、系统软件、支撑软件。操作系统、编译程序、汇编程序、网络软件、数据库管理系统都属于系统软件。所以 B、C、D 都是系统软件，只有 A 是应用软件。18.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt 文件)，则正确的描述格式是（分数：2.00）A.“text(.txt)|(*.txt)“ B.“文
31、本文件(.txt)|(.txt)“C.“text(.txt)|(*.txt)“D.“text(.txt)(*.txt)“解析：解析 本题考查文件对话框的属性。指出文件是文本文件用“text(.txt)|(*.txt)”表示。正确答案为 A 项。B 项缺少“*”；C 项的分隔符有误；D 项缺少分隔符。19.下列叙述中中正确的是 _（分数：2.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.上述三种说法都不对解析：解析 与顺序存储结构相比，线性表的链
32、式存储结构需要更多的空间存储指针域，因此，线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构。20.已知二叉树 BT 的后序遍历序列是 dabec，中序遍历序列是 debac，它的前序遍历序列是_。（分数：2.00）A.cedba B.acbedC.decabD.deabc解析：解析 由二叉树后序遍历序列和中序遍历序列可以唯一确定一棵二叉树。二叉树 BT 的后序遍历序列为 dabec，故 BT 的根结点为 c(后序遍历序列的最后一个结点为树的根结点)；而 BT 的中序遍历序列是debac，即遍历序列中最后一个结点为根结点，说明 BT 的右子树为空。由 BT 的后序遍历序列和中序遍历序列
33、可知 BT 的左子树的后序遍历序列和中序遍历序列分别为 dabe 和 deba，因此 BT 的左子树的根结点是e。再由中序遍历序列可知其左子树为 d，右子树为 ba。因此 BT 的前序遍历序列为 cedba。21.设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String, ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中
34、输入 Basic，然后单击命令按钮，则 Text1 中显示的是（分数：2.00）A.BasicB.cisaB C.BASICD.CISAB解析：解析 在循环中对变量 s 进行了赋值，最后将 s 的值放入文本框，由题中循环特点及 Mid 函数可以得出本题的答案为 B。22.“打印”对话框的 _ 属性用来设置打印份数。（分数：1.00）A.Copies B.FromPageC.PagesD.Topage解析：解析 “打印”对话框有一些重要的属性，这些属性的含义如下：Copies 属性用来存放用户设定的打印份数；FromPage 用来存放用户设置的打印起始页号；Topage 用来存放用户设置的打印终
35、止页号。“打印机”对话框无 Pages 属性。23.实体联系模型中，实体与实体之间的联系不可以是（分数：1.00）A.一对一B.多对多C.一对多D.一对零 解析：解析 实体联系模型中实体与实体之间的联系有一对一(11)，一对多或多对一(1m 或 m1)，多对多(mn)，其中一对一是最常用的关系。24.下面关于多窗体程序设计描述不正确的是（分数：1.00）A.多重窗体程序中第一个被装载内存的窗体称为启动窗体B.多重窗体程序包括多个窗体，每个窗体都要作为一个文件保存C.Visual Basic 允许为工程生成可执行文件D.多重窗体程序的保存操作步骤按照先保存工程文件，再保存窗体文件，最后保存标准模
36、块文件 解析：解析 本题主要考查多重窗体方面的知识。多重窗体程序的保存操作步骤是先保存窗体文件，再保存工程文件。故选项 D 的描述不正项。25.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：1.00）A树B.网络C图D.二维表 解析：解析：关系数据模型用统一的二维表结构表示实体及实体之间的联系(即关系)。二、填空题(总题数：14，分数：26.00)26.设计一个窗体，窗体上画一个名为 Command1 的命令按钮、一个名为 CommonDialogl 的通用对话框控件、一个名为 Text1 的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序
37、代码，井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor _ 1_ Text1.ForeColor=CommonDialog1.Color End Sub （分数：1.00）解析：CommonDialogl. ShowColor解析 本题考查通用对话框中“颜色”对话框的相关属性和方法，设置其相关属性后，调用 ShowColor 方法才能够打开“颜色”对话框，供用户选择颜色。27.以下是一个比赛评分程序。在窗体上建立一个名为 T
38、ext1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。 （分数：2.00）解析：Text1(0) 1 sam-max-min 解析 要循环比较各个数，找出最大值和最小值，首先就要把第 1 个数的值赋值给最大值和最小值变量，而把值赋值给最小值变量为 min=Text1(0)；由于已经把第 1 个数的值加到变量 sum 中了，所以从第 2 个数开始循环，而第 2 个数的控件数组索引为
39、儿而求平均值时把最大值和最小值去掉了，即sum-max-rain。为了显示一个窗体，所使用的方法为 1；而为了隐藏一个窗体，所使用的方法为 2。（分数：4.00）填空项 1:_ （正确答案：*unknown）填空项 1:_ （正确答案：*unknown）解析：Hide29.列程序的功能是将数据 1，2，10 写入顺序文件 Base.txt 中，请填空。 Private Sub Form_Click() Dim i As Integer Open _ 1_ As#1 For i=1 To 10 Print #1, i Next Close#1 End Sub （分数：2.00）解析：“Base.
40、txt“ For Output解析 本题中以输出方式来打开文件，故要用“Open“Base.txt“ For Output As#1”语句；向文件中写入数据用 Print 语句。30.在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As
41、 Long n=InputBox(“请输入一个数“) n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入“345“，输出结果为 _ 1_ 。 （分数：2.00）解析：60 解析 程序首先要求用户输入一个数，然后将这个数转化为长整型传递入函数 fun。本题中传入的数字是 345。函数 fun 中首先将传入的参数取绝对值，然后进入循环： 第一次循环结束的时候： k=5 num=34 第二次循环结束的时候： k=20 num=3 第三次循环结束的时候： k=60 num=031.启动窗体在 _ 1_ 对话框中指定。 （分数：2.00）解
42、析：工程-属性解析 在“工程-属性”对话框里有个名为“启动对象”的下拉列表框，在这里可以选择启动窗体或 SubMain。32.设有如下程序： Option Base 1 Private Sub Commandl Click() Dim arrl Dim Min As Integer，i As Integer arrl=Array(12,435,76,-24,78,54,866,43) Min= _ 1_ For i=2 To 8 If arrl(i)Min Then _ 2_ Next Print“最小值是:“;Min End Sub 以上程序的功能是：用 Array 函数建立一个含有 8 个
43、元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 （分数：1.00）解析：arrl(1) Min=arrl(i) 解析 由于有 Option Base 1 语句，所以数组下标是从 1 开始。本题的功能是查找 8 个数中的最小值，首先使用 Array 语句给数组赋值，然后把第一个值赋值给最小值变量，及 Min=arrl(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给 Min，即 Min=arrl(i)。33.在 KeyPress 事件过程中，KeyAscii 是所按键的 _ 1_ 值。 （分数：1.00）解析：ASCII解析 执行 KeyPress 事件过程
44、时，KeyAscii 是所按键的 ASCII 码。34.具有 88 个结点的二叉树，其深度至少为 1。 （分数：2.00）解析：7 解析 根据二叉树性质 4：具有 n 个结点的二叉树的深度至少为log 2 n+1，其中log 2 n表示 log 2 n 的整数部分。在本题 n=88，所以其深度至少为log 2 88+1=6+1=7。35.设循环队列的容量为 55，如果头指针 front=50(指向队头元素的前一位置)，尾指针 rear=45(指向队尾)，则该循环队列中共有 1 个元素。 （分数：2.00）解析：20解析 当 frontrear 时，循环队列中元素的个数为 rear-front，
45、当 frontrear，循环队列中元素的个数为 N(N 为循环队列容量)-front+rear。此题中 front=50rear=15，因此该循环队列中共有55-50+15=20 个元素。36.下图中，图 1、图 2 是应用程序的部分界面。运行程序首先出现图 1 的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图 2 的界面。如果输入的门令错误，则出现图 3 的信息框。单击图 1 中的“取消”按钮，则结束程序。 Private Sub iommand1_ Click () Dim passwor As String password = Text1. Text
46、 if password = “Myname“ then 1 form1. Show Else d = MsgBox( 2) Refresh End if End Sub Private Sub command2_ Click() 3 End Sub 在图 1 的窗体中，文本框对象的名称属性是 4。 （分数：2.00）解析：Unload Me “口令非法!”，vbOKOnly，“学生管理信息系统” End Text 解析 这是个多窗口操作程序，要注意窗口之间的打开和关闭。MsgBox 函数的格式是：“MsgBox(提示信息，按钮常数，信息框标题，帮助文件)”，End 是结束运行、关闭所有窗口，
47、UnLoad Me 是关闭当前窗口。37.数据结构分为线性结构和非线性结构，带链的队列属于 1。 （分数：2.00）解析：线性结构解析 一个数据结构是线性结构还是非线性结构，判断依据是数据结构前后件关系的复杂程度，而与其所使用的存储结构是没有关系的。在一个非空的队列中，每一个元素只有一个前件和后件，因此它属于线性结构。38._ 1_ 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。 （分数：1.00）解析：封装 解析 本题考查了面向对象技术中的一些基本概念。 解题要点 面向对象技术中包括以下几个基本概念，即对象、类、方法、消息、继承和封装，其中封装是一种信息隐蔽技术，目的在于将对
48、象的使用者对象的和设计者分开。39.在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long)As Lone Dim k As Long k=1 num=Abs (num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n= InputBox (“请输入一个数”) n=CLng (n) r=fun (n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入 234，输出结果为 _ 1_ 。 （分数：2.00）解析：24
