1、计算机二级(VB)50 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As
2、Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub （分数：2.00）A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick2.下面选项中不属于面向对象程序设计特征的是【 】（分数：2.00）A.继承性B.多态性C.类比性D.封装性3.下列叙述中正确的是_。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令4.在属性窗口中设置何属性，可以把指定的图形放
3、入当前对象中? （分数：2.00）A.5B.14C.8D.输出项不合法，无正常输出5.在设计阶段，当双击窗体上的某个控件时，打开的窗口是（ ）。（分数：2.00）A.PaintB.GraphicC.GraphicsD.Paints6.设 a = “a“，b = “b“，c = “c“，d = “d“，执行语句 x=IIf(ad),“A“,“B“)后，x 的 值为 _。 （分数：2.00）A.“a“B.“b“C.“B“D.“A“7.在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1
4、 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为（ ）。 （分数：2.00）A.lB.2C.5D.88.编写如下事件过程： Private Sub Form_MouseDown(Button AS Integer，Shift AS Integer，_ X As Single，Y As Single) If Shift=6 And Button=2 Then Print，“PC“ End If End Sub
5、 程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。 （分数：2.00）A.主索引B.候选索引C.惟一索引D.普通索引9.当把框架的何属性设置为 False 时，其标题会变灰，框架中所有的对象均被屏蔽?（分数：2.00）A.Cls 方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容。B.当前窗体中用 Picture 属性装入的图形，不可以用 Cls 方法清除C.Move 方法用来移动窗体和控件，不能改变大小D.Cls 可以清除由 Print 方法显示的文本，并把光标移到对象的左上角(0，0)10.标签控件能够显示文本信息，文本内容只能用什么属性来设置?（分数：2.0
6、0）A.AlignmentB.CaptionC.VisibleD.BorderStyle11.以下关于 Visual Basic 特点叙述中，错误的是_。 （分数：2.00）A.Visual Basic 是采用事件驱动编程机制的语言B.Visual Basic 程序既可以编译运行，也可以解释运行C.构成 Visual Basic 程序的多个过程没有固定的执行顺序D.Visual Basic 程序不是结构化程序，不具备结构化程序的三种基本结构12.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer，b As I
7、nteger，C As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End Function （分数：2.00）A.13B.16C.36D.3313.如果在窗体上添加一个通用对话框
8、控件 DBT，那么语句“DBTAction=4”的作用是（ ）。（分数：2.00）A.显示“打开文件”对话框B.显示“保存文件”对话框C.显示“字体”对话框D.显示“打印”对话框14.在 Visual Basic 中，组合框是文本框和什么的特性的组合?（分数：2.00）A.复选框B.标签C.列表框D.目录列表框15.资源文件的扩展名是（ ）。（分数：2.00）A.将在文本框 Text1 输入的数字变为数值B.将在文本框 Text1 输入的数字作为半径，求圆的周长并转换为字符串C.只要 Text1 中的内容一改变，Text2 中显示的圆周长也随之改变D.事件过程中的 Val 函数和 Str 函数
9、使用错误，事件过程不能执行16.单击按钮时，以下程序运行后的输出结果是（ ）。 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub （分数：2.00）A.Dim NewArray(
10、10)As IntegerB.Dim NewArray(1 T0 10)As IntegerC.Dim NewArray(10)IntegerD.Dim NewArray(1 To 10)Integer17.在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2=10,Is0 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后，单击命令按钮，输出结果是_。 （分数：
11、2.00）A.0B.2C.3D.4 解析：在内层循环中，在奇数次执行时，a 的值不变，偶数次执行时，a 的值加 1。每执行一轮外层循环，内层循环中的语句将要执行 4 次，即 a 的值要加 2，一共执行了两次内层循环语句，故 a 的值要加 4，而初 始时 a 的值为 0，故最后输出的 a 的值为 4。18.下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：本题的目的在于考查学生对图形控件的属性设置。Picture 属性用于窗体、图片框和图像框，它可以通过属性窗口设置，用来把图形放到这些对
12、象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来设置下一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretch 属性用于图像框，用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为True 或 False，当其值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。19.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDo
13、wn(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub （分数：2.00）A.J2DEB.J2SEC.J2ME D.Y2EE解析：J2EE 是面向大企业级用容器管理专用构件的应用平台，其具有强 大的服务功能如命令服务、事务服务、安全服务、部署服务消息服务、邮件服务等。 20.有
14、如下事件过程： Sub ABD(x，y，z) z=X +y End Sub Private Sub Command1 _ Click( ) a=30：b=40 Call ABD(a，b，c) Print c End Sub 运行上面的程序，单击命令按钮，输出结果为( )。 （分数：2.00）A./B./“C./ D./解析：根据字段的命名规则：字段名可以由字母、汉字、数字、下划线组成；字段名可以是汉字或合法的西文标识符，字段名必须以字母或汉字开头；字段名中不能包含空格或句点。21.下列程序段，在运行时最后输出的内容是( )。 a=2 c=3 AAA： c=c * a If c10 Then P
15、rint c GoTo AAA Else Print“10 以内的奇数显示完毕” End If （分数：2.00）A.3B.7C.9D.10 以内的奇数显示完毕 解析：在本题中使用了 If 语句与 GoTo 语句，来控制结构。当 c10 时输出 c，并继续运行；当大于 10时，显示“10 以内的奇数显示完毕。”并结束程序。因为 c =c*a,c 和 a 都是正数，总有大于 10 的时候，所以最后输出的一定是“10 以内的奇数显示完毕”。22.单击命令按钮时，下列的执行结果为( )。 Private Sub Command1_Click() Dim x As Integer，y As Integ
16、er x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.12 32B.6 29 C.2 3D.12 3解析： 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的 实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程是，它将实参的
17、地址传给形参，在被调用的过程 中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值赋值给形参并断开了联系， 被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参 所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题 中被调过程 Proc 中有两个形参，其中第一个形参 n 为传址方式，第二个形参 m 为传值方 式。主调过程分别把实参 x、y 传递给 Proc，所以当过程调用结束后，实参 x 的值应随着被 调过程变化而变化，而实参 y 值在主调函数中始终不变，所以输出 y
18、 的值仍为 29；在被调 过程中 “n = n Mod l0 “被调用时，相当于“x=x Mod l0”，所以 x 的值最终为 6。 23.要将名为 MyForm 的窗体显示出来，正确的使用方法是（ ）。（分数：2.00）A.MyFormShow B.ShowMyFormC.MyForm LoadD.MyForm Show解析：本题考核窗体处理时的使用方法或语句的格式。Visual Basic 中方法和语句的书写格式不同。 方法的格式为：对象方法 语句的格式为：语句 对象名 使用方法要先写对象名，要用“”运算符；使用语句要先写语句，语句后要空一格，后跟对象名。 24.在 Visual Basi
19、c 中按文件的数据性质不同，可将文件分为（ ）。（分数：2.00）A.PathB.Drive C.DirD.Pattern解析：本题考查虚函数的基本概念。虚函数只能是类的成员函数，不能是构造函数或析构函数。25.Visual Basic 集成的主窗口中不包括（ ）。（分数：2.00）A.必须使用带 ADDITIVE 子句的 SET RELATION 命令 B.直接利用 SET RELATION 命令进行关联C.在保持 AB 关联的基础上不能再建立 BC 关联D.在保持 AB 关联的基础上不能在建立的 BC 关联，但可以建立 AC 关联解析：使用 SET RELATION 命令时，若选用了 AD
20、DITIVE 短语则允许在保留已建立关联的基础上建立另一个关联。若缺省此项，则在建立新的关联时，自动取消已经建立的关联。26.以下事件过程可以将打开的对话框的标题改为“新时代”的是（ ）。（分数：2.00）A.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowOpen End Sub B.Private Sub Command2 Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowFont End SubC.Private Sub
21、Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1Show End Sub End SubD.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowColor End Sub解析：无需多看，一看就可以看出选项 A)是正确的；下面来分析一下。首先，设置标题属性用DialogTide 属性，四个选项都一样，所以这个不是区别；再看方法，选项 A)用的是 ShowOpen 方法，即打开对话框，所以是正确的；选项 B)用的是 Show
22、Font 方法，是字体设置对话框，不符合本题的意思，不正确；选项 C)用的是 Show 方法，但是对话框没有此方法，所以也不正确；最后选项 D)是用的 ShowColor 方法，是颜色选择对话框，所以也不符合本题的意思。27.下列说法有错误的是（ ）。（分数：2.00）A.B.C. D.解析：本题考查的是指针的使用，p 是指向 int 型的指针，若想给它指向 的元素赋值，应使用 * 符号，直接赋值相当于改变了原来 P 存储的地址。28.单击窗体上的关闭按钮时，触发的事件是（ ）。（分数：2.00）A.Form_Initialize ( )B.Form_Load ( )C.Form_Unload
23、 ( ) D.Form_Click ( )解析：Initialize 事件和 Load 事件是由系统自动触发的事件，而题意是单击关闭按钮；Form_Click 是单击窗体触发的事件；Unload 事件是清除窗体(关闭窗体或执行 Unload 语句)时触发。29.下列说法错误的是（ ）。（分数：2.00）A.Caption 为只读属性，运行时对象的名称不能改变 B.设置 Height 或 Width 的数值单位为 twip，是 1 点的 1/20C.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键解析：Caption 不是只读属性，在设计阶段可以在属性窗口中设置，
24、也可以用代码在运行时设置，不同的运行状态可以有不同的 Caption 属性值，所以选项 A)的表述是不正确的；Height 和 Width 的默认的单位是 twip，1twip 等于 1/1440 英寸，是 1 点的 1/20，故选项 B)是正确的；Icon 属性是用来设置窗体最小化图标的，所以选项 C)的表述是正确的；用来激活属性窗口的快捷键是 F4 键，所以选项 D)也是正确的。30.执行以下语句过程，在窗体上显示的内容是（ ）。 Option Base 0 Private Sub Command3_Click( ) Dim d d=Array(“a“，“b“，“c“，“d“) Print
25、 d(1)；d(3) End Sub （分数：2.00）A.对象的操作由对象的属性、事件和方法来描述B.Visual Basic 是面向对象的程序设计，Visual Basic 中只有窗体和控件两种对象 C.属性是对象的特征，不同的对象有不同的属性D.对象事件在代码窗口中体现过程解析：知道布尔型数据只有两个值：truc 和 false。这样的话，它在内存中占一位，就可以通过 0/1 来表示 true 和 false。计算机一般默认的是 false，意思是当我们定义变量，但还没有赋值时，系统自动初始化为 false。注意：选项 A)在 Java 中，常量 null，false 和 true 都需
26、要小写，这不同于 C 语言和 C+语言，而且在 Java 中，所有数据类型的长度都固定，并与平台无关，因此也没有 sizeof 关键字。 31.有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&“*“：n=n &“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.1 1 *
27、# 1 1 * #B.1 1 * # 1 2 * #C.1 1 * # 1 1 * #D.1 1 * # 1 2 * # 解析：本题考查函数调用和输出格式的语句。当 I=1 时，调用函数过程 DC，由于 y，n 为静态变量值保存，执行 x=x+1；y=y+1 后 x=1，y=1；执行 m=m&“*“：n=n&“#“后，m=“*“，n=“#“；当 I=2 时同上，只是y=2，n=“#“。32.在窗体上画 1 个命令按扭（名称为 Command1）和 1 个文本框（名称为 Text1），然后编 写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Te
28、xt) Select Case x Case 1,3 y=x*x Case Is=10,Is=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按扭，则以下叙述中正确的是_。（分数：2.00）A.执行 y=x*x B.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错解析：Select Case 语句在执行时依次查找相应的 Case 分支，如果满足条件，则执行相应分支中的语句，执 行结束后，退出 Select 块，而不继续查找下面的分支。本题中，由于第一个分支就满足条件，故只执行第 一个 C
29、ase 分支中的语句。33.下列说明中，不属于随机文件特点的是（ ）。（分数：2.00）A.可以随意读取随机文件中任一记录的数据B.随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写C.随机文件的操作是以记录为单位进行的D.随机文件的读、写操作语句与顺序文件的读写操作语句一样 解析：顺序文件的读写操作语句是 Input#(Line Input#)语句和 Print# (Write#)语句，而随机文件的读写操作语句是 Get#语句和 Put#语句。34.在窗体上画一个名称为 Command1 命令按钮，然后编写如下事件过程： Private Sub Command1_Click
30、() c = “ABCD“ For n= 1 To 4 Print _ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD BCD ABCD 则在_处填入的内容为。 （分数：2.00）A.Left(c,n)B.Right(c,n) C.Mid(c,n,1)D.Mid(c,n,n)解析：由显示内容可以看出，题目要求每次从右开始取 n 的字符，而从右开始取 n 的字符的语句为 Right(c,n)。35.下列程序段的执行结果为( )。 a=95 If a 60 Then degree=1 If a 70 Then degree=2 If a 80 Then de
31、gree=3 If a 90 Then degree=4 Print“degree=“；degree （分数：2.00）A.degree=1B.degree=2C.degree=3D.degree=4 解析：如果 a 60，则 degree= 1；如果 a 70，则 degree=1；如果 a 80， 则 degree=3：如果 a 90，则 degree=4。二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.浮点数由 3 部分组成，即符号、 1 和尾数。（分数：2.00）填空项 1:_ （正确答案：指数）解析：浮点数也称实型数或实数，是带有小数部分的数值，它由
32、3 部分组成：符 号、指数和尾数。单精度浮点数和双精度浮点数的指数分别用“E”(或“e”)和“D”(或 “d”)来表示。37.要使标签的背景样式为不透明，应将 BackStyle 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：1）解析：BackStyle 属性用来指定标签的背景样式是否透明，该属性可以取两个值：0 和 1。当为 0 时，标签为“透明”的；当值为 1 时，标签将覆盖背景。38.当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 2 事件。（分数：2.00）填空项 1:_ （正确答案：GolFocus）解析：在 Visual Basic 中，当对象得到焦点时
33、，它可以接收用户的输入；当得到焦点时会触发 GotFocus事件，当失去焦点时会触发 LostFocus 事件。39.有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以 4 余 1，除以 5 余 2 则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1Text) If 1 Then Print x Else Text1Text=“ 2 End If End Sub （分数：2.00）填空项 1:_ （正确答案：x Mod 4 = 1 And x Mod 5=2）解析：(1)程序调用了 Val-|
34、_|-函数从文本框中的得到数据。本题中先通过 Val-|_|-函数得到一个整数，进行条件判断，如果满足条件 x Mod 4=1 And x Mod 5=2 则输出x，否则，将清空文本框，焦点落在文本框中。40.以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，W) Dim S As Double S=L*W MsgBox“Total Area is“& Str(S) End Sub Private Sub Command1_Click1 Dim M，N M=InputBox(“What is the L?“) M=Val(M) 2 N=Val(
35、N) 3 End Sub （分数：2.00）填空项 1:_ （正确答案：N=InputBox(“What is the W?“)）解析：程序通过 RecArea 来计算并输出矩形的面积，它有两个形式参数，分别为矩形的长和宽；在 Sub 事件过程中，从键盘上输入矩形的长 和宽，调用 InputBox 函数分别将输入的数赋给 M 和 B，所以第一个空为 N=InputBox(“What is the W?“)；将 M 和 N 作为实参调用 RecArea 过程，它有两 种书写方式，一种是把过程的名字放在一个 Call 语句中，格式为 Call 过程名(实际参数)；另外一种是把过程名作为一个语句来使
36、用，与第一 种方式相比，它去掉关键字 Call，去掉了参数列表，所以第二个空为 Call RecArea(M，N)或 RecArea (M，N)。41.下面程序是用来打印九九乘法表的，请补充完整。 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）填空
37、项 1:_ （正确答案：j=i）解析：Exit 语句总是出现在 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 后面
38、的语句，并跳出内循环。42.下列程序的功能是：当 x100 时，没有意义。请填空。 Private Sub Command1_Click1 Dim x As Single x=InputBox(“请输入 x 的值!“) 2 Case Is3 Print“输入的数据出界!“ End Select Print x，y End Sub （分数：2.00）填空项 1:_ （正确答案：Select Case x）解析：阅读程序后，看到程序中有了 Case 和 End Select 子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句 Select Case x。在 Selec
39、t Case 结构中，只有两个 Case 子句，分别表示 x 取值的两种情况，但题目中将 x 的值分为 3 种情况，可见第二个空应该填写 Case Else 语句。43.某人编写如下函数来判断 a 是否为素数,若是,则函数返回 True；否则返回 False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean If a1 （分数：2.00）填空项 1:_ （正确答案：4）解析：在 Do While 循环体外的语句可先将非素数 1 排除,即大于 1 的数都可先暂判断其为素数,而 Do While
40、循环体内的语句才能进一步判断 a 是否为素数,如不是素数可更改之前的判断。而题目中设定 k=2,且其中一循环条件是 k44.请填写下列空白，以实现运行后形成一个主对角线上元素值为 1，其他元素为 0 的 66 阶矩阵。 Private Sub Command1 Click1 Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then 2 Else 3 End If Print 4 Next j Print Next i End Sub （分数：2.00）填空项 1:_ （正确答案：s(i，j)=1）解析：此程序段开始声明了一个二维数组，用两个 ForNex
41、t 语句嵌套使用为其赋值，当满足条件 i = j时，s(i，j)=1，当不满足 i=j 时，s(i，j)=0；最后输出数据，即在屏幕上输出 66 阶矩阵。45.执行下面的程序段，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:_ （正确答案：10）解析：MsgBox 函数的格式如下： MsgBox(msg，type)，title)，helpfile，content msg：一个字符串，长度不能超过 1024 个字符。 type：一个
42、整数值或符号常量，用来控制在对话框内显示的按钮，图标的种类及数量。 title：一个字符串，用来显示对话框的标题。 hdpfile，content：同 InputBox 函数。 在这 5 个参数中，只有第一个是必须的，其他的可以省略。 在程序中 ForNext 语句之后并没有对 I 的值改变，此时 I 为 10，故运行后结果为 10。 46.浮点数由 3 部分组成，即符号、 1 和尾数。（分数：2.00）填空项 1:_ （正确答案：指数）解析：浮点数也称实型数或实数，是带有小数部分的数值，它由 3 部分组成：符 号、指数和尾数。单精度浮点数和双精度浮点数的指数分别用“E”(或“e”)和“D”(
43、或 “d”)来表示。47.下列程序的功能是：将数据 1，2，10 写入顺序文件 Basetxt 中，请填空。 Private Sub Form_Click1 Dim i As Integer Open 2 As #1 For i=1 To 10 3 Next i Close #1 End Sub （分数：2.00）填空项 1:_ （正确答案：“Basetxt”For）填空项 1:_ （正确答案：Output）解析：本题中以输出方式来打开文件，故要用“Open“Basetxt“For Output As# 1“语句；向文件中写入数据用 Print 语句。48.按“先进后出“原则组织数据的数据结构
44、是 1。（分数：2.00）填空项 1:_ （正确答案：栈）解析：栈是限定只在一端进行插人和删除操作的线性表,通常称插入、删除的这一端为栈顶,另一端为栈底。栈按照“先进后出“或“后进先出“的原则组织 数据。49.我国古代数学家张丘建在其著名的算经中提出了百鸡问题：每只公鸡 5 元，每只母鸡 3 元，三只雏鸡 1 元；如何用 100 元买 100 只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。 Private Sub Commandl_Click1 Dim Cock As Integer Dim Hen As Integer Dim Chick As Integer
45、FormlPrint“公鸡数”，“母鸡数”，“雏鸡数” For Cock；0 To 20 For Hen=0 To 33 For Chick=0 To 100 If 2Then Form1Print Cock，Hen，Chick End If Next Chick Next Hen Next Cock End Sub （分数：2.00）填空项 1:_ （正确答案：Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3 = 100）解析：在该题中运用了循环语句的嵌套，即多重循环。从题目来看，需要填入的是一个条件语句，即满足百鸡问题的数的条件。如果满足条件就在窗体上显示出 来，应填入的语句是：Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3； 100。50.一棵二叉树第六层（根结点为第一层）的结点数最多为 1 个。（分数：2.00）填空项 1:_ （正确答案：32）解析：根据二叉树的性质：二叉树第 i（i1）层上至多有 2 的(I-1)次方个结点。得到第 6 层的结点数最多是 32。
