1、二级 VISUAL+BASIC 笔试-416 及答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列叙述中正确的是( )A对长度为 n 的有序链表进行查找，最坏情况下需要的比较次数为 nB对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)（分数：2.00）A.B.C.D.2.算法的时间复杂度是指( )A算法的执行时间 B算法所处理的数据量C算法程序中的语句或指令
2、条数 D算法在执行过程中所需要的基本运算次数（分数：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.数据流程图(DFD 图)是( )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记录（分数：2.00）A.B.C.D.9.数据库设计中，用 E-R 图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的( )A需求分析阶段 B逻辑设计阶段C概念设计阶段 D物理设计阶段（分数：2.00）A.
4、B.C.D.10.有两个关系 R 和 T 如下：（分数：2.00）A.B.C.D.11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是( )（分数：2.00）A.B.C.D.12.设 x 是整型变量，与函数 IIf(x0,-x,x)有相同结果的代数式是( )A|x| B-|x|Cx D-x（分数：2.00）A.B.C.D.13.设窗体文件中有下面的事件过程：Private sub Command1_Click()Dim Sa%=100Print aEnd Sub其中变量 a 和 s 的数据类型分别是( )A整型，整型 B变体型，变体型C整型，变体型 D变体型
5、，整型（分数：2.00）A.B.C.D.14.下面( )属性肯定不是框架控件的属性。AText BCaptionCLeft DEnabled（分数：2.00）A.B.C.D.15.下面不能在信息框中输出“VB”的是( )AMsgBox“VB“ BMsgBox(“VB“)CMsgBox(“VB“) DCall MsgBox“VB/（分数：2.00）A.B.C.D.16.窗体上有一个名称为 Option1 的单选按钮控件。当程序运行，并单击某个单选按钮时，会调用下面的事件过程：Private Sub Option1_Click(Index As Integer)End Sub下面关于此过程的参数
6、Index 的叙述中正确的是( )AIndex 为 1 表示单选按钮被选中，为 0 表示未选中BIndex 的值可正可负CIndex 的值用来区分哪个单选按钮被选中DIndex 表示数组中单选按钮的数量（分数：2.00）A.B.C.D.17.设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发( )AText1 的 SetFocus 事件 BText1 的 GotFocus 事件CText1 的 LostFocus 事件 D窗体的 GotFocus 事件（分数：2.00）A.B.C.D.18.VB 中有 3 个键盘事件：KeyPress、KeyDown、Ke
7、yUp，若光标在 Text1 文本框中，则每输入一个字母( )A这 3 个事件都会触发 B只触发 KeyPress 事件C只触发 KeyDown、KeyUp 事件 D不触发其中任何一个事件（分数：2.00）A.B.C.D.19.下面关于标准模块的叙述中错误的是( )A标准模块中可以声明全局变量B标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程C标准模块中可以包含一些 Public 过程D一个过程中可以包含有多个标准模块（分数：2.00）A.B.C.D.20.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是( )AForm1
8、_MouseDown BWin_MouseDownCForm MouseDown DMouseDown Form1（分数：2.00）A.B.C.D.21.下面正确使用动态数组的是( )ADim arr()As Integer ReDim arr(3,5)BDim arr()As IntegerReDim arr(50)As StringCDim arr() ReDim arr(50)As IntegerDDim arr(50)As IntegerReDim arr(20)（分数：2.00）A.B.C.D.22.下面是求最大公约数的函数的首部：Function gcd(ByVal x As In
9、teger,ByVal y As Integer)As Integer若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是( )APrint gcd(8,12)，gcd(12,16),ged(16,8)BPrint ged(8,12,16)CPrint gcd(8),gcd(12),ged(16)DPrint gcd(8,gcd(12,16)（分数：2.00）A.B.C.D.23.有下面的程序段，其功能是按下图左图所示的规律输出数据：Dim a(3,5)As IntegerFor j=1 To 3For j=1 To 5a(i,j)=i+jPrint a(i,j)；NextPr
10、intNext若要按下图右图所示的规律继续输出数据，则接在上述程序段后面的程序段应该是( )AFor i=1 To 5 For j=1 To 3Print a(j,i);NextPrintNext BB.For i=1 To 3Forj=1 To 5Print a(j,i);NextPrint NextCFor j=1 To 5For i=1 To 3Print a(j,i);NextPrintNext DFor i=1 To 5For jW=1 To 3Print a(i,j);NextPrintNext（分数：2.00）A.B.C.D.24.窗体上有一个 Text1 文本框，一个 Comm
11、and1 命令按钮，并有以下程序：Private Sub Command1_Click()Dim nIf Text1.Text“123456“Thenn=n+1Print“口令输入错误“ Next kEnd SubSub prog(a()As Integer)n=UBound(a)For i=n To 2 step-1For j=1 To n-1if a(j)a(j+1) Thent=a(j):a(j)=a(j+1);a(j+1)=tEnd IfNext jNext iEnd Sub程序运行时，单击命令按钮后显示的是( )A12345 B54321 C01234 D43210（分数：2.00）
12、A.B.C.D.35.下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( )Private Sub Command1_Click()Dim count(25)As Integer,ch As Stringch=Ucase(InputBox(“请输入字母字符串“)For k=1 To Len(ch)n=Asc(Mid(ch,k,1)-Asc(“A“)If n0 Thencount(n)一 count(n)+1End IfNext km=count(0)For k=1 To 25If mcount(k) Thenm=count(k)End IfNex
13、t kPrint mEnd SubA0 B1 C2 D3（分数：2.00）A.B.C.D.二、填空题(总题数：10，分数：26.00)36.一个队列的初始状态为空。现将元素 A，B，CD，E，F，5，4，3，2，1 依次入队，然后再依次退队则元素退队的顺序为 1。（分数：2.00）填空项 1:_37.设某循环队列的容量为 50，如果头指针 front=45(指向队头元素的前一位置)，尾指针 rear=10(指向队尾元素)，则该循环队列中共有 1 个元素。（分数：2.00）填空项 1:_38.设二叉树如下：（分数：2.00）填空项 1:_39.软件是 1、数据和文档的集合。（分数：2.00）填空
14、项 1:_40.有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号， 1，成绩)。（分数：2.00）填空项 1:_41.为了使复选框禁用(即呈现灰色)，应把它的 Value 属性设置为 1。（分数：2.00）填空项 1:_42.在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Label1、Timer1 和 Command1，如下图左图所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如下图右图所示。以下
15、是实现上述功能的程序，请填空。（分数：6.00）填空项 1:_43.有如下程序：Private Sub Form_Click()n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）填空项 1:_44.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=iNextCall swap(_)For i=1 To 10Print a(i)
16、；NextEnd SubSub swap(b()As Integer)n=Ubound(b)For i=1 To n/2t=b(i)b(i)=b(n)b(n)=t_NextEnd Sub上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换。请填空。（分数：4.00）填空项 1:_45.在窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程：Private Sub Form_Click()Open“d:/test/smtext1.txt“
17、For Input As # 1Do While Not_Line Input # 1,aspectswholes=wholes+aspects+Chrs(13)+Chrs(10)LoopText1.Text=wholes_Open“d:/test/smtext2,txt“For Output As # 1 Print # 1，_；Close # 1End Sub运行程序，单击窗体，将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.tXt。请填空。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-4
18、16 答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列叙述中正确的是( )A对长度为 n 的有序链表进行查找，最坏情况下需要的比较次数为 nB对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D对长度为 n 的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)（分数：2.00）A.B.C. D.解析：解析 二分法查找只适用于顺序存储的有序表，对于长度为 n 的有序线性表，最坏情况只需比较log2n 次。2.算法的时间复杂度是
19、指( )A算法的执行时间 B算法所处理的数据量C算法程序中的语句或指令条数 D算法在执行过程中所需要的基本运算次数（分数：2.00）A.B.C.D. 解析：解析 算法的时间复杂度是指算法需要消耗的时间资源。一般来说，计算机算法是问题规模 n 的函数 f(n)，算法的时间复杂度也因此记做 T(n)=O(f(n)。因此问题的规模 n 越大，算法执行的时间的增长率与 f(n)的增长率正相关。称做渐进时间复杂度(Asymptotic Time Complexity)。简单来说就是算法在执行过程中所需要的基本运算次数。3.软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)，下面属于系统软件的
20、是( )A编辑软件 B操作系统C教务管理系统 D浏览器（分数：2.00）A.B.C. D.解析：解析 编辑软件和浏览器属于工具软件，教务系统是应用软件。4.软件(程序)调试的任务是( )A诊断和改正程序中的错误 B尽可能多地发现程序中的错误C发现并改正程序中的所有错误 D确定程序中错误的性质（分数：2.00）A. B.C.D.解析：解析 调试的目的是发现错误或导致程序失效的错误原因，并修改程序以修正错误。调试是测试之后的活动。5.数据流程图(DFD 图)是( )A软件概要设计的工具 B软件详细设计的工具C结构化方法的需求分析工具 D而向对象方法的需求分析工具（分数：2.00）A.B.C. D.
21、解析：解析 数据流程图是一种结构化分析描述模型，用来对系统的功能需求进行建模。6.软件生命周期可分为定义阶段、开发阶段和维护阶段。详细没计属于( )A定义阶段 B开发阶段C维护阶段 D上述三个阶段（分数：2.00）A.B. C.D.解析：解析 开发阶段在开发初期分为需求分析、总体设计、详细设计 3 个阶段，在开发后期分为编码、测试两个子阶段。7.数据库管理系统中负责数据模式定义的语言是( )A数据定义语言 B数据管理语言C数据操纵语言 D数据控制语言（分数：2.00）A.B.C. D.解析：解析 模式描述语言(Data Description Language,DDL)是用来描述、定义的，反映
22、了数据库系统的整体观。8.在学生管理的关系数据库中，存取一个学生信息的数据单位是( )A文件 B数据库C字段 D记录（分数：2.00）A.B.C.D. 解析：解析 一个数据库由一个文件或文件集合组成。这些文件中的信息可分解成一个个记录。9.数据库设计中，用 E-R 图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的( )A需求分析阶段 B逻辑设计阶段C概念设计阶段 D物理设计阶段（分数：2.00）A.B.C. D.解析：解析 E-R(Entity-Relationship)图为实体联系图，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型。10.有两个关系 R 和 T
23、 如下：（分数：2.00）A. B.C.D.解析：解析 选择是建立一个含有与原始关系相同列数的新表，但是行只包括那些满足某些特定标准的原始关系行。11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是( )（分数：2.00）A.B.C.D. 解析：解析 本题考查控件的基本知识，A 选项为恢复键入，B 选项为运行工程或启动工程C 选项为添加 Standard.EXE 工程，D 选项为结束工程。12.设 x 是整型变量，与函数 IIf(x0,-x,x)有相同结果的代数式是( )A|x| B-|x|Cx D-x（分数：2.00）A.B. C.D.解析：解析 IIf
24、函数可以用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本，是“Immediate If”的缩略。其格式如下：IIf(条件，True 部分，False 部分)，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。该函数与 C 语言中的三目运算符“?：”功能相似，可以使程序大为简化。本题中当输入的 x 大于 0 时，返回-x 的值，当 x 为负数时，不符合条件，返回 x 本身，因为 x 本身就是负数，所以本题两种条件下返回的都一定是负值，本题答案为
25、B 选项。13.设窗体文件中有下面的事件过程：Private sub Command1_Click()Dim Sa%=100Print aEnd Sub其中变量 a 和 s 的数据类型分别是( )A整型，整型 B变体型，变体型C整型，变体型 D变体型，整型（分数：2.00）A.B.C. D.解析：解析 本题中最后输出 a 的值为 a%100 的余数，一定是整型，s 未定义，在 VB 中，未定义的变量为变体型，所以本题答案为 C。14.下面( )属性肯定不是框架控件的属性。AText BCaptionCLeft DEnabled（分数：2.00）A. B.C.D.解析：解析 Text 是文本框的
26、基本属性，Caption 属性是设置名称，Left 是居左或向左，Enabled 为设置属性可用。15.下面不能在信息框中输出“VB”的是( )AMsgBox“VB“ BMsgBox(“VB“)CMsgBox(“VB“) DCall MsgBox“VB/（分数：2.00）A.B.C.D. 解析：解析 Call 为调用子程序，本题中 Call 是调用了一个写有“VB”的对话框。不是直接在消息框中输出 VB。16.窗体上有一个名称为 Option1 的单选按钮控件。当程序运行，并单击某个单选按钮时，会调用下面的事件过程：Private Sub Option1_Click(Index As Inte
27、ger)End Sub下面关于此过程的参数 Index 的叙述中正确的是( )AIndex 为 1 表示单选按钮被选中，为 0 表示未选中BIndex 的值可正可负CIndex 的值用来区分哪个单选按钮被选中DIndex 表示数组中单选按钮的数量（分数：2.00）A.B.C. D.解析：解析 当单击单选按钮时，Index 值用来表示哪个单选按钮被选中了，所以 C 选项正确。17.设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发( )AText1 的 SetFocus 事件 BText1 的 GotFocus 事件CText1 的 LostFocus 事件
28、 D窗体的 GotFocus 事件（分数：2.00）A.B. C.D.解析：解析 SetFocus 是将光标定位的意思，本题中要将光标定位到 Text1 文本框，所以应该是 Text1文本框得到光标。本题答案为 B 选项。18.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母( )A这 3 个事件都会触发 B只触发 KeyPress 事件C只触发 KeyDown、KeyUp 事件 D不触发其中任何一个事件（分数：2.00）A. B.C.D.解析：解析 每输入一个字符，经历了键盘上的字符被按下，又弹起，或再次被按下，又被弹
29、起的过程，所以此过程涉及了 KeyPress、KeyDown 和 KeyUp 这三个过程。19.下面关于标准模块的叙述中错误的是( )A标准模块中可以声明全局变量B标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程C标准模块中可以包含一些 Public 过程D一个过程中可以包含有多个标准模块（分数：2.00）A.B. C.D.解析：解析 一个工程中可以包含有多个标准模块，在标准模块中包含一个或多个 Public 过程，可以声明全局变量，可以包含一个 Sub Main 过程，并且设置为启动过程。20.设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDow
30、n 事件过程的过程名是( )AForm1_MouseDown BWin_MouseDownCForm MouseDown DMouseDown Form1（分数：2.00）A. B.C.D.解析：解析 本题考查鼠标事件过程，鼠标事件过程可写为：窗体名一事件过程名，与标题名无关。C选项窗体名错误，不可以统写，所以本题答案为 A 选项。21.下面正确使用动态数组的是( )ADim arr()As Integer ReDim arr(3,5)BDim arr()As IntegerReDim arr(50)As StringCDim arr() ReDim arr(50)As IntegerDDim
31、 arr(50)As IntegerReDim arr(20)（分数：2.00）A. B.C.D.解析：解析 定义动态数组使用 Dim 数组名As 数组类型，不规定数组的大小。重定义后，可以定义数组的长度，但不能定义数组的类型。本题 A 选项正确。选项 B 中，重定义后不可改变数组类型。选项 C 中必须先定义数组类型。选项 D 中开始定义了数组长度，不是动态数组。22.下面是求最大公约数的函数的首部：Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是( )
32、APrint gcd(8,12)，gcd(12,16),ged(16,8)BPrint ged(8,12,16)CPrint gcd(8),gcd(12),ged(16)DPrint gcd(8,gcd(12,16)（分数：2.00）A.B.C.D. 解析：解析 GCD 函数返回两个或多个整数的最大公约数，最大公约数是能分别将各个参数除尽的最大整数。其语法格式为 GCD(num1,num2,)，num1,num2,为 1255 个数值，如果参数为非整数，则截尾取整，所以本题正确的写法是 ged(8,gcd(12,16)。23.有下面的程序段，其功能是按下图左图所示的规律输出数据：Dim a(3
33、,5)As IntegerFor j=1 To 3For j=1 To 5a(i,j)=i+jPrint a(i,j)；NextPrintNext若要按下图右图所示的规律继续输出数据，则接在上述程序段后面的程序段应该是( )AFor i=1 To 5 For j=1 To 3Print a(j,i);NextPrintNext BB.For i=1 To 3Forj=1 To 5Print a(j,i);NextPrint NextCFor j=1 To 5For i=1 To 3Print a(j,i);NextPrintNext DFor i=1 To 5For jW=1 To 3Prin
34、t a(i,j);NextPrintNext（分数：2.00）A. B.C.D.解析：解析 本题是要得出矩阵的倒置，首先本题定义了一个 3 行 5 列的矩阵，转换完成后要变成 5 行3 列，把原来的行元素变成后来的列元素，所以先输出 j，再输出 i。故本题答案为 A 选项。24.窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序：Private Sub Command1_Click()Dim nIf Text1.Text“123456“Thenn=n+1Print“口令输入错误“ Next kEnd SubSub prog(a()As Integer)n=UBou
35、nd(a)For i=n To 2 step-1For j=1 To n-1if a(j)a(j+1) Thent=a(j):a(j)=a(j+1);a(j+1)=tEnd IfNext jNext iEnd Sub程序运行时，单击命令按钮后显示的是( )A12345 B54321 C01234 D43210（分数：2.00）A.B. C.D.解析：解析 本题定义了一个有 5 个元素的数组，并给数组依次赋了值，然后调用 prog 函数，该函数的功能是如果 a(j)a(j+1)，则进行交换，也就是把小的数放在后面，因为 j 是从 1 开始的，也就是说 1经过交换后被排在最后，所以本题答案为 54
36、321。35.下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( )Private Sub Command1_Click()Dim count(25)As Integer,ch As Stringch=Ucase(InputBox(“请输入字母字符串“)For k=1 To Len(ch)n=Asc(Mid(ch,k,1)-Asc(“A“)If n0 Thencount(n)一 count(n)+1End IfNext km=count(0)For k=1 To 25If mcount(k) Thenm=count(k)End IfNext kP
37、rint mEnd SubA0 B1 C2 D3（分数：2.00）A.B.C.D. 解析：解析 本题定义了一个 25 个字符的数组，然后在键盘上接收字符，Mid(string,start,length)函数的语法具有如下的命名参数：部分说明 string 必要参数。字符串表达式，从中返回字符。在本题中返回的字符减去“A”的 Ascii 值，如果结果大于 0，则记数，最后返回符合条件的值。二、填空题(总题数：10，分数：26.00)36.一个队列的初始状态为空。现将元素 A，B，CD，E，F，5，4，3，2，1 依次入队，然后再依次退队则元素退队的顺序为 1。（分数：2.00）填空项 1:_ （
38、正确答案：A，B，C，D，E，F，5，4，3，2，1）解析：解析 队列是先进先出的。37.设某循环队列的容量为 50，如果头指针 front=45(指向队头元素的前一位置)，尾指针 rear=10(指向队尾元素)，则该循环队列中共有 1 个元素。（分数：2.00）填空项 1:_ （正确答案：15）解析：解析 队列个数=rear-front+容量。38.设二叉树如下：（分数：2.00）填空项 1:_ （正确答案：EDBGHFCA）解析：解析 后序遍历的规则是先遍历左子树，然后遍历右子树，最后遍历访问根结点，各子树都是同样的递归遍历。39.软件是 1、数据和文档的集合。（分数：2.00）填空项 1
39、:_ （正确答案：程序）解析：解析 参考软件的定义。40.有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号， 1，成绩)。（分数：2.00）填空项 1:_ （正确答案：课号）解析：解析 课号是课程的唯一标识即主键。41.为了使复选框禁用(即呈现灰色)，应把它的 Value 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：2）解析：解析 VB 中复选框的 Value 属性，有三个可能值，0：(缺少值)，未选中。另两个取值为：1，选中；2，
40、变灰，表示暂时不能访问，处于禁用状态。42.在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Label1、Timer1 和 Command1，如下图左图所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如下图右图所示。以下是实现上述功能的程序，请填空。（分数：6.00）填空项 1:_ （正确答案：500 Not Label1.Visible Timet1.Enabled=True）解析：解析 为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 Interval属性设置为 500；当“欢迎”二字
41、消失时，则 Lable1 中的内容不可见，因此将 Not Lable1.Visible 这个属性赋值给 Label1.Visible，同时触发一次 Timer 事件，此时 Timer1.Enabled=True。43.有如下程序：Private Sub Form_Click()n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）填空项 1:_ （正确答案：28）解析：解析 D0Loop 语句是循环语句，当条件满足时执行循环体，不满足条件时则退出循环，该语句至少执行一次。本题程序共执行四次，第一次执行完
42、 i=10，n=8；第二次执行后 i=18，n=6；第三次执行后 i=24，n=4；第四次执行后 i=28，n=2，此时不满足条件，则退出循环，故 i 的值为 28。44.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=iNextCall swap(_)For i=1 To 10Print a(i)；NextEnd SubSub swap(b()As Integer)n=Ubound(b)For i=1 To n/2t
43、=b(i)b(i)=b(n)b(n)=t_NextEnd Sub上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换。请填空。（分数：4.00）填空项 1:_ （正确答案：a()或 a n=n-1）解析：解析 本题中程序的功能是通过调用过程 Swap，实现数组中数值的存放位置，即数据组中第一个数与最后一个数互换。45.在窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程：Private Sub Form_Click()Open“d:/
44、test/smtext1.txt“For Input As # 1Do While Not_Line Input # 1,aspectswholes=wholes+aspects+Chrs(13)+Chrs(10)LoopText1.Text=wholes_Open“d:/test/smtext2,txt“For Output As # 1 Print # 1，_；Close # 1End Sub运行程序，单击窗体，将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.tXt。请填空。（分数：2.00）填空项 1:_ （正确答案：EOF(1) Close#1 Text1,Text 或 Text1）解析：解析 本题第 1 个空是判断逻辑值，在 VB 中使用 EOF。第 2 空是当文件调用后，关闭文件，所以第 2 空应为 Close#1。第 3 个空是显示输出文件内容，所以应填 Text1。
