1、计算机二级(VB)56 及答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：60，分数：4200.00)1.下列语句中，获得列表框 List1中项目个数的语句是（ ）。（分数：70.00）A.x8B.x8C.s(0)D.v82.在窗体上有 1个名称为 CommonDialog1的通用对话框和 1个名称为 Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击 Command1按钮,则显示打开文件对话框,并在选择或输入个文件名后,就可以打开该文件。以下是 Command1_Click事件过程的两种算法 算法 1： Priv
2、ate Sub Command1_Click() CommonDialog1.Show Open Open CommonDialog1.File Name For Input As#1 End Sub 算法 2： Private Sub Command1_Click() CommonDialog1.Show Open If CommonDialog1.File Name=y Then z=x：z=yB.If x=y Then z=x Else z=yC.z=y：If x=y Then z=xD.If xn Do While m n：m=m - n：Loop Do While m n：n=n -
3、 m：Loop Loop MyBM=m End Function （分数：70.00）A.方法是对象的一部分B.在调用方法时，对象名是不可缺少的C.方法是一种特殊的过程和函数D.方法的调用格式和对象属性的使用格式相同19.在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输
4、出结果为( )。 （分数：70.00）A.2B.62C.8D.2620.下列程序段的执行结果为( )。 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print “* * 0 * *“ Case 1 Print “ * * 1 * * “ End Select Case 2 print “ * * 2 * * “ End Select （分数：70.00）A.159B.753C.357D.59121.在计时器控件中，Interval 属性的作用是（ ）。（分数：70.00）A.决定是否响应用户的操作B.设置计时器事件之间的间隔C.存储程序所
5、需要的附加数据D.设置计时器顶端和其容器之间的距离22.要设置窗体为固定对话框，并包含控制莱单栏和标题栏，但没有最大化和最小化控钮，设置的操作是（ ）。（分数：70.00）A.MyFormShowB.ShowMyFormC.MyForm LoadD.MyForm Show23.下列程序段的执行结果为( )。 a=5 For k=1 To 0 a=a * k Next k Print k；a （分数：70.00）A.-1 6B.-1 16C.1 5D.11 2124.在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command3_Click( ) Tcl 2 Tcl 3 T
6、el 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 （分数：70.00）A.2 3 4B.2 5 9C.3 5 4D.2 4 325.在窗体上画 3个标签、3 个文本框（名称分别为 Text1、Text2 和 Text3）和 1个命令按钮 （名称为Command1），外观如图所示。 （分数：70.00）A.4B.6C.8D.1226.在 E-R图中，用来表示实体的图形是_。 （分数：70.00）A.矩形B.椭圆形C.菱形D.三角形27.下列叙
7、述中错误的是【 】（分数：70.00）A.在数据库系统中,数据的物理结构必须与逻辑结构一致B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持28.当一个复选框被选中时，它的 Value的属性的值是（ ）。 （分数：70.00）A.3B.2C.1D.029.下列四组控件属性中，属性值的类型不相同的一组是（ ）。（分数：70.00）A.Label控件的 Enabled属性与 TextBox控件的 Enabled属性B.OptionButton控件的 Value属性与 CheckBox控件的 Value属性C.Com
8、mand控件的 Default属性与 Command控件的 Cancel属性D.Command控件的 Visible属性与 Form控件的 Visible属性30.运行下列程序段后，显示的结果为（ ）。 J1=23 J2=32 If J1J2 Then Print J2 Else Print J1 （分数：70.00）A.23B.32C.55D.233231.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：70.00）A.1 4
9、B.13 4C.12 8D.20 632.设在窗体上有 1个名称为 Combo1的组合框,含有 5个项目,要删除最后一项,正确的语句是【 】（分数：70.00）A.Comb01.Remove ltem Comb01.TextB.Comb01.Removeltem 4C.Comb01.Remove ltem Comb01.List CountD.Comb01.Remove ltem 533.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：70.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.
10、只保存窗体模块和标准模块文件D.只保存工程文件34.单击一次命令按钮后，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim m As Integer，I As Integer，x(10) As Integer For I=0 To 4：x(I)=I+1：Next I For I=1 TO 2：Call Prioc(x)：Next I For I=0 TO 3：Print x(I)；：Next I End Sub Private Sub Prioc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+
11、1) I=I+1 Loop While I2 End Sub （分数：70.00）A.3 4 7 5B.3 5 7 4C.1 2 3 4D.1 2 3 535.用什么语句可以选择指定的表项或取消已选择的表项?（分数：70.00）A.January 10，1979B.#January 10，1997#C.“January 10，1997“D. t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function （分数：70.00）A.
12、t=18B.t=24C.t=30D.t=3244.下面语句正确的是（ ）。（分数：70.00）A.10，00936B.10，009360C.10，0093D.010，00936045.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox(“Enter data：“) b(3 - k) =a(k + 1) Next k Print b(k) （分数：70.00）A.2B.4C.6D.046.在窗体上画 1 个命令按钮，名称为 Command1，然后编
13、写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：“) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If XA.0B.5C.15D.无任何输出47.假定建立了一个名为 Command1的命令按钮数组，则以下说法中错误的是_。 （分数：70.00）A.数组中每个命令按钮的名称（Name 属性）均为 Command1B.数组中每个命令按钮的
14、标题（Caption 属性）都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮48.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift键和锁定大写键时)运行程序，如果按“A“键，则程序输出的结果是（
15、）。 （分数：70.00）A.A AB.a AC.A aD.a a49.阅读下面的程序段： For a=1 To 2 For b=1 To a For C=b To 2 I=I + 1 Next Next Next Print I 执行上面的三重循环后，I 的值为（ ）。 （分数：70.00）A.4B.5C.6D.950.对话框在关闭之前，不能继续执行其他操作，这种对话框属于（ ）。（分数：70.00）A.=，+，-，/B.，+，()，newC.-，+，*，D.=3)“) k=Int(Sqr(n) i=2 swit=0 While i“ “Then Open CommonDialog1.Fil
16、e Name For Input As#1 EndIf End Sub 下面关于这两种算法的叙述中正确的是【 】 （分数：70.00）A.显示打开文件对话框后若未选择或输入任何文件名,则算法 2会出错,算法 1不会B.显示打开文件对话框后若未选择或输入任何文件名,则算法 1会出错,算法 2不会 C.两种算法的执行结果完全一样D.算法 1允许输入的文件名中含有空格,而算法 2不允许解析：在文件对话框的操作中,如果选择了某个文件并单击确定,则文件对话框的 FileName的值是完整的文件名称,包括路径；而如果没有选择任何文件或输人任何文件名,则文件对话框的 FileName的值是空值,这时如果用
17、Open语句进行操作会出错。3.对长度为 n的线性表进行顺序查找，在最坏情况下所需要的比较次数为_。 （分数：70.00）A.log2nB.n/2C.n D.n+1解析：在进行顺序查找过程中，如果线性表中的第一个元素就是被查找元素，则只需做一次比较就查找成 功，查找效率最高；但如果被查找的元素是线性表中的最后一个元素，或者被查找的元素根本就不在线性 表中，则为了查找这个元素需要与线性表中所有的元素进行比较，这是顺序查找的最坏情况。所以对长度为 n 的线性表进行顺序查找，在最坏情况下需要比较 n 次。4.下列程序段的执行结果为（ ）。 a=1 b=1 For I=1 To 3 f=a+b a=b
18、 b=f Print f; Next I （分数：70.00）A.4 6B.6 6C.8 8 D.10 12解析：在 Sub过程中，程序段先定义了 3个 Integer型变量 k，m，P，并给 k 赋给初值 4，m 的初值为1，然后调用事件过程 PC，并将它的值赋给 p；在事件过程 PC中定义了两个形参，参数的传送是通过引用实参，即将 k，m 的地址作为 a，b 的地址；在 PC 中，将 m，I 定义为静态变量，所以第一次调用后的值仍然保留，但是 m，I 分别都有赋值语句，将它们的值变为 0，2，所以返回值不变。 5.下列关于栈的描述中错误的是_。 （分数：70.00）A.栈是先进后出的线性表
19、B.栈只能顺序存储 C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针解析：栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一 端称为栈顶，另一端称为栈底。一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚 被插入的元素。所以栈又称先进后出表（FILO，First In Last Out）。线性表可以顺序存储，也可以链式存储， 而栈是一种线性表，也可以采用链式存储结构。6.以下叙述中错误的是【 】（分数：70.00）A.一个工程中可以包含多个窗体文件B.在一个窗体文件中用 Public定义的通用过程不能被其他窗体调用 C.窗体和标
20、准模块需要分别保存为不同类型的磁盘文件D.用 Dim定义的窗体层变量只能在该窗本中使用解析：一个工程文件由若干个窗体和模块组成,每个窗体或模块都对应有一个不同的文件。对于用 Dim和蹦 vate声明的窗体层变量,其作用范围都是在所声明的窗体范围内；用 Public声明的窗体层变量作为窗体公用数据成员,可以在其他窗体或模块中以“窗体名.变量“方式引用,其作用可以大于当前窗体范围。7.单击命令按钮，下列程序的执行结果是( )。 Private Sub Blck (x As Integer) x = x * 2 + l If x 6 Then Call Blck(x) End If x = x *
21、2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub （分数：70.00）A.aa=false B.aa=FalseC.aa=“true“D.aa=0解析：在类 A中有 geta( )函数，在类 B中也有 geta( )函数，类 C继承了类 A和类 B，这样就产生了二义性，所以程序会出错。8.以下各项，可以作为 Visual Basic变量名的是（ ）。（分数：70.00）A.内存跟踪 B.内存编译C.语法检查D.上述都不正确解析：正确的字符串数组声明是 String str =new String ；，注意选项
22、D)的形式是不对的，这和C+语言是不同的。9.以下叙述中，错误的是_。 （分数：70.00）A.一个 Visual Basic 应用程序可以含有多个标准模块文件B.一个 Visual Basic 工程可以含有多个窗体文件C.标准模块文件可以属于某个指定的窗体文件 D.标准模块文件的扩展名是.bas解析：标准模块文件为整个工程所有，不属于某个特定的窗体。10.窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 的命令按钮。命令 按钮的单击事件过程 如下 ： Private Sub Command1_Click() CD1.FileName = “ CD1.Filter
23、= “All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex = 2 CD1.Action = 1 End Sub 关于以上代码，错误的叙述是_。 （分数：70.00）A.执行以上事件过程，通用对话框被设置为“打开“文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.Txt D.以上代码不对文件执行操作解析：Action=1 表示用来显示一个“打开”文件对话框，FileName 用来指定该对话框默认要打开的文件名， Filter 用来指定要打开的文件类型，FilterIndex 是指定默认情况下要打开的文件
24、类型，在这里 FilterIndex=2 表示默认情况下打开 Filter 列表中第二种文件类型，即 Doc 类型的文件。11.确定窗体控件启动位置的属性是（ ）。（分数：70.00）A.Width和 HeightB.Width或 HeightC.StartUpPositon D.Top和 Left解析：控制窗体启动位置的是 StartUpPositon，所以选项 C) 是正确的；而 Width 和 Height用来控制窗体的大小，所以 A) 和 B) 选项不正确；Top 和 Left用来控制窗体的左右边界距屏幕的左右边界的相对距离的，所以选项 D) 不正确。12.下列四组控件属性中，属性值的
25、类型不相同的一组是（ ）。（分数：70.00）A.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸” CommonDialog1ShowOpen End Sub B.Private Sub Command2_Click( ) CommonDialog1DialoTitle=“宇宙大爆炸” CommonDialog1ShowFont End SubC.Private Sub Command2_Click( ) CommonDialog1DilogTitle=“宇宙大爆炸” CommonDialog1Show End Sub
26、D.Private Sub Command2_Click( ) CommonDialog1DialogTitle=“宇宙大爆炸” CommonDialog1ShowColor End Sub解析：首先，设置标题属性用 Dialog Title属性，4 个选项都一样，所以这个不是区别；再看方法，选项 A)用的是 ShowOpen方法， 即打开对话框，所以是正确的；选项 B)用的是 ShowFont方法，是字体设置对话框，不符合本题的意思，不正确；选项 C)用的是 Show方法，但是 对话框没有此方法，所以也不正确；最后选项 D)是用的 ShowColor方法，是颜色选择对话框，不符合本题的意思。
27、13.在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 （分数：70.00）A.10 5B.12 5C.10 7D.12 7 解析：14.计算 z的值，当 x大于
28、y时，z=x；否则 z=y。下列语句错误的是（ ）。（分数：70.00）A.If x=y Then z=x：z=y B.If x=y Then z=x Else z=yC.z=y：If x=y Then z=xD.If xn Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyBM=m End Function （分数：70.00）A.方法是对象的一部分B.在调用方法时，对象名是不可缺少的 C.方法是一种特殊的过程和函数D.方法的调用格式和对象属性的使用格式相同解析：Visual Basic 中的一个工程可以包括一个或多个窗体，
29、最多不超过 255 个窗体，因此选项 D)是正确的，选项 C)是不正确；窗体述文件的扩展名是frm，所以选项 A)是正确的；一个窗体对应于一个窗体文件，所以选项 B)也是正确的。19.在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox(“enter the first integer“) b=InputBox(“enter the second integer“) Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 （分数：70.00）
30、A.2B.62 C.8D.26解析：在默认的情况下，InputBox 函数的返回值是一个字符串类型，而不是变体类型。如果没有事先声明返回值变量的类型，或声明为变体类型，则当把函数的返回值赋给这个变量时，Visual Basic 将是把它作为字符串来处理。因此当需要用 InputBox 函数输入数据，并且需要输入的数值参加运算时，必须在进行运算前用 Val函数(或其他函数)把它转换为相应类型的数值，否则有可能会得到不正确的结果。如果正确地声明了返回值的变体类型，则可不必进行类型转换；由于本题没有事先声明变量，所以 a 和 b所获得的为字符“2”和“6”，所以输出“62”。20.下列程序段的执行结
31、果为( )。 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print “* * 0 * *“ Case 1 Print “ * * 1 * * “ End Select Case 2 print “ * * 2 * * “ End Select （分数：70.00）A.159B.753 C.357D.591解析：首先，当 i=0时，数组中的位置是 a00=1，当然，如果用排除法的话，就不用考虑后面的循环了，因为在 4个选项中，第 1个数为 1的选项只有 A)。本题执行第 2次循环时，i 的值为 1，则 cout函数中的数组指向为 a11=
32、5，依次循环，可求出答案。21.在计时器控件中，Interval 属性的作用是（ ）。（分数：70.00）A.决定是否响应用户的操作B.设置计时器事件之间的间隔 C.存储程序所需要的附加数据D.设置计时器顶端和其容器之间的距离解析：在计时器控件中，Interval 属性用来设置计时器事件之间的间隔，单位是毫秒，取值范围是065535，因此最大时间间隔不能超过 65秒，如果把 Interval属性设置为 1000，则表明每秒钟发生一个计时器事件。所以，本题的正确答案是选项 B)22.要设置窗体为固定对话框，并包含控制莱单栏和标题栏，但没有最大化和最小化控钮，设置的操作是（ ）。（分数：70.00
33、）A.MyFormShow B.ShowMyFormC.MyForm LoadD.MyForm Show解析：套接字适用于低级连接，使实现新的连接时。但对于诸如 HTTP等现有的协议，有更适合的类URL 和 URLConnection。Socket 是用来实现客户与服务者之间的通信，Java 在 Sockel中提供多线程机制，对实现大呈客户通信带来了好处；数据报通信的协议 UDP是无连接协议，它对传输数据的大小有限制，在 64KB之内它的传输不可靠，但操作简单。 23.下列程序段的执行结果为( )。 a=5 For k=1 To 0 a=a * k Next k Print k；a （分数：7
34、0.00）A.-1 6B.-1 16C.1 5 D.11 21解析：For 循环有两种格式，其中一种格式是： For 循环变量=初值 To 终值 Step 步长 语句 Exit For 语句 Next 循环变量 此循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，就一次也不循环而眺出循环，属于“先检查后执行”的类型。观在来看程序段， For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，检查后超过 “终值”0，所以一次也不执行，即最后执行 Print，k=1，a=5。 24.在窗体上画一个命令按钮，然后编写下列程序： Pr
35、ivate Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 （分数：70.00）A.2 3 4B.2 5 9 C.3 5 4D.2 4 3解析：在过程 TCL中，将 Integer型变量 x定义为静态变量(Static)，Static 语句的格式与 Dim语句完全一样，但 Static语句只能出现在事件过程，Sub 过程或 Func- tion过程中，在过程中的 Sta
36、tic变量只有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Tcl过程是将变量 a的值加上 x赋给 x，然后输出 x的值；第一次调用 Tcl过程时，x 未赋值，默认为 0，所以输出结果为 2，第二次调用 Tcl过程时，因为 x为静态变量，所以它的值为上次调用后的值，即为2，加上 a后，x 的值变为 5，输出结果为 5，同理，第三次调用后输出结果为 9。25.在窗体上画 3个标签、3 个文本框（名称分别为 Text1、Text2 和 Text3）和 1个命令按钮 （名称为Command1），外观如图所示。 （分数：70.00）A.4B.6C.8 D.1
37、2解析：分析程序可知，函数 f 采用辗转相除法计算两个数的最大公约数，由于题面中输入的两个数是 36 和 24，它们的最大公约数为 8。26.在 E-R图中，用来表示实体的图形是_。 （分数：70.00）A.矩形 B.椭圆形C.菱形D.三角形解析：E-R 图中用矩形表示实体集，用椭圆表示属性，用菱形表示联系。27.下列叙述中错误的是【 】（分数：70.00）A.在数据库系统中,数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目标是要解决数据的共享问题C.数据库设计是指在已有数据库管理系统的基础上建立数据库D.数据库系统需要操作系统的支持解析：数据库设计(Database Design)是
38、指根据用户的需求,在某一具体的数据库管理系统上设计数据库的结构并建立数据库的过程；数据库技术的根本目标是要解决数据共享的问题；数据库需要操作系统的支持；数据的物理结构又称数据的存储结构,就是数据元素在计算机存储器中的表示及其配置。数据的逻辑结构是指数据元素之间的逻辑关系,它是数据在用户或程序员面前表现的方式,在数据库系统中,数据的物理结构不一定与逻辑结构一致。28.当一个复选框被选中时，它的 Value的属性的值是（ ）。 （分数：70.00）A.3B.2C.1 D.0解析：29.下列四组控件属性中，属性值的类型不相同的一组是（ ）。（分数：70.00）A.Label控件的 Enabled属性
39、与 TextBox控件的 Enabled属性B.OptionButton控件的 Value属性与 CheckBox控件的 Value属性 C.Command控件的 Default属性与 Command控件的 Cancel属性D.Command控件的 Visible属性与 Form控件的 Visible属性解析：CheckBox 控件的 Value属性取值是 0、1 或 2；OptionButton 控件的 Value 属性取值是 True或Falseo。30.运行下列程序段后，显示的结果为（ ）。 J1=23 J2=32 If J1J2 Then Print J2 Else Print J1
40、（分数：70.00）A.23B.32 C.55D.2332解析：题中是条件语句 If J12 Then Print J2 Else Print J1，即 J1 J2 时输出 J2，否则输出 J1，即输出两者的最大者。显然应该是 32，正确答案是选项 B)。31.执行下面的程序后，输出的结果是( )。 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；y （分数：70.00）A.1 4B.13 4 C.12 8D.20 6解析：本题是一个多重循环语句，是 ForNext结构的两重迭用
41、，根据 “拨皮法”，一层一层分析可知，最后 x=13，y=4。32.设在窗体上有 1个名称为 Combo1的组合框,含有 5个项目,要删除最后一项,正确的语句是【 】（分数：70.00）A.Comb01.Remove ltem Comb01.TextB.Comb01.Removeltem 4 C.Comb01.Remove ltem Comb01.List CountD.Comb01.Remove ltem 5解析：本题考查了组合框的知识。其中且合框的 list属性用来列出表项的内容,也可以改变数且中的已有的值。组合框中列表项的排列是从 0开始,最后一项的索引值应为 ListCount-l,所
42、以,本题共有 5个选项,最后一项的索引值应该是 4。33.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：70.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模块和标准模块文件D.只保存工程文件解析：由于应用程序中包括一个窗体模块和一个标准模块，所以保存的时候这两个模块肯定要保存，而工 程文件是这两个模块的容器，也需要保存。34.单击一次命令按钮后，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim m As Integer，I A
43、s Integer，x(10) As Integer For I=0 To 4：x(I)=I+1：Next I For I=1 TO 2：Call Prioc(x)：Next I For I=0 TO 3：Print x(I)；：Next I End Sub Private Sub Prioc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I2 End Sub （分数：70.00）A.3 4 7 5B.3 5 7 4 C.1 2 3 4D.1 2 3 5解析：数组也可以作为函数或过程的参数，使用方
44、法是直接使用数组名加括号也可以直接使用数组名，例如 Proc(x)和 Proc(x( )都正确。35.用什么语句可以选择指定的表项或取消已选择的表项?（分数：70.00）A.January 10，1979B.#January 10，1997# C.“January 10，1997“D. t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function （分数：70.00）A.t=18B.t=24 C.t=30D.t=32解析：程序
45、开始调用循环语句对数组 b( )赋值，b(j)=j，且数组 b的上下界分别为 1和 4；接着将数组b( )作为对象，调用 Tax过程，在 Tax过程中，定义了两个变量 t即 i，i 作为 For循环的循环变量，初始值为 2，终值为数组 b的上界；循环体为“t=t * a(i)”，即将 b(i)的值乘以 t，然后在赋给 t，当循环结束后，程序返回的就是数组 b中除第一个元素以外所有元素值的乘积，此题的结果为 234=24，故输出结果为 t=24。44.下面语句正确的是（ ）。（分数：70.00）A.10，00936B.10，009360C.10，0093D.010，009360 解析：该字符串中
46、包含的字符是/t(跳格符)、/“ (双引号)、/065 (ASCII 值为八进制 065，也即十进制为 51的字符)、/xff(ASCII 值为十六进制 ff，也即十进制为 255的字符)、/n(换行符)。45.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox(“Enter data：“) b(3 - k) =a(k + 1) Next k Print b(k) （分数：70.00）A.2 B.4C.6D.0解析：此程序段开始声明了两个整型数组
47、 a和 b，其长度均为 4。 程序通过 ForNext语句为其赋值，a(k+1)=Val(InputBox(“Enter data:“)，b (3-k)=a(k+1)。 当 k=0时，输入 2，a(1)=b(3)=2 当 k=1时，输入 4，a(2)=b(2)=4 当 k=2时，输入 4，a(3)=b(1)=6 当 k=3时，中断循环，执行Print语句，即要求输出 b(k)的值，而 k的当前值为 3，即 要输出的值是 b(3)的值为 2。 46.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Comma
48、nd1_Click() Dim intNum As Integer intNum=InputBox(“请输入：“) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If XA.0B.5 C.15D.无任何输出解析：单击窗体在释放鼠标时，将会触发 Form_MouseUp 事件，将 Flag 值置 True，从而允许输出。在 Command1 的 Click 事件中，通过输入框输入 5，并在窗体上输出 f(5)，函数 f 的作用是，如果自变量 x47.假定建立了一个名为 Command1的命令按钮数组，则以下说法中错误的是_。 （分数：70.00）A.数组中每个命令按钮的名称（Name 属性）均为 Command1B.数组中每个命令按钮的标题（Capt
