1、计算机二级(VB)39 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.为了暂时关闭计时器，应把该计时器控件的哪个属性设置为 False?（分数：2.00）A.double d=Math.cos(42)；B.double d=Math.cosine(42)；C.double d=Math.cos(Math.toRadians(42) )；D.double d=Math.cos(Math.toDegrees(42) )；2.单击窗体上的关闭按钮时，触发的事件是（ ）。（分数：2.00）A.TextFi
2、eld b = new TextField(“关闭“)；B.TextArea b = new TextArea(“关闭“)；C.BuRon b = new Button(“关闭“)；D.Checkbox b = new Checkbox(“关闭“)；3.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（ ）。 （分数：2.00）A.For i=0 To List1.ListCount-1 NextB.For i=0 To ListCount-1 NextC.For i=1 To List1.listCount NextD.For i=1 To
3、 ListCount Next4.Visual Basic 标题栏上显示了应用程序的（ ）。（分数：2.00）A.子类的访问权限比父类方法的访问权限要高B.继承性是面向对象方法的一个重要特征，它使代码可重用，可降低程序的复杂性C.子类方法不能产生比父类方法更多的异常D.重写是指子类的成员方法与父类的成员方法名字相同，参数列表相同，方法体不同5.下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ End If （分数：2.00）A.3B.7C.9D.6
4、6.下列程序段的执行结果为( )。 a=95 If a 60 Then degree=1 If a 70 Then degree=2 If a 80 Then degree=3 If a 90 Then degree=4 Print“degree=“；degree （分数：2.00）A.8 9B.9 8C.程序有错误D.9 97.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A) End Sub Pri
5、vate Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End Function （分数：2.00）A.21B.19C.17D.348.新建一个窗体，其 Borderstyle 属性设置为 Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是 （ ）。（分数：2.00）A.默认情况下，属性 Visi
6、ble 的值为 FalseB.如果设置控件的 Visible 属性为 False，则运行时控件会隐藏C.Visible 的值可设为 True 或者 FalseD.设置 Visible 属性同设置 Enabled 属性的功能是相同的，都是使控件处于失效状态9.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Nex
7、t j If j Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）。 （分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数10.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：2.00）A.15B
8、.16C.17D.1811.以下关于文件的叙述中，错误的是（ ）。 （分数：2.00）A.顺序文件中的记录一个接一个地顺序存放B.随机文件中记录长度是随机的C.执行打开文件的命令后，自动生成一个文件指针D.LOF 函数返回给文件分配的字节数12.下列数据结构中，能用二分法进行查找的是_。 （分数：2.00）A.顺序存储的有序线性表B.线性链表C.二叉链表D.有序线性链表13.在窗体上画一个名称为 File 的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是
9、（ ）。 （分数：2.00）A.x 没有实际作用，因此可以将该语句写为：Call Shell(FileFileName，1)B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件14.下列程序段，在运行时最后输出的内容是( )。 a=2 c=3 AAA： c=c * a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕” End If （分数：2.00）A.5，2，3B.-5，-12，-7C.-5，-12，-17D.5，-2，-715.
10、有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。 （分数：2.00）A.1B.2C.3D.516.设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为 Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。（分数：2.00）A.a+=a-=(b=4) * (a=3)B.a=a *
11、3+2C.x(-3)D.y=float i17.下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n + 1 Loop While m10 Print m；n （分数：2.00）A.CLASS A CLASS BB.CLASS A CLASS B CLASS BC.CLASS A CLASS B CLASS A CLASS BD.CLASS A CLASS B CLASS B CLASS B18.对下列二叉树,进行中序遍历的结果是【 】 （分数：2.00）A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG19.假定有如下事件过程： Private Su
12、b Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 0 Then Return 0 Else Return 1 End If End Function27.下列数组定义语句错误的是( )。（分数：2.00）A.k=10 Dim Arr(k)B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Arr2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)28.在窗体（名称为 Form1）上画一个名称为 Text1
13、的文本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 （分数：2.00）A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End SubB.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub Form1_ Click () Text1.Caption = “计算机等级考试“ End SubD.Pr
14、ivate Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub29.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为&OpenB.把 Caption 属性设置为&OpenC.把 Name 属性设置为&OpenD.把 Name 属性设置为&Open30.若设置了文本框的属性 Password Char=“$”,则运行程序时向文本框中输入 8 个任意字符后,文本框中
15、显不的是【 】（分数：2.00）A.8 个“$”B.1 个“$“C.8 个“$”D.无任何内容31.已知使用 Show 方法的格式为:窗体名称Show模式，如果要使窗体是“模态型”宙体，则“模式”值为（ ）。（分数：2.00）A.TrueB.0C.1D.False32.用树形结构表示实体之间联系的模型是_。 （分数：2.00）A.关系模型B.网状模型C.层次模型D.以上三个都是33.下列叙述中错误的是【 】（分数：2.00）A.在数据库系统中,数据的物理结构必须与逻辑结构一致B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要
16、操作系统的支持34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 （分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 535.某人创建了 1 个工程
17、,其中的窗体名称为 Form1；之后又添加了 1 个名为 Fonn2 的窗体,并希望程序执行时先显示 Fom2.窗体,那么他需要做的工作是【 】（分数：2.00）A.在工程属性对话框中把“启动对象“设置为 Form2B.在 Form1 的 Load 事件过程中加入语句 Load Form2C.在 Form2 的 Load 事件过程中加入语句 Form2.ShowD.把 Form2 的 Tab Index 属性设置为 l,把 Form1 的 Tab Index 属性设置为 2二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.下列程序的功能是：将数据 1，2，8 写入
18、顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：2.00）填空项 1:_37.执行下面的程序段，x 的值为 1。 Private Sub Command1_Click2 For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub （分数：2.00）填空项 1:_38.用户可以用 1 语句定义自己的数据类型。（分数：2.00）填空项
19、 1:_39.在面向对象方法中 1 描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_40.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_41.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_42.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i *
20、 j) Else Strl=Strl & Chr(13) 2 End If Next j Next i Print Str （分数：2.00）填空项 1:_43.在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 1 事件，当对象失 去焦点时将触发 2 事件。 （分数：2.00）填空项 1:_44.当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 2 事件。（分数：2.00）填空项 1:_45.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub F
21、orm_Click1 5 Open “d:/test/smtext1.txt“ For Input As #1 Do While Not 2 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open “d:/test/smtext2.txt“ For Output As #1 Print #1, 3 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把 该文
22、本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）填空项 1:_46.如图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显 示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。 （分数：2.00）填空项 1:_47.如果在 D 盘当前文件夹下已 2 经存在名为 PICday 的顺序文件，那么执行语句 Open “D:/PICdat“ For
23、 Append As #1 之后将 1。 （分数：2.00）填空项 1:_48.执行语句 Open “TCdat“ For Random As #1 Len=50 后，对文件 TCdat 中的数据能执行的操作是 1。 （分数：2.00）填空项 1:_49.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) P
24、rint KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：2.00）填空项 1:_50.下列程序的输出结果为 1。 num=2 While num Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）。 （分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数解析：10.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Su
25、b BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：2.00）A.15B.16C.17D.18 解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用 BT 过程，把实参 4传递给 BT 过程中的形参 x，由 x=x*2+1 语句推出 x=9，此时不满足 BT 过程体中判断语句的判断条件，执行 x=x*2；Print x；语句。由 x =x*2 语句得到 x 值为 18 并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为 18。11.以下
26、关于文件的叙述中，错误的是（ ）。 （分数：2.00）A.顺序文件中的记录一个接一个地顺序存放B.随机文件中记录长度是随机的 C.执行打开文件的命令后，自动生成一个文件指针D.LOF 函数返回给文件分配的字节数解析：12.下列数据结构中，能用二分法进行查找的是_。 （分数：2.00）A.顺序存储的有序线性表 B.线性链表C.二叉链表D.有序线性链表解析：二分法查找只适用于顺序存储的有序表。在此所说的有序表是指线性表中的元素按值非递减排列（即 从小到大，但允许相邻元素值相等）。13.在窗体上画一个名称为 File 的文件列表框，并编写如下程序： Private Sub File1_DblClic
27、k( ) x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是（ ）。 （分数：2.00）A.x 没有实际作用，因此可以将该语句写为：Call Shell(FileFileName，1) B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件解析：14.下列程序段，在运行时最后输出的内容是( )。 a=2 c=3 AAA： c=c * a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕”
28、End If （分数：2.00）A.5，2，3B.-5，-12，-7 C.-5，-12，-17D.5，-2，-7解析：第一个循环对数组 c( )进行赋值，第二个循环对数组 p( )进行赋值，第三个循环对 k 进行累加，k 的初值等于 5，第一次循环 k=k+p(0)*2=5，第三次循环 k=k+p(2)*2=21 并输出。15.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S
29、 End Sub 单击命令按钮，程序运行结果为( )。 （分数：2.00）A.1 B.2C.3D.5解析：此题考查了字符串函数与循环语句的嵌套使用，s 用来记录找到指定字符串的次数，在“A WORKER IS HERE”中，只出现一次，所以返回值是 1。16.设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为 Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。（分数：2.00）A.a+=a-=(b=4) * (a=3) B.a=a * 3+2C.x(-3)D.y=float i解析：paint()方法的重写，才能在画布上完成必要的图形处理。注意：
30、很容易错选成选项 B)，选项 B)是在 Canvas 构件中输入字符时，必须先调用的方法。17.下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n + 1 Loop While m10 Print m；n （分数：2.00）A.CLASS A CLASS BB.CLASS A CLASS B CLASS BC.CLASS A CLASS B CLASS A CLASS B D.CLASS A CLASS B CLASS B CLASS B解析：首先，当 i=0 时，数组中的位置是 a20=7，当然，如果用排除法的话，就不用考虑后面的循环了，因为在 4 个选项中，第 1 个
31、数为 7 的选项只有 B)。本题执行第 2 次循环时，i 的值为 1，则 cout 函数中的数组指向为 al1=5，依次循环，可求出答案。 18.对下列二叉树,进行中序遍历的结果是【 】 （分数：2.00）A.ACBDFEG B.ACBDFGEC.ABDCGEFD.FCADBEG解析：二叉树中序遍历的含义是：首先遍历左子树,然后访问根结点,最后遍历右子树,其左右子树中也按这样的顺序遍历,中序遍历二叉树的过程是一个递归的过程。根据题目中给出的二叉树的结构可知中序遍历的结果是：ACBDFEG。19.假定有如下事件过程： Private Sub Form_Click() Dim x As Integ
32、er, n As Integer x = 1 n = 0 Do While x 0 Then Return 0 Else Return 1 End If End Function解析：Visual Basic 程序中不能使用 Return 语句来返回一个函数的值。要返回一个函数的值，需要把这个值 赋值给函数名。所以本题中 A、D 选项错误，而题目中，当 b 为奇数时返回 0，所以本题答案是 B。27.下列数组定义语句错误的是( )。（分数：2.00）A.k=10 Dim Arr(k) B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Ar
33、r2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)解析：数组使用前要先定义，定义数组是为了给数组分配存储空间，所以定义 数组维的界不能是变量，但可以是符号常量。注意：选项 A)错误，定义数组 Arr 语句中，维的界用了变量 k 选项 B)正确，定 义数组 Arr 语句中，维的界 k 是符号常量；选项 C)正确，用 As Integer 说明数组 Arrl 是整 型数组，数组Arr2 没有指明类型，则隐含数组为 Variant 类型；选项 D)正确。维的界用 “ To ”的形式定义是正确的。28.在窗体（名称为 Form1）上画一个名称为 Te
34、xt1 的文本框和一个名称为 Command1 的 命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是_。 （分数：2.00）A.Private Sub Text1_Change() Command1.Caption = “计算机等级考试“ End Sub B.Private Sub Command1_ Click () Caption = “计算机等级考试“ End SubC.Private Sub Form1_ Click () Text1.Caption = “计算机等级考试“ End Su
35、bD.Private Sub Command1_ Click () Text1.Text = “计算机等级考试“ End Sub解析：本题考的是 Text 控件的 Change 事件和 Command 控件的 Caption 属性。Change 事件是在控件内容发 生改变时发生，而 Caption 属性定义的是控件的标题。29.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为&Open B.把 Caption 属性设
36、置为&OpenC.把 Name 属性设置为&OpenD.把 Name 属性设置为&Open解析：30.若设置了文本框的属性 Password Char=“$”,则运行程序时向文本框中输入 8 个任意字符后,文本框中显不的是【 】（分数：2.00）A.8 个“$” B.1 个“$“C.8 个“$”D.无任何内容解析：本题考查了文本框的属性 PassordChar 知识点。在默认的情况下,PasswordChar 属性被设为空串(不是空格),用户输入的每一个字符都显示在文本框中；如果把它设为一个字符,例如“,则用户键人 n个字符时,文本框中显示的是 n 个“号,故根据题意,当输入 8 个任意字符时
37、,文本框中应显示的 8 个“$“。31.已知使用 Show 方法的格式为:窗体名称Show模式，如果要使窗体是“模态型”宙体，则“模式”值为（ ）。（分数：2.00）A.TrueB.0C.1 D.False解析： 此题考核了 Show 方法的使用，Show 方法的格式为： 窗体名称Show模式 Show 方法用来显示一个窗体。如果省略“窗体名称”，则显示当前窗体。参数”模式”用来确定窗体的状态，可以取两种值，即 0 和 1(不是 False 和 True)。当“模式”值为 1(或常量 vbModal)时，表示窗体是“模态型”窗体，在这种情况下，鼠标只在此窗体内起作用，不能到其他窗口内操作，只有
38、关闭该窗口才能对其他窗口进行操作；当“模式”值为 0(或省略参数“模式”值)时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作；Show 方法兼有装入和显示窗体的双重功能，也就是说，在执行Show 时，如果窗体不在内存中，则 Show 自动把窗体装入内存，然后显示出来。 32.用树形结构表示实体之间联系的模型是_。 （分数：2.00）A.关系模型B.网状模型C.层次模型 D.以上三个都是解析：层次模型是最早发展起来的数据库模型，它的基本结构是树形结构。33.下列叙述中错误的是【 】（分数：2.00）A.在数据库系统中,数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目
39、标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持解析：数据库设计(Database Design)是指根据用户的需求,在某一具体的数据库管理系统上设计数据库的结构并建立数据库的过程；数据库技术的根本目标是要解决数据共享的问题；数据库需要操作系统的支持；数据的物理结构又称数据的存储结构,就是数据元素在计算机存储器中的表示及其配置。数据的逻辑结构是指数据元素之间的逻辑关系,它是数据在用户或程序员面前表现的方式,在数据库系统中,数据的物理结构不一定与逻辑结构一致。34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序
40、： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 （分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 5 解析：35.某人创建了 1 个工程,其中的窗体名称为 Form1；之后又添加了 1 个名为 Fonn2 的窗体,并
41、希望程序执行时先显示 Fom2.窗体,那么他需要做的工作是【 】（分数：2.00）A.在工程属性对话框中把“启动对象“设置为 Form2 B.在 Form1 的 Load 事件过程中加入语句 Load Form2C.在 Form2 的 Load 事件过程中加入语句 Form2.ShowD.把 Form2 的 Tab Index 属性设置为 l,把 Form1 的 Tab Index 属性设置为 2解析：要想使包含多个窗体的工程中的某个窗体在程序运行时首先显示,则方法就是在工程属性对话框中将“启动对象“设置为某个窗体。二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36
42、.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：2.00）填空项 1:_ （正确答案：Print #1，i）解析：向文件中写入数据用 Print 语句。37.执行下面的程序段，x 的值为 1。 Private Sub Command1_Click2 For i=1 To 9 a=a + i Next i x=Val(i) MsgBox
43、 x End Sub （分数：2.00）填空项 1:_ （正确答案：10）解析：MsgBox 函数的格式如下： MsgBox(msg，type)，title)，helpfile，content msg：一个字符串，长度不能超过 1024 个字符。 type：一个整数值或符号常量，用来控制在对话框内显示的按钮，图标的种类及数量。 title：一个字符串，用来显示对话框的标题。 hdpfile，content：同 InputBox 函数。 在这 5 个参数中，只有第一个是必须的，其他的可以省略。 在程序中 ForNext 语句之后并没有对 I 的值改变，此时 I 为 10，故运行后结果为 10。
44、38.用户可以用 1 语句定义自己的数据类型。（分数：2.00）填空项 1:_ （正确答案：TyPe）解析：用户可以用 TyPe 语句来定义数据类型，格式是： Type 数据类型名 数据类型元素名 As类型名 数据类型元素名 As 类型名 EndType 其中“数据类型名”是要定义的数据类型的名字，其命名规则和变量的命名规则相同；“数据类型元素名”也遵守相同的规则，且不能是数组名；“类型名”可以是任何基本数据类型，也可以是用户定义的类型。 39.在面向对象方法中 1 描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_ （正确答案：类）解析：将属性、操作相似的对象归为类，也就
45、是说，类是具有共同属性、共同方法的对象的集合。所以， 类是对象的抽象，它描述了属于该对象类型的所有对象的性质，而一个对象则是其对应类的一个实例。40.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_ （正确答案：256.36）解析：Str$-|_|-函数的格式是：Str$(数值表达式)，作用是把“数值表达式”的值转换为一个字符串，表达式的值不受转换过程的影响。对于本题在立即窗口中可看到输出的结果。41.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_ （正确答案：45）解析：假设线性表的长度为 n，则在最坏情况下，冒
46、泡排序需要经过 n/2 遍的从前往后扫描和 n/2 遍的从后 往前扫描，需要比较次数为 n(n-1)/2。42.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i * j) Else Strl=Strl & Chr(13) 2 End If Next j Next i Print Str （分数：2.00）填空项 1:_ （正确答案：j=i）解析：E
47、xit 语句总是出现在 If 语句或 Select Case 语句内部，而 If 语句或 Select Case 语句在循环内嵌套，用 Exit 语句中断循环。函数首先定义了两个 Integer 型变量 i、 j,并将空格赋给 Strl；第一个For 循环的变量 I 从 1 到 9 步长为 1，第二个循环的变量 i 也是从 1 到 9 步长为 l，循环体为选择结构，它是用来输出 i*j 的值，所以 j 的值应该小于此时 i 的值，那么 If 的判断语句为 j=i，当满足条件时执行 Then 后面的语句，即输出 i*j 的值，如果不满足执行 Else 后面的语句，并跳出内循环。43.在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 1 事件，当对象失 去焦点时将触发 2 事件。 （分数：2.00）填空项 1:_ （正确答案：GotFocus）解析：在 Visual Basic 中
