1、二级 VISUAL+BASIC 笔试-407 及答案解析(总分：94.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列对于线性链表的描述中正确的是( )。A) 存储空间不一定是连续，且备元素的存储顺序是任意的B) 存储空间不一定是连续，且前件元素一定存储在后件元素的前面C) 存储空间必须连续，且前件元素一定存储在后件元素的前面D) 存储空间必须连续，且备元素的存储顺序是任意的（分数：2.00）A.B.C.D.2.下列关于栈的描述中错误的是( )。A) 栈是先进后出的线性表B) 栈只能顺序存储C) 栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针（分
2、数：2.00）A.B.C.D.3.在软件测试设计中，软件测试的主要目的是( )。A) 实验性运行软件 B) 证明软件正确C) 找出软件中全部错误 D) 尽可能多地发现软件中的错误（分数：2.00）A.B.C.D.4.模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准则是模块的( )。A) 抽象和信息隐蔽 B) 局部化和封装化C) 内聚性和耦合性 D) 激活机制和控制方法（分数：2.00）A.B.C.D.5.软件是指( )。A) 程序 B) 程序和文档C) 算法加数据结构 D) 程序、数据与相关文档的完整集合（分数：2.00）A.B.C.D.6.面向对象的设计方法与传统的面向过程的方法
3、有本质不同，它的基本原理是( )。A) 模拟现实世界中不同事物之间的联系B) 强调模拟现实世界中的算法而不强调概念C) 使用现实世界的概念抽象地思考问题从而自然地解决问题D) 鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考（分数：2.00）A.B.C.D.7.用树形结构来表示实体之间联系的模型称为( )。A) 关系模型 B) 层次模型 C) 网状模型 D) 数据模型（分数：2.00）A.B.C.D.8.把实体一联系模型转换为关系模型时，实体之间多对多联系在模型中是通过( )。A) 建立新的属性来实现 B) 建立新的关键字来实现C) 建立新的关系来实现 D) 建立新的实体来实现（分数：
4、2.00）A.B.C.D.9.数据处理的最小单位是( )。A) 数据 B) 数据元素 C) 数据项 D) 数据结构（分数：2.00）A.B.C.D.10.按条件 f 对关系 R 进行选择，其关系代数表达式为( )。（分数：2.00）A.B.C.D.11.下列叙述中错误的是( )。A) Visual Basic 是采用了事件驱动编程机制B) Visual Basic 是面向过程的程序设计语言C) Visual Basic 是可视化程序设计语言D) Visual Basic 是面向对象的程序设计语言（分数：2.00）A.B.C.D.12.用 Visual Basic 编写的应用程序的特点是( )。
5、A) 无须有明显的开头程序和结尾部分B) 无须编写任何程序代码C) 必须有明确的开头程序才能启动运行D) 必须有结尾的程序段才能正常运行（分数：2.00）A.B.C.D.13.以下语句中哪句可以选择指定的表项或取消已选择的表项( )。A) 列表框 Selected(索引值) B) 列表框 Selected(索引值)=True|FalseC) 列表框.Selected D) 列表框.Selected=True|False（分数：2.00）A.B.C.D.14.关系表中的每一横行称为一个( )。A) 元组 B) 字段 C) 属性 D) 码（分数：2.00）A.B.C.D.15.为了使图像框适应图片
6、的大小，下列( )属性设置正确。A) AutoSize:True B) Stretch:False C) Stretch:True D) Stretch:False（分数：2.00）A.B.C.D.16.引用列表框(List1)最后一个数据项应使用的表达式是( )。A) List1.List(List1.ListCount) B) List1.List(List1.ListCount-1)C) List1.List(ListCount) D) List1.List(ListCount-1)（分数：2.00）A.B.C.D.17.在 Visual Basic 中，组合框是文本框和( )特性的组合
7、。A) 复选框 B) 标签 C) 列表框 D) 目录列表框（分数：2.00）A.B.C.D.18.能够将 Picture 对象 Pic1 加载当前目录中的 face.bmp 的语句是( )。A) Pic1.Picutre=LoadPicture(App.path bA) 24 B) -2 2 C) 4 2 D) 2 3（分数：2.00）A.B.C.D.29.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(10,10)As Integer,i,j As Intege
8、rFor i=1 To 3For j=2 To 4arr(i,j)=i+jNextNextText1.Text=arr(2,3)+arr(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。A) 12 B) 13 C) 14 D) 15（分数：2.00）A.B.C.D.30.表达式(3/2+1)*(5/2+2)的值是( )。A) 11.25 B)3 C) 6.125 D)4（分数：2.00）A.B.C.D.31.在 Visual Basic 中，组合框是文本框和下列哪一项的特性的组合？( )A) 复选框 B) 标签 C) 列表框 D) 目录列表框（分数：2.00）A.B
9、.C.D.32.以下程序段的功能是：依次自动将列表框 List2 中所有列表项目移入列表框 List1 中，并将移入List1 中的项目从 List2 中删除。空白行应选择的语句为( )。Do While List2ListCountList2.RemoveItem0LoopA) List1.AddItem List2.List(0) B) List1.AddItem List2.TextC) List2.AddItem List1.List(0) D) List2.AddItme List1.Text（分数：2.00）A.B.C.D.33.以下关于过程及过程参数的描述中，错误的是( )。A)
10、 过程的参数可以是控件名称B) 用数组作为过程的参数时，使用的是“传地址”方式C) 只有函数过程能够将过程中处理的信息传回调用的程序中D) 窗体可以作为过程的参数（分数：2.00）A.B.C.D.34.阅读程序：Function Fun(a As Integer)Static Cb=0:b=b+2:c=c+2Fun=a*b*cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=2For i=1 To 2Print Fun(A)：NextEnd Sub运行上面的程序，单击命令按钮，输出结果为( )。A) 8 16 B) 9 18 C
11、) 10 20 D) 7 14（分数：2.00）A.B.C.D.35.设组合框 Combol 中有 3 个项目，则以下能删除最后一项的语句是( )。A) Combol.RemoveItem Text B) Combol RemoveItem 2C) Combol.RemoveItem 3 D) Combol.RemoveItem Combol.Listcount（分数：2.00）A.B.C.D.二、填空题(总题数：12，分数：24.00)36.当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 (1) 。（分数：2.00）填空项 1:_37.冒泡排序在最坏
12、情况下的比较次数是 (2) 。（分数：2.00）填空项 1:_38.对下列二叉树进行中序遍历的结果为 (3) 。（分数：2.00）填空项 1:_39.Jackson 结构化程序设计方法是英国的 MJackson 提出的，它是一种面向 (4) 的设计方法。（分数：2.00）填空项 1:_40. (5) 是数据库设计的核心。（分数：2.00）填空项 1:_41.下列程序是用来计算 1+2+3+10，将程序补充完整。Dim i,s,k As Integers=0:k=0For (6) To-1k=k+1s=s+kNext iPrint s（分数：2.00）填空项 1:_42.有如下 Sub 过程：S
13、ub s(x As Single,y As Single)t=Xx=t/yy=t Mod yEnd Sub在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Form_Click()Dim a As SingleDim b As Singlea=5b=4call s(a,B)Print a,bEnd Sub则程序运行后，单击命令按钮，输出的结果为 (7) 。（分数：2.00）填空项 1:_43.执行下列程序，输入数字 3，则输出结果为 (8) 。Private Sub Command1_Click()a=InputBox(“Input a Number“)If a5 The
14、nGoTo L5Else If a2 ThenGoTo L2ElseGoTo L3End IfExit SubL5:Print a Mod5Exit SubL3:Print a Mod 3Exit SubL2:Print a Mod 2End Sub（分数：2.00）填空项 1:_44.下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub FormPLoad()DrawWidth=2ForeColor=vbGreenEnd Su
15、bPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single)PaintStart=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer,_X As Single,Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub FormMouseUp(Button As Integer, Shift As Integer,_
16、X As Single,Y As Single)(9) End SubPrivate Sub Form_DblClick()ClsEnd Sub（分数：2.00）填空项 1:_45.下面程序运行的结果如下：111 1221 22 2331 32 33 34请在画线处填上适当的内容，将程序补充完整。Private Sub Form_Click()Call (10) End SubPrivate Sub p16()For I=1 to 4For i=1 to Ia= (11) Print Tab(j-1)*5+1);a;Next iPrintNext IEnd Sub（分数：2.00）填空项 1:
17、_46.关系表达式 X-5 或 X5 所对应的布尔表达式是 (12) 。（分数：2.00）填空项 1:_47.请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为 1，其他元素为 0 的 6x6阶矩。Private Sub Command1_Click()Dim s(6,6)For i=1 To 6For i=1 To 6If i=i Then(13) Else(14) End IfPrint (15) NextiPrintNext iEnd Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-407 答案解析(总分：94.00，做题时间：90 分钟)一
18、、选择题(总题数：35，分数：70.00)1.下列对于线性链表的描述中正确的是( )。A) 存储空间不一定是连续，且备元素的存储顺序是任意的B) 存储空间不一定是连续，且前件元素一定存储在后件元素的前面C) 存储空间必须连续，且前件元素一定存储在后件元素的前面D) 存储空间必须连续，且备元素的存储顺序是任意的（分数：2.00）A. B.C.D.解析：解析 在链式存储结构中，存储数据结构的存储空间可以不连续，备数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。故本题答案为 A)。2.下列关于栈的描述中错误的是( )。A) 栈是先进后出的线性表B)
19、栈只能顺序存储C) 栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针（分数：2.00）A.B. C.D.解析：解析 栈是一种特殊的线性表，线性表可以顺序存储，也可以链式存储，而栈是一：种线性表，也可以采用链式存储结构。故本题答案：为 B)。3.在软件测试设计中，软件测试的主要目的是( )。A) 实验性运行软件 B) 证明软件正确C) 找出软件中全部错误 D) 尽可能多地发现软件中的错误（分数：2.00）A.B.C.D. 解析：解析 使用人工或自动手段来运行或测定某个系统的过程，目的在于检验它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。软件测试是为了发现错误而执行程序的
20、过程。测试以查找错误为目的，而不是为了演示软件的正确功能。4.模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准则是模块的( )。A) 抽象和信息隐蔽 B) 局部化和封装化C) 内聚性和耦合性 D) 激活机制和控制方法（分数：2.00）A.B.C. D.解析：解析 模块的独立程序是评价设计好坏的重要度量标准。衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准。一般较优秀的软件设计，应尽量做到高内聚、低耦合。5.软件是指( )。A) 程序 B) 程序和文档C) 算法加数据结构 D) 程序、数据与相关文档的完整集合（分数：2.00）A.B.C.D. 解析：解析 软件是程序、数据与相
21、关文档的集合，相对于计算机硬件而言，软件是逻辑产品而不是物理产品，是计算机的无形部分。6.面向对象的设计方法与传统的面向过程的方法有本质不同，它的基本原理是( )。A) 模拟现实世界中不同事物之间的联系B) 强调模拟现实世界中的算法而不强调概念C) 使用现实世界的概念抽象地思考问题从而自然地解决问题D) 鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考（分数：2.00）A.B.C. D.解析：解析 面向对象的设计方法与传统的面向过程的方法有本质不同，它的基本原理是，使用现实世界的概念抽象地思考问题从而自然地解决问题。它强调模拟现实世界中的概念而不强调算法，它鼓励开发者在软件开发的绝大部
22、分中都用应用领域的概念去思考。本题答案为 C)。7.用树形结构来表示实体之间联系的模型称为( )。A) 关系模型 B) 层次模型 C) 网状模型 D) 数据模型（分数：2.00）A.B. C.D.解析：解析 层次模型是最早发展出来的数据库模型。它的基本结构是树形结构，这种结构方式在现实世界中很普遍，如家族结构、行政组织机构，它们自顶向下、层次分明。8.把实体一联系模型转换为关系模型时，实体之间多对多联系在模型中是通过( )。A) 建立新的属性来实现 B) 建立新的关键字来实现C) 建立新的关系来实现 D) 建立新的实体来实现（分数：2.00）A.B.C. D.解析：解析 E-R 图向关系模型的
23、转换原则如下。一个实体型转换为一个关系模型，实体的属性就是关系的属性，实体的键就是关系的键。一个联系转换为一个关系模式，与该联系相连的每个实体型的键以及联系的属性都转换为关系的属性。这个关系的键分为以下三种不同的情况：若联系为 1:1，则相连的每个实体型的键均是该关系模式的候选键；若联系为 1:n，则联系对应的关系模式的键取 n 端实体型的键；若联系为 m:n，则联系对应的关系模式的键为参加联系的诸实体型的键的组合。9.数据处理的最小单位是( )。A) 数据 B) 数据元素 C) 数据项 D) 数据结构（分数：2.00）A.B.C. D.解析：解析 数据处理的最小单位是数据项；由若干数据项组成
24、数据元素；数据是指能够被计算机识别、存储和加工处理的信息载体；数据结构是指数据之间的相互关系和数据运算。10.按条件 f 对关系 R 进行选择，其关系代数表达式为( )。（分数：2.00）A.B.C. D.解析：解析 选择运算是一个一元运算，关系 R 通过选择运算(并由该运算给出所选择的逻辑条件)后仍为一个关系。这个关系是由 R 中那些满足逻辑条件的元组所组成。如果关系的逻辑条件为 f，则 R 满足 f的选择运算可以写成： f(R)。本题答案为 C)。11.下列叙述中错误的是( )。A) Visual Basic 是采用了事件驱动编程机制B) Visual Basic 是面向过程的程序设计语言
25、C) Visual Basic 是可视化程序设计语言D) Visual Basic 是面向对象的程序设计语言（分数：2.00）A.B. C.D.解析：解析 Visual Basic 是面向对象，采用事件驱动机制的程序设计方法。12.用 Visual Basic 编写的应用程序的特点是( )。A) 无须有明显的开头程序和结尾部分B) 无须编写任何程序代码C) 必须有明确的开头程序才能启动运行D) 必须有结尾的程序段才能正常运行（分数：2.00）A. B.C.D.解析：解析 VB 程序，无须明显的开头部分与结尾部分。13.以下语句中哪句可以选择指定的表项或取消已选择的表项( )。A) 列表框 Se
26、lected(索引值) B) 列表框 Selected(索引值)=True|FalseC) 列表框.Selected D) 列表框.Selected=True|False（分数：2.00）A.B. C.D.解析：解析 Selected 属性实际上是一个数组，每个元素的值为 True 或 False，每个元素与列表框中的一项相对应。当元素的值为 T-ue 时，表示选择了该项；当元素的值为 False 时，表示未选择该项。列表框名.Selected(索引值)=True|False 语句可以选择指定的表项或取消已选择的表项由于 Selected 是个数组，所以如果语句中缺少了索引值就不正确了。14.
27、关系表中的每一横行称为一个( )。A) 元组 B) 字段 C) 属性 D) 码（分数：2.00）A. B.C.D.解析：解析 关系表中，每一行称为一个元组，对应表中的一条记录；每一列称为一个属性，对应表中的一个字段；在二维表中凡能唯一标识元组的最小属性集称为该表的键或码。15.为了使图像框适应图片的大小，下列( )属性设置正确。A) AutoSize:True B) Stretch:False C) Stretch:True D) Stretch:False（分数：2.00）A.B.C. D.解析：解析 图像框控件 Stretch 属性如果为 True，则总是要使 Visual Basic 根
28、据内容大小调节图片框的尺寸。16.引用列表框(List1)最后一个数据项应使用的表达式是( )。A) List1.List(List1.ListCount) B) List1.List(List1.ListCount-1)C) List1.List(ListCount) D) List1.List(ListCount-1)（分数：2.00）A.B. C.D.解析：解析 List1.ListCounf 表示列表框项目数。引用项目的时候最后一个的位置是 ListCout-1。17.在 Visual Basic 中，组合框是文本框和( )特性的组合。A) 复选框 B) 标签 C) 列表框 D) 目录
29、列表框（分数：2.00）A.B.C. D.解析：解析 组合框是综合了文本框与列表框的一个控件。18.能够将 Picture 对象 Pic1 加载当前目录中的 face.bmp 的语句是( )。A) Pic1.Picutre=LoadPicture(App.path bA) 24 B) -2 2 C) 4 2 D) 2 3（分数：2.00）A. B.C.D.解析：解析 二层循环嵌套。b 初始值为 O，在两层循环最内侧自加，为二层循环运行次数；a 在内层循环外、外层循环内自加运算，意义为外层循环运行次数。显然外层运行了 2 次，内层运行了 4 次。29.在窗体上画一个名称为 Text1 的文本框和
30、一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(10,10)As Integer,i,j As IntegerFor i=1 To 3For j=2 To 4arr(i,j)=i+jNextNextText1.Text=arr(2,3)+arr(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。A) 12 B) 13 C) 14 D) 15（分数：2.00）A. B.C.D.解析：解析 本题的难点是嵌套循环的计算。根据 arr 1(i,j)=i+j 可知，arr(i,j)的值为两个
31、下标值之和，所以 arr(2,3)+arr(3,4)的值为 2+3+3+4=12030.表达式(3/2+1)*(5/2+2)的值是( )。A) 11.25 B)3 C) 6.125 D)4（分数：2.00）A. B.C.D.解析：解析 本题主要考查运算符“/”的使用。在 Visual Basic 中符号“/”为浮点数除法运算符，执行标准的除法操作，运算的结果为浮点数。通过运算，本题的结果为 11.25，计算结果为选项 A)。31.在 Visual Basic 中，组合框是文本框和下列哪一项的特性的组合？( )A) 复选框 B) 标签 C) 列表框 D) 目录列表框（分数：2.00）A.B.C.
32、 D.解析：解析 组合框是一个独立的控件，它具有列表框和文本框的功能，它可以像列表框一样，让用户通过鼠标选择需要的项目，也可以像文本框一样，用键入的方式选择项目。32.以下程序段的功能是：依次自动将列表框 List2 中所有列表项目移入列表框 List1 中，并将移入List1 中的项目从 List2 中删除。空白行应选择的语句为( )。Do While List2ListCountList2.RemoveItem0LoopA) List1.AddItem List2.List(0) B) List1.AddItem List2.TextC) List2.AddItem List1.List(
33、0) D) List2.AddItme List1.Text（分数：2.00）A. B.C.D.解析：解析 根据下一行程序，List2 中删除，可推断需要在 List1 中添加项目。项目内容引用为List2.List(0)。33.以下关于过程及过程参数的描述中，错误的是( )。A) 过程的参数可以是控件名称B) 用数组作为过程的参数时，使用的是“传地址”方式C) 只有函数过程能够将过程中处理的信息传回调用的程序中D) 窗体可以作为过程的参数（分数：2.00）A.B.C. D.解析：解析 通过间接访问，也可以在非函数过程中访问和处理过程中的变量内容，并且定义多个“传地址”的参数，可以返回多个值。
34、Visual Basic 中的控件和窗体都可以作为过程的参数。34.阅读程序：Function Fun(a As Integer)Static Cb=0:b=b+2:c=c+2Fun=a*b*cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=2For i=1 To 2Print Fun(A)：NextEnd Sub运行上面的程序，单击命令按钮，输出结果为( )。A) 8 16 B) 9 18 C) 10 20 D) 7 14（分数：2.00）A. B.C.D.解析：解析 本题的难点是子函数调用过程和 Static 变量。子函数
35、有 Static 变量 c，在第 1 次子函数调用时其值为 2，局部变量 b 为 2，但在第 2 次子函数调用时 c=2+2=4,b=0+2=2。表达式 a*b*c 的结果通过子函数名 Fun 返回。35.设组合框 Combol 中有 3 个项目，则以下能删除最后一项的语句是( )。A) Combol.RemoveItem Text B) Combol RemoveItem 2C) Combol.RemoveItem 3 D) Combol.RemoveItem Combol.Listcount（分数：2.00）A.B. C.D.解析：解析 Combo 1 的项目号从 0 开始，一共 3 个项
36、目时最后一个项目号为 2。二、填空题(总题数：12，分数：24.00)36.当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 (1) 。（分数：2.00）填空项 1:_ （正确答案：上溢）解析：解析 入队运算是指在循环队列的队尾加入一个新元素。这个运算有两个基本操作：首先将队尾指针进一(即 rear=rear+1)，并当 rear=m+1 时，置 rear=1；然后将新元素插入队尾指针指向的位置。当循环队列非空(s=1)且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算，这种情况称为“上溢”。37.冒泡排序在最坏情况下的比较次数是 (2) 。（
37、分数：2.00）填空项 1:_ （正确答案：n(n-1)/2）解析：解析 冒泡排序法是一种最简单的交换类排序方法，它是通过相邻数据元素的交换逐步将线性表变成有序。假设线性表的长度为 n，则在最坏的情况下，冒泡排序需要经过 n/2 遍的从前往后的扫描和n/2 遍的从后往前的扫描，需要的比较次数为 n(n-1)/2。38.对下列二叉树进行中序遍历的结果为 (3) 。（分数：2.00）填空项 1:_ （正确答案：ACBDFEHGP）解析：解析 二叉树的中序遍历指在访问根结点、遍历左子树与遍历右子树这三者中，首先遍历左子树，然后访问根结点，最后遍历右子树。39.Jackson 结构化程序设计方法是英国
38、的 MJackson 提出的，它是一种面向 (4) 的设计方法。（分数：2.00）填空项 1:_ （正确答案：数据结构）解析：解析 结构化分析方法主要包括：面向数据流的结构化分析方法(Structured analysis，SA)、面向数据结构的 Jackson 方法(Jackson system developmen(method，JSD)和面向数据结构的结构化数据系统开发方法(Data strudured system development method，DSSD)。40. (5) 是数据库设计的核心。（分数：2.00）填空项 1:_ （正确答案：数据模型）解析：解析 数据模型是对客观事
39、物及联系的数据描述，它反映了实体内部及实体与实体之间的联系。因此，数据模型是数据库设计的核心。41.下列程序是用来计算 1+2+3+10，将程序补充完整。Dim i,s,k As Integers=0:k=0For (6) To-1k=k+1s=s+kNext iPrint s（分数：2.00）填空项 1:_ （正确答案：i=-10）解析：解析 for 循环终值-1，step 默认 1，所以初值只能是-10 才能保证 10 次循环。42.有如下 Sub 过程：Sub s(x As Single,y As Single)t=Xx=t/yy=t Mod yEnd Sub在窗体上添加一个命令按钮，然
40、后编写如下事件过程：Private Sub Form_Click()Dim a As SingleDim b As Singlea=5b=4call s(a,B)Print a,bEnd Sub则程序运行后，单击命令按钮，输出的结果为 (7) 。（分数：2.00）填空项 1:_ （正确答案：25,1）解析：解析 调用 s 过程，调入“a=5,b=4”。t=5x=5/4，故 x=125; y=5%4,故 y=1。返回并输出(125，1)。43.执行下列程序，输入数字 3，则输出结果为 (8) 。Private Sub Command1_Click()a=InputBox(“Input a Num
41、ber“)If a5 ThenGoTo L5Else If a2 ThenGoTo L2ElseGoTo L3End IfExit SubL5:Print a Mod5Exit SubL3:Print a Mod 3Exit SubL2:Print a Mod 2End Sub（分数：2.00）填空项 1:_ （正确答案：1）解析：解析 此题考查 If 多分支结构与 GoTo 语句。做此类题目只需一步一步顺序运行即可，不要去分析分段函数的整体数学意义。题设输入数字 3，则转到 L2，3 mod 2 为 1，即为结果。44.下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清
42、除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub FormPLoad()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Single,Y As Single)PaintStart=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer,_X As
43、Single,Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub FormMouseUp(Button As Integer, Shift As Integer,_X As Single,Y As Single)(9) End SubPrivate Sub Form_DblClick()ClsEnd Sub（分数：2.00）填空项 1:_ （正确答案：PaintStart= False）解析：解析 上述过程定义了一个布尔型变量 PaintStart，当按下鼠标左键(触发 MouseDown 事件)时，由题意按下鼠标键表
44、示能画图，所以该变量的值为 True，而松开鼠标左键(触发 MouseUp 事件)时，该变量为 False：如果变量 PaintStart 为 True，则移动鼠标(触发 MouseMove 事件)，将在窗体上绘出一个点：除鼠标事件外，上述程序还含有一个 Load 事件过程和一个 DblClick 事件过程，其中 Load 事件过程用来设置画点的大小和颜色，Db1Click 事件过程用来清除所画的图形，函数 Pset 是画点语句，用它可以在(x，y)处画一个点。45.下面程序运行的结果如下：111 1221 22 2331 32 33 34请在画线处填上适当的内容，将程序补充完整。Privat
45、e Sub Form_Click()Call (10) End SubPrivate Sub p16()For I=1 to 4For i=1 to Ia= (11) Print Tab(j-1)*5+1);a;Next iPrintNext IEnd Sub（分数：2.00）填空项 1:_ （正确答案：10p1611(i-1)*10+j）解析：解析 p16 是合法的过程命名，尽管和数组元素构成很相似；再次需要调用该过程自然输入 p16即可。题设需要 i 出现在高位，j 出现在低位，思路有两种，一是作为字符串连接考虑，二是作为纯数字考虑使 i 升级到“十位”，j 保留在“个位”，形式如(i-1
46、)*10+j 即可。这两种方式都是需要熟悉的。46.关系表达式 X-5 或 X5 所对应的布尔表达式是 (12) 。（分数：2.00）填空项 1:_ （正确答案：X=-5 or X=5）解析：解析 此题只需了解逻辑或的表达方法 or。47.请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为 1，其他元素为 0 的 6x6阶矩。Private Sub Command1_Click()Dim s(6,6)For i=1 To 6For i=1 To 6If i=i Then(13) Else(14) End IfPrint (15) NextiPrintNext iEnd Sub（分数：2.00）填空项 1:_ （正确答案：13s(i，j)=114S(i，j)=015S(i，j)）解析：解析 i=j 表示主对角线位置，值应为 1。非主对角线，值为 0。输出矩阵各元素值。
