1、二级 VISUAL+BASIC 笔试-429 及答案解析(总分：102.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.按照“先进后出”原则组织数据的数据结构是( )。A)队列 B)栈 C)双向链表 D)二叉树（分数：2.00）A.B.C.D.2.按照“先进后出”原则组织数据的数据结构是( )。A) 队列 B) 栈C) 双向链表 D) 二叉树（分数：2.00）A.B.C.D.3.算法的有穷性是指( )。A) 算法程序的运行时间是有限的 B) 算法程序所处理的数据量是有限的C) 算法程序的长度是有限的 D) 算法只能被有限的用户使用（分数：2.00）A.B.C.D.4
2、.对于循环队列，下列叙述中正确的是A) 队头指针是固定不变的B) 队头指针一定大于队尾指针C) 队头指针一定小于队尾指针D) 队头指针可以大于队尾指针，也可以小于队尾指针（分数：2.00）A.B.C.D.5.对如下二叉树（分数：2.00）A.B.C.D.6.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。AA*B=0 And ABB(A=0 Or B=0)And ABCA=0 And B0 Or A0 And B=0DA*B=O And(A=0 Or b=0)（分数：2.00）A.B.C.D.7.下列选项中不属于结构化程序设计方法的主要原则的是
3、A) 自顶向下 B) 逐步求精 C) 模块化 D) 可复用（分数：2.00）A.B.C.D.8.下列 4 组控件属性中，属性值的类型不相同的一组是A) Label 控件的 Enabled 属性与 TextBox 控件的 Enabled 属性B) OptionButton 控件的 Value 属性与 CheckBox 控件的 Value 属性C) Command 控件的 Default 属性与 Command 控件的 Cancel 属性D) Command 控件的 Visible 属性与 Form 控件的 Visible 属性（分数：2.00）A.B.C.D.9.窗体上有一个列表框和一个文本框，
4、编写下列两个事件过程：Private Sub Form Load()List1.Addltem“北京“List1.Addltem“天津“List1.Addltem“上海“Text1.Text=“End SubPrivate Sub List1 Click()Print Text1.Text+List1.TextEnd Sub程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。A)中国北京 B)中国天津 C)中国上海 D)北京中国（分数：2.00）A.B.C.D.10.复选框的 Value 属性为 0 时，表示( )。A复选框未被选中 B复选框被选中C复选框内有灰
5、色的勾 D复选框操作有误（分数：2.00）A.B.C.D.11.已知 a=5，b=8，c=12，下列表达式的值为 True 的是( )。A)ab And ca B)ab Or caC)ab Xor ca D)ab Eqv ca（分数：2.00）A.B.C.D.12.将文本框的( )属性设置为 True 时，文本框可以输入或显示多行文本，且会自动换行。A)Text B)ScrollBars C)MultiLine D)Enabled（分数：2.00）A.B.C.D.13.下列程序运行后在立即窗口输出的结果是( )。Private Sub Form_Click()x=“a“:y=“b“z=1:u=
6、2Debug.Print x;y,z;uDebug.Print z;x,y;uEnd SubA) ab 121 ab 2B) ab 121a b2C) ab 121a b2D) ab 121a b2（分数：2.00）A.B.C.D.14.下面语句正确的是( )。AIf x3*y And xy Then y=x3BIf x3*y And xy Then y=3xCIf x3*y:xy Then y=x3DIf x3*y And xy Then y=x* *3（分数：2.00）A.B.C.D.15.执行了下面的程序后，组合框中数据项的值是( )。PrivateSubForm_Click()Fori
7、=1 To 6Comb01.Addltem iNextiFori=1 To 3CombolRemoveltem iNextiEnd SubA1 5 6 B1 3 5 C4 5 6 D2 4 6（分数：2.00）A.B.C.D.16.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。A) 它的 Y1、Y2 属性的值相等B) 它的 X1、X2 属性的值相等C) 它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等D) 它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等（分数：2.00）A.B.C.D.17.设已打开 5 个文件，文件号为 1，2，3，4，5。要关闭所有文
8、件，以下语句正确的是( )。ACloseg1,2,3,4,5 BClose#1；#2，#3，#4；#5CClose#1-#5 DClose（分数：2.00）A.B.C.D.18.下列程序执行后，n 的值为_。（分数：2.00）A.B.C.D.19.形状控件的 Shape 属性有 6 种取值，分别代表 6 种几何图形。下列不属于这 6 种几何图形的是（分数：2.00）A.B.C.D.20.计时器文件设置时间间隔的属性是A) Enabeld B) Index C) Tag D) Interval（分数：2.00）A.B.C.D.21.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下
9、程序：Dim k As IntegerPrivate Sub form_ Load()k = 15End SubPrivate Sub Command1_ Click()Static b As IntegerDim k As Integerk= k +1b = b+1Print k, bEnd Sub程序运行时，两次单击命令按钮 Command1 后，在窗体上显示的第二行是_。A) 1 1 B) 1 2 C) 2 1 D) 2 2（分数：2.00）A.B.C.D.22.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句 Open “C:/studata.da
10、t“ For Append As#1 之后，将A) 删除文件中原有内容B) 保留文件中原有内容，并在文件尾填加新内容C) 保留文件中原有内容，并在文件头填加新内容D) 以上均不对（分数：2.00）A.B.C.D.23.下面叙述中不正确的是_。A) 自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B) 自定义数据类型只能在窗体模块的通用声明段进行声明C) 在窗体模块中定义自定义数据类型时必须使用 Private 关键字D) 自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型（分数：2.00）A.B.C.D.24.单击按钮时，以下程序运行后的输出结果是(
11、 )。Private Sub procl(X As Integer, y As Integer, z As Integer)X=3*zy=2*Zz=x+yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1:y=2:z=3Call procl(x, x, z)Print x; x; zCall procl(x, y, y)Print x; y; yEnd SubA6 6 126 10 10B9 5 105 10 10C9 6 129 10 15D9 10 105 4 10（分数：2.
12、00）A.B.C.D.25.单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click() BT 4End SubPrivate Sub BT(x As Integer) x=x*2+1If x6 ThenCall BT(x) End Ifx=x*2Print x；End Sub) 15 ) 16) 17 ) 18（分数：2.00）A.B.C.D.26.在窗体上添加一命令按钮，其名为 Command1，然后编写代码如下：private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integern=3For
13、 i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n)；art(n)End Sub程序的运行结果为A) 3 11 B) 11 3 C) 13 3 D) 3 13（分数：2.00）A.B.C.D.27.下面的语句用 Array 函数为数组变量 a 的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是( )。A) Dim a B) Dim a As IntegerC) Dim a(9) As Integer D) Dim a() As Integer（分数：2.00）A.B.C.D.28.在窗体上画一个命令按钮 C
14、ommand1，然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10) As Integer, Arr2(10)As Integern=3For i = 1 To 5Arr1 (i)=iArr2(n)=2 * n+iNext iPrint Arr2(n); Art1 (n)End Sub运行程序后，单击命令按钮，输出结果是( )。A) 11 3 B) 3 11 C) 13 3 D) 3 13（分数：2.00）A.B.C.D.29.设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为_。x=IIF(aB) And(cd)，10,20)A)
15、10 B) 20 C) 30 D) 300（分数：2.00）A.B.C.D.30.下列对变量的定义中，不能定义 a 为变体变量的是A) Dim a As Double B) Dim a As VariantC) Dim a D) a=24（分数：2.00）A.B.C.D.31.下列程序段的执行结果为_。For X=5 To 1 Step-1For Y=1 To 6-XPrint Tab(Y+5);“*“；Next YPrintNext XA) * *B) *C) *D) *（分数：2.00）A.B.C.D.32.按文件的内容划分有( )。A)顺序文件和随机文件 B)ASCII 文件和二进制文们
16、：C)程序文件和数据文件 D)磁盘文件和打印文件（分数：2.00）A.B.C.D.33.下列程序的执行结果为_。（分数：2.00）A.B.C.D.34.单击命令按钮时，下列程序代码的执行结果为_。Public Sub Procl (n As Integer，ByVal m As Integer)n= n Mod 10m=m/10End SubPrivate Sub Conunand1_Click()Dim x As Integer，y As Integerx=12：y=34Call Procl(x，y)Print x；yEnd SubA) 12 34 B) 2 34 C) 2 3 D) 12
17、3（分数：2.00）A.B.C.D.35.设有语句 Open “C:/Test.Dat“ For OutPut As #1，则下列叙述中错误的是( )。A) 该语句只能打开 C 盘根目录下一个已存在的文件 Test.DatB) 当 C 盘根目录下没有该文件时，该语句在 C 盘根目录下建立名为 Test.Dat 的文件C) 该语句建立文件的文件号为 1D) 执行该语句后，就可以通过 Print#语句向 Test.Dat 文件中写入信息（分数：2.00）A.B.C.D.二、填空题(总题数：13，分数：32.00)36.测试的目的是暴露错误，评价程序的可靠性；而U /U的目的是发现错误的位置并改正错
18、误。（分数：2.00）填空项 1:_37.软件维护活动包括改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_38.Visual Basic 中的控件分为 3 类，它们是标准控件、U /U和可插入对象。（分数：2.00）填空项 1:_在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：Private Sub Coraraand1_Click( )Text1.Text=“计算机“Text2.Text=Text1.TextText1.Text=“等级考试“End Sub程序运行后，单击命令按钮，两个文本框(Text1 和 Text2)内容分别为U /U
19、和U /U。（分数：4.00）填空项 1:_填空项 1:_39.程序执行结果 s 的值是U /U。Private Sub sub1(Byval p As Integer)p=p*2End SubPrivate Sub Command1_ Click( )Dim i As Integeri=3Call sub 1 (i)if i4 then i=i mod 2Print cstr(i)End Sub（分数：2.00）填空项 1:_40.在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命
20、令按钮 Command1 变为可用。请填空。Pfivate Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1_Command1.Enabled=TrueEnd Sub（分数：2.00）填空项 1:_41.为了改变计时器控件的时间间隔，应该修改该控件的 1 属性。（分数：2.00）填空项 1:_42.如果在“立即”窗口中执行以下操作：a=8b=9print(aB) ；则输出结果为_。（分数：2.00）填空项 1:_43.下面程序代码实现单击命令按钮 Command1 时输出如下结果：1 -1 -11 1 -11 1 1该程
21、序不完整，请填空。Private Sub Command1_Click()DimX(3,3)For I=1 To 3ForJ=1 To 3 If_ThenX(I,J)=1End IfIf IJ ThenX(I,J)=-1End IfNext JNextIForI=1 To 3ForJ=1 To 3PrintX(I.J)；NextJPrintNeXtIEnd SUb（分数：2.00）填空项 1:_执行下面程序，第一行输出结果是U /U，第二行输出结果是U /U。Option ExplicitPrivate Sub Form_Click()Dim A As IntegerA=2Call Subl(
22、A)End SubPrivate Subl(x As Integer)x=x*2+1If x10 ThenCall Subl(x)End Ifx=x*2+1Print xEnd Sub（分数：4.00）填空项 1:_填空项 1:_44.设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer,i AS Integerarr1=Array(12,435,76,-24,78,54,866,43)Min=arr1(1)For i=2 To
23、8If arr1(i)Min Then_Next iPrint “最小值是:“; MinEnd Sub（分数：2.00）填空项 1:_45.在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框 Text1 和若干复选框，其中复选框 Check1 用于设置文本框 Text1 显示的文本是否加下划线。Check1的单击事件过程如下：Private Sub Checkl_Click()If _ ThenText1.FontUnderline=TrueElse If _ ThenText1.FontUnderline=FalseEnd IfEnd Sub（分数：
24、4.00）填空项 1:_46.在窗体上画一个文本框(其 Name 属性为 Text1)，编写如下事件过程，运行结果是_。Private Sub Form_Load()ShowText1.Text = “你好!“Text1.SetFocusFor i = 1 To 15Sum = Sum + iNext iText1.Text = SumEnd Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-429 答案解析(总分：102.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.按照“先进后出”原则组织数据的数据结构是( )。A)队列 B)栈 C)
25、双向链表 D)二叉树（分数：2.00）A.B. C.D.解析：解析 栈是一种特殊的线性表，其插入和删除运算都只在线性表的一端进行，而另一端是封闭的。进行插入、删除的一端称为栈顶，封闭的一端称为栈底。栈顶元素是最后被插入的元素，而栈底元素是最后被删除的。因此栈是按先进后出的原则组织数据的。2.按照“先进后出”原则组织数据的数据结构是( )。A) 队列 B) 栈C) 双向链表 D) 二叉树（分数：2.00）A.B. C.D.解析：解析 栈是一种特殊的线性表，其插入和删除运算都只在线性表的一端进行，而另一端是封闭的。进行插入、删除的一端称为栈顶，封闭的一端称为栈底。栈顶元素是最后被插入的元素，而栈底
26、元素是最后被删除的因此栈是按先进后出的原则组织数据的，3.算法的有穷性是指( )。A) 算法程序的运行时间是有限的 B) 算法程序所处理的数据量是有限的C) 算法程序的长度是有限的 D) 算法只能被有限的用户使用（分数：2.00）A. B.C.D.解析：解析 算法的基本特征主要包括以下四个方面：可行性：针对实际问题而设计的算法，执行后能够得到满意的结果。确定性：算法中的每一个步骤都必须有明确的定义，不允许有模棱两可的解释和多义性。有穷性：算法必需在有限时间内做完，即算法必需能在执行有限个步骤之后终止。拥有足够的情报：要使算法有效必需为算法提供足够的情报当算法拥有足够的情报时，此算法才最有效的；
27、而当提供的情报不够时，算法可能无效。4.对于循环队列，下列叙述中正确的是A) 队头指针是固定不变的B) 队头指针一定大于队尾指针C) 队头指针一定小于队尾指针D) 队头指针可以大于队尾指针，也可以小于队尾指针（分数：2.00）A.B.C.D. 解析：解析 循环队列是将顺序队列首尾相连形成的，随着插入元素或删除元素的进行，其队头指针及队尾指针是在不断变化的，有时可能会出现队头指针大于队尾指针的情况，也可能是队尾指针大于队头指针，故答案为 D)。5.对如下二叉树（分数：2.00）A.B.C.D. 解析：解析 二叉树的遍历有 3 种：前序、中序和后序。后序遍历首先遍历左子树或左子结点，然后遍历右子树
28、或右子结点，最后访问根结点。分析本题二叉树，对其进行后序遍历的结果为 DEBFCA。6.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。AA*B=0 And ABB(A=0 Or B=0)And ABCA=0 And B0 Or A0 And B=0DA*B=O And(A=0 Or b=0)（分数：2.00）A.B.C.D. 解析：7.下列选项中不属于结构化程序设计方法的主要原则的是A) 自顶向下 B) 逐步求精 C) 模块化 D) 可复用（分数：2.00）A.B.C.D. 解析：解析 结构化程序设计方法的主要原则是：自顶向下，逐步求精，模块
29、化，限制使用 goto 语句。可复用性是指软件元素不加修改和稍加修改可在不同的软件开发过程中重复使用的性质。软件可复用性是软件工程追求的目标之一，是提高软件生产效率的主要方法。面向对象的程序设计具有可复用性的优点。8.下列 4 组控件属性中，属性值的类型不相同的一组是A) Label 控件的 Enabled 属性与 TextBox 控件的 Enabled 属性B) OptionButton 控件的 Value 属性与 CheckBox 控件的 Value 属性C) Command 控件的 Default 属性与 Command 控件的 Cancel 属性D) Command 控件的 Visib
30、le 属性与 Form 控件的 Visible 属性（分数：2.00）A.B. C.D.解析：解析 CheckBox 控件的 Value 属性取值是 0、1 或 2；OptionButton 控件的 Value 属性取值是True 或 False。9.窗体上有一个列表框和一个文本框，编写下列两个事件过程：Private Sub Form Load()List1.Addltem“北京“List1.Addltem“天津“List1.Addltem“上海“Text1.Text=“End SubPrivate Sub List1 Click()Print Text1.Text+List1.TextEn
31、d Sub程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。A)中国北京 B)中国天津 C)中国上海 D)北京中国（分数：2.00）A. B.C.D.解析：解析 程序运行时，首先在文本框中输入“中国”，则文本框的 Text 属陛值为“中国”；然后单击列表框中的“北京”，则此时列表框的 Text 属性值为“北京”；最后用“+”将文本框的 Text 属性值和列表框的 Text 属性值连接起来，因此输出“中国北京”。10.复选框的 Value 属性为 0 时，表示( )。A复选框未被选中 B复选框被选中C复选框内有灰色的勾 D复选框操作有误（分数：2.00）A. B
32、.C.D.解析：11.已知 a=5，b=8，c=12，下列表达式的值为 True 的是( )。A)ab And ca B)ab Or caC)ab Xor ca D)ab Eqv ca（分数：2.00）A.B.C.D. 解析：解析 And 逻辑运算符刘两个关系表达式的值进行比较，如果两个表达式的值均为 True，则结果为 True，否则为 False。Or 逻辑运算符对两个关系表达式的值进行比较，如果两个关系表达式的值均为True 或其中的一个表达式为 True，则结果为 True：如果两个表达式的值均为 False，则结果为False。Xor 逻辑运算付，如果两个表达式同时为 True 或同
33、时为 False，则结果为 False，否则为True。Eqv 逻辑运算符，如果两个表达式同时为 True 或同时为 False，则结果为 True。12.将文本框的( )属性设置为 True 时，文本框可以输入或显示多行文本，且会自动换行。A)Text B)ScrollBars C)MultiLine D)Enabled（分数：2.00）A.B.C. D.解析：解析 MultiLine 属性可设置为 True 或 Flase 值，它确定文本框是否能接受和显示多行文本：ScrollBars 属性返回或设置一个值，它确定文本框显示滚动条的显示方式，0-vbBNone 默认值为没有滚动条，1-vb
34、Horizontal 为水平滚动条，2-vbVertical 为垂直滚动条，3-vbBoth 为两种滚动条都有；Text 属性设置文本框中显示的内容；Enabled 属性设置为 True 或 False，分别决定对象在运行时有效或无效。13.下列程序运行后在立即窗口输出的结果是( )。Private Sub Form_Click()x=“a“:y=“b“z=1:u=2Debug.Print x;y,z;uDebug.Print z;x,y;uEnd SubA) ab 121 ab 2B) ab 121a b2C) ab 121a b2D) ab 121a b2（分数：2.00）A.B. C.D
35、.解析：解析 用 print 输出多个表达式或字符串时，各表达式用分隔号(逗号、分号、空格)隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式(以 14 个字符位置为单位把一个输出行分为若干个区段)显示数据项；如果以分号或空格作分隔符，则按紧凑输出格式输出数据。题中，以“_”表示分区段的14 个字符的位置，选项 B)符合题意。14.下面语句正确的是( )。AIf x3*y And xy Then y=x3BIf x3*y And xy Then y=3xCIf x3*y:xy Then y=x3DIf x3*y And xy Then y=x* *3（分数：2.00）A. B.C.D.解
36、析：解析 本题考查对运算符的使用。x3 为求 x 的 3 次方，y=3x、y=x*3 语法错误，应为 3*x。选项 C 中 y:xy 错误，y 单独不能构成一个语句。15.执行了下面的程序后，组合框中数据项的值是( )。PrivateSubForm_Click()Fori=1 To 6Comb01.Addltem iNextiFori=1 To 3CombolRemoveltem iNextiEnd SubA1 5 6 B1 3 5 C4 5 6 D2 4 6（分数：2.00）A.B. C.D.解析：16.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。A) 它的 Y1、Y2
37、属性的值相等B) 它的 X1、X2 属性的值相等C) 它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等D) 它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等（分数：2.00）A.B. C.D.解析：解析 Line 控件有四个属性分别为 X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即 X1=X2。17.设已打开 5 个文件，文件号为 1，2，3，4，5。要关闭所有文件，以下语句正确的是( )。ACloseg1,2,3,4,5 BClose#1；#2，#3，#4；#5CClose#1-#5 DClose（分数：2.
38、00）A.B.C.D. 解析：18.下列程序执行后，n 的值为_。（分数：2.00）A.B. C.D.解析：解析 该段程序将求余运算的结果作为 if 语句的条件，统计 100 以内能被 4 整除的数的个数，其结果是“100/4=25”。19.形状控件的 Shape 属性有 6 种取值，分别代表 6 种几何图形。下列不属于这 6 种几何图形的是（分数：2.00）A.B. C.D.解析：解析 形状控件的 Shape 属性有 6 种取值，可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。20.计时器文件设置时间间隔的属性是A) Enabeld B) Index C) Tag D) Interv
39、al（分数：2.00）A.B.C.D. 解析：解析 计时器控件的常用属性有两个：一是 Enabeld 属性，表示计时器是否启用；二是 Interval属性，表示计时器 Timer 事件执行的时间间隔。21.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Dim k As IntegerPrivate Sub form_ Load()k = 15End SubPrivate Sub Command1_ Click()Static b As IntegerDim k As Integerk= k +1b = b+1Print k, bEnd Sub程序运行时，两次单击命令按钮
40、 Command1 后，在窗体上显示的第二行是_。A) 1 1 B) 1 2 C) 2 1 D) 2 2（分数：2.00）A.B. C.D.解析：解析 本题首先定义了一个窗体级变量 K，在窗体的 Load 事件代码中给 K 赋值 150 第一次单击命令按钮时，定义了一个静态变量 b 和一个局部变量 k，注意这里的 k 不是窗体级变量，对它的修改不影响窗体级变量 K，执行下面的两条赋值语句后，k 的值为 1，b 的值为 1，输出的第一行为 1 1。第二次单击Command1，执行 Click 事件过程，注意此时变量 b 的值将是上一次退出时的值为 1，而不是 0，但局部变量 k 的值为 0，执行
41、下面的两条赋值语句后，k 的值为 1，b 的值为 2，所以输出的第二行为“1 2”。22.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句 Open “C:/studata.dat“ For Append As#1 之后，将A) 删除文件中原有内容B) 保留文件中原有内容，并在文件尾填加新内容C) 保留文件中原有内容，并在文件头填加新内容D) 以上均不对（分数：2.00）A.B. C.D.解析：解析 Open 语句对文件“输入/输出”操作，语法如下：Open文件名For模式As#文件号其中模式为 Append，表示以追加数据的方式在文尾写数据。23.下面叙
42、述中不正确的是_。A) 自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B) 自定义数据类型只能在窗体模块的通用声明段进行声明C) 在窗体模块中定义自定义数据类型时必须使用 Private 关键字D) 自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型（分数：2.00）A.B. C.D.解析：评析 自定义数据类型是用 Type 语句定义的数据类型，可以包含一个或多个任意数据类型的元素。自定义数据类型必须在窗体模块、标准模块或类模块的通用声明段进行定义。在窗体模块和类模块中，只能用 Private 关键字来声明自定义数据类型；在标准模块中，可以使用Pr
43、ivate 或 Public 关键字来声明自定义数据类型。自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型。24.单击按钮时，以下程序运行后的输出结果是( )。Private Sub procl(X As Integer, y As Integer, z As Integer)X=3*zy=2*Zz=x+yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1:y=2:z=3Call procl(x, x, z)Print x; x; zCall p
44、rocl(x, y, y)Print x; y; yEnd SubA6 6 126 10 10B9 5 105 10 10C9 6 129 10 15D9 10 105 4 10（分数：2.00）A. B.C.D.解析：解析 在 Visual Basic 中，参数默认是按地址传递的，也就是使过程按照变量的内存地址去访问实际变量的内容。这样，将变量传递给函数时，通过函数可永远改变该变量的值。因此在本题中，当每次调用 procl 函数后，变量的值都被改变，结果为选项 A。25.单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click() BT 4End SubPri
45、vate Sub BT(x As Integer) x=x*2+1If x6 ThenCall BT(x) End Ifx=x*2Print x；End Sub) 15 ) 16) 17 ) 18（分数：2.00）A.B.C.D. 解析：解析 此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用 BT 过程，把实参 4 传递给 BT 过程中的形参 x，由 x=x*2+1 语句推出 x=9，此时不满足 BT 过程中判断语句的判断条件，执行 x=x*2；Print x；语句。由 x=x*2 语句得到 x 值为 18 并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为 18
46、。26.在窗体上添加一命令按钮，其名为 Command1，然后编写代码如下：private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integern=3For i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n)；art(n)End Sub程序的运行结果为A) 3 11 B) 11 3 C) 13 3 D) 3 13（分数：2.00）A.B. C.D.解析：解析 在给数组赋值时，如果每次都是赋给数组中同一个成员，那么后面的赋值将覆盖以前的值。27.下面的语句用 Array 函数为数组变量 a
47、 的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是( )。A) Dim a B) Dim a As IntegerC) Dim a(9) As Integer D) Dim a() As Integer（分数：2.00）A. B.C.D.解析：解析 利用 Array 函数，可以在程序运行之前初始化数组。Array 函数是用于为数组元素赋值，即把一个数据集读入指定数组中。其格式为：数组变量=Array(数组元素值列表)。其中，“数组变量”是预先定义的数组名，后面不带括号和下标。之所以称为“数组变量”，是因为它作为数组使用，但预先定义时是以变量的形式来定义的，它既没有维数，也没有上下界。28.在窗体上画一个命令按钮 Command1，然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10) As Integer, Arr2(10)As Integern=3For i = 1 To 5Arr1 (i)=iArr2(n)=2 * n+iNext iPrint Arr2(n); Art1 (n)End Sub运行程序后，单击命令按钮，输出结果是( )。A)
