1、二级 VISUAL+BASIC-66及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.循环队列是队列的一种顺序存储结构B.循环队列是队列的一种链式存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构2.写了叙述中正确的是_。（分数：2.50）A.栈是一种先进先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非线性结构D.以上三种说法都不对3.一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为_。（分数：2.50）A.4B.6C.10D.164.在下列模式中，能够给
2、出数据库物理存储结构与物理存取方法的是_。（分数：2.50）A.内模式B.外模式C.概念模式D.逻辑模式5.在满足实体完整性约束的条件下_。（分数：2.50）A.一个关系中可以没有候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中应该有一个或多个候选关键字6.有三个关系 R、S 和 T如下： （分数：2.50）A.自然连接B并C差D交7.软件生命周期中的活动不包括_。（分数：2.50）A.软件维护B.市场调研C.软件测试D.需求分析8.下面不属于需求分析阶段任务的是_。（分数：2.50）A.确定软件系统的功能需求B.确定软件系统的性能需求C.制定软件集
3、成测试计划D.需求规格说明书评审9.在黑盒测试方法中，设计测试用例的主要根据是_。（分数：2.50）A.程序外部功能B.程序内部逻辑C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是_。（分数：2.50）A.系统结构图B.程序流程图C.PAD图D.数据流图(DFD 图)11.以下合法的 VB变量名是_。（分数：2.50）A.caseB.name10C.t-nameD.x*y12.设 x是小于 10的非负数。对此陈述，以下正确的 VB表达式是_。（分数：2.50）A.Ox10B.0=x10C.x=0 And x10D.x=0 Or x=1013.以下关于窗体的叙述中，错误的是_。（分
4、数：2.50）A.窗体的 Name属性用于标识一个窗体B.运行程序时，改变窗体大小，能够触发窗体的 Resize事件C.窗体的 Enabled属性为 False时，不能响应单击窗体的事件D.程序运行期间，可以改变 Name属性值14.下面定义窗体级变量 a的语句中错误的是_。（分数：2.50）A.Dim a%B.Private a%C.Private a AS IntegerD.Static a%15.表达式 Int(Rnd(0)*50)所产生的随机数范围是_。（分数：2.50）A.(0，50)B.(1，50)C.(0，49)D.(1，49)16.设 x=5，执行语句 Print x=x+10
5、，窗体上显示的是_。（分数：2.50）A.15B.5C.TrueD.False17.设有如下数组声明语句： Dim arr(-2 To 2,0 To 3)As Integer 该数组所包含的数组元素个数是_。（分数：2.50）A.20B.16C.15D.1218.现有由多个单选按钮构成的控件数组，用于区别该空间数组中各控件的属性是_。（分数：2.50）A.NameB.IndexC.CaptionD.Value19.设有分段函数： （分数：2.50）A.Select Case xCase Is0y=5Case Is=5, Is0y=2*xCase Elsey=x*x+1End SelectB.I
6、f x0 Theny=5ElseIf x=5 Theny=x*x+1Elsey=x*x+1End IfC.y=IIf(x0,5,IIf(x=5,2*x,x*x+1)D.If x0 Then y=5If x=5 And x=0 Then y=2*xIf x5 Then y=x*x+120.设程序中有如下语句： x=InputBox(“输入“,“数据“,100) Print x 运行程序，执行上述语句，输入 5并单击输入对话框上的“取消”按钮，则窗体上输出_。（分数：2.50）A.0B.5C.100D.空白21.现有如下一段程序： Option Base 1 Private Sub Command
7、1_Click() Dim a a=Array(3,5,7,9) x=1 For i=4 To 1 Step-1 s=s+a(i)*x x=x*10 Next Print s End Sub 执行程序，单击 Command1命令按钮，执行上述事件过程，输出结果是_。（分数：2.50）A.9753B.3579C.35D.7922.设有一个命令按钮 Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1_Click() Static x As Integer x=f(x+5) Cls Print x End Sub Private Function f(x
8、 As Integer)As Integer f=x+x End Function 连续单击命令按钮 3次，第 3次单击命令按钮后，窗体上显示的计算结果是_。（分数：2.50）A.10B.30C.60D.7023.以下关于菜单设计的叙述中错误的是_。（分数：2.50）A.各菜单项可以构成控件数组B.每个菜单项可以看成是一个控件C.设计菜单时，菜单项的“有效”未选，表示该菜单项不显示D.菜单项只响应单击事件24.以下关于多窗体的叙述中，正确的是_。（分数：2.50）A.任何时刻，只有一个当前窗体B.向一个工程添加多个窗体，存盘后生成一个窗体文件C.打开一个窗体时，其他窗体自动关闭D.只有第一个建
9、立的窗体才是启动窗体25.窗体上有一个名称为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮，并有如下事件过程： Private Sub Command1_Click() CommonDialog1.DefaultExt=“doc“ CommonDialog1.FileName=“VB.txt“ CommonDialog1.Filter=“All(*.*)|*.*|Word|*.Doc|“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowSave End Sub 运行上述程序，如下叙述中正确的是_。（分数：2.50）A
10、.打开的对话框中文件“保存类型”框中显示“All(*.*)”B.实现保存文件的操作，文件名是 VB.txtC.DefaultExt属性与 FileName属性所指明的文件类型不一致，程序出错D.对话框的 Filter属性没有指出 txt类型，程序运行出错26.设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer Call p(a) 如下过程定义中，正确的是_。（分数：2.50）A.Private Sub p(a As Integer)B.Private Sub p(a()As Integer)C.Private Sub p(a(10)As Integer)D.Pri
11、vate Sub p(a(n)As Integer)27.若要获得组合框中输入的数据，可使用的属性是_。（分数：2.50）A.ListIndexB.CaptionC.TextD.List28.在窗体上画两个名称分别为 Text1、Text2 的文本框，Text1 的 Text属性为“DataBase”，如下图所示。 （分数：2.50）A.DataAB.DataBC.aDataD.abase29.有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr=Array(10,35,28,90,54,68,72,90) For
12、Each a in arr If a50 Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是_。（分数：2.50）A.数组定义语句不对，应改为 Dim arrB.没有指明 For循环的终值C.应在 For语句之前增加 Sum=0D.Next a应改为 Next30.要求产生 10个随机整数，存放在数组 arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10
13、)As Integer For i=1 To 10 “循环 1 arr(i)=Int(Rnd*100) Print arr(i); Next x=Input(“输入 1-10的一个整数:“) For i=x+1 To 10 “循环 2 arr(i-1)=arr(i) Next For i=1 To 10 “循环 3 Print arr(i); Next End Sub 程序运行后发现显示的结果不正确，应该进行的修改是_。（分数：2.50）A.产生随机数时不使用 Int函数B.循环体 2的初值应为 i=xC.数组定义改为 Dim a(11) As IntegerD.循环 3的循环终值应改为 93
14、1.使用驱动器列表框 Drive1、目录列表框 Dir1、文件列表框 File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是_。（分数：2.50）A.Dir1.Path=Drive1.PathB.File1.Path=Dir1.PathC.File1.Path=Drive1.PathD.Drive1.Drive=Dir1.Path32.以下关于弹出式菜单的叙述中，错误的是_。（分数：2.50）A.一个窗体只能有一个弹出式菜单B.弹出式菜单在菜单编辑器中建立C.弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为 FalseD.弹出式菜单通过窗体的 PopupMenu方法显示3
15、3.有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.X=“ABCD“ b.Y=12345 Print a End Sub 程序运行时出现错误。错误的原因是_。（分数：2.50）A.Type定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print不对34.在窗体上画两个名称分别为 Text1、Text2 的文本框，一个名称为 Label1的标签，窗体外观如图 1所示。要求当改变任一个文本框的内容，就会将该文本框的
16、内容显示在标签中，如图 2所示。 （分数：2.50）A.ShowText过程的参数类型可以是 ControlB.ShowText过程的参数类型可以是 VariantC.两个过程调用语句有错，应分别改为 Call ShowText(Text1.Text)、Call ShowText(Text2.Text)D.ShowText过程中的 T是控件变量35.设有打开文件的语句如下： Open “test.dat“ For Random As #1 要求把变量 a中的数据保存到该文件中，应该使用的语句是_。（分数：2.50）A.Input #1,aB.Write #1,aC.Put #1,aD.Get
17、#1,a36.要使一个文本框可以显示多行文本，应设置为 True的属性是_。（分数：2.50）A.EnabledB.MultiLineC.MasLenfthD.Width37.在窗体上有一个名为 Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是_。（分数：2.50）A.Form_KeyPress()B.Text1_LostFocus()C.Tex1_Click()D.Tex1_Change()38.设在窗体上有一个名称为 Commanel1的命令按钮和一个名称为 Text1的文本框。要求单击 Command按钮时可把光标移到文本框中。下面正确的事件过程是_。（
18、分数：2.50）A.Private Sub Command1_Click()Text1.GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd SubD.Private SubCommand1.SetFocusEnd Sub39.以下叙述中错误的是_。（分数：2.50）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程40.在 Visual Basic中，表达式
19、3*2Mod 3的值是_。（分数：2.50）A.1B.0C.3D.出现错误提示二级 VISUAL+BASIC-66答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.循环队列是队列的一种顺序存储结构 B.循环队列是队列的一种链式存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构解析：解析 队列是一种“先进先出”的特殊线性表。队列的顺序存储结构一般采用循环队列的形式。循环队列是将队列存储空间的最后一个位置绕到第一个位置，形成逻辑上的环状空间。2.写了叙述中正确的是_。（分数：2.50）A.栈是一
20、种先进先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非线性结构D.以上三种说法都不对 解析：解析 栈和队列都是线性结构。栈是一种“先进后出”的特殊线性表，而队列则是一种“先进先出”的特殊线性表。3.一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为_。（分数：2.50）A.4B.6C.10D.16 解析：解析 在二叉树中，叶子结点数总比度为 2的结点数多 1，所以度为 2的结点有 5个，则度为 1的结点数为 2 5 -5-4=16。4.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是_。（分数：2.50）A.内模式 B.外模式C.概念模式D.逻辑模式解
21、析：解析 数据库系统的三级模式为：内模式、外模式和慨念模式。内模式给出了数据库物理存储结构与物理存取方法，如数据存储的文件结构、索引等；外模式是用户的数据视图，它是由概念模式推导而出；概念模式描述数据库系统中全局数据逻辑结构，不涉及具体的硬件环境和平台。5.在满足实体完整性约束的条件下_。（分数：2.50）A.一个关系中可以没有候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中应该有一个或多个候选关键字 解析：解析 候选关键字可以唯一标识一个元组，二维表可以有若干个候选关键字，可以从候选关键字中选取一个作为主键。实体完整性约束要求关系中的主键中属性值不
22、能为空值。6.有三个关系 R、S 和 T如下： （分数：2.50）A.自然连接B并C差 D交解析：解析 关系 T由属于 R但不属于 S的元组组成，因此有 T=R-S。7.软件生命周期中的活动不包括_。（分数：2.50）A.软件维护B.市场调研 C.软件测试D.需求分析解析：解析 软件生命周期的主要活动阶段包括：可行性研究和计划制定、需求分析、软件设计、软件实现、软件测试、软件运行和维护，不包括市场调研。8.下面不属于需求分析阶段任务的是_。（分数：2.50）A.确定软件系统的功能需求B.确定软件系统的性能需求C.制定软件集成测试计划 D.需求规格说明书评审解析：解析 需求分析阶段的工作包括需求
23、获取、需求分析、编写需求规格说明书和需求评审。集成测试依据的是概要设计说明书，所涉及的内容包括：软件单元的接口测试、全局数据结构测试、边界条件和非法输入的测试。制定软件集成测试计划是概要设计阶段的任务。9.在黑盒测试方法中，设计测试用例的主要根据是_。（分数：2.50）A.程序外部功能 B.程序内部逻辑C.程序数据结构D.程序流程图解析：解析 黑盒测试完全不考虑程序内部逻辑结构和内部特性，把程序看作是一个不能打开的黑盒子，只依据程序的需求和姚格说明，对软件的功能进行测试和验证。10.在软件设计中不使用的工具是_。（分数：2.50）A.系统结构图B.程序流程图C.PAD图D.数据流图(DFD 图
24、) 解析：解析 软件设计的工具有：图形工具(程序流程图、N-S、PAD、HIPO)，表格工具(判定表)，语言工具(PDL)。DFD 是结构化分析工具。11.以下合法的 VB变量名是_。（分数：2.50）A.caseB.name10 C.t-nameD.x*y解析：解析 变量名只能由字母、数字和下划线组成，显然选项 C、D 中的变量名是非法的；变量名不能用 VisualBasic的保留字，而 case是多分支控制结构的关键字，不能作为变量名。12.设 x是小于 10的非负数。对此陈述，以下正确的 VB表达式是_。（分数：2.50）A.Ox10B.0=x10C.x=0 And x10 D.x=0
25、Or x=10解析：解析 数学中，“x 是小于 10的非负数”可以表示为 0x10，但在 VB中则不能这样写。0x10 也就是说 x大于等于 0，且 x小于 10，“且”在 VB中用“And”表示，VB 中大于等于用“=”表示。13.以下关于窗体的叙述中，错误的是_。（分数：2.50）A.窗体的 Name属性用于标识一个窗体B.运行程序时，改变窗体大小，能够触发窗体的 Resize事件C.窗体的 Enabled属性为 False时，不能响应单击窗体的事件D.程序运行期间，可以改变 Name属性值 解析：解析 Name 属性用来定义窗体的名称，是窗体的唯一标识。Name 属性是只读属性，在运行时
26、，窗体的名称不能改变。14.下面定义窗体级变量 a的语句中错误的是_。（分数：2.50）A.Dim a%B.Private a%C.Private a AS IntegerD.Static a% 解析：解析 Static 用于在过程中定义静态变量和数组变量，不能定义窗体级变量。15.表达式 Int(Rnd(0)*50)所产生的随机数范围是_。（分数：2.50）A.(0，50)B.(1，50)C.(0，49) D.(1，49)解析：解析 Rnd(0)用于产生一个位于0，1)的随机数，Rnd(0)*50 的范围则为0，50)，包含 0，不包含 50，取整后的范围为 049。16.设 x=5，执行语
27、句 Print x=x+10，窗体上显示的是_。（分数：2.50）A.15B.5C.TrueD.False 解析：解析 Print x=x+10 语句中的 x=x+10为判断关系，x 不等于 x+10，结果为 False。注意，IF、While、Print 语句后的“=”应作为比较运算符。17.设有如下数组声明语句： Dim arr(-2 To 2,0 To 3)As Integer 该数组所包含的数组元素个数是_。（分数：2.50）A.20 B.16C.15D.12解析：解析 这里定义了一个二维数组，第一维的下标值在-22 之间(-2、-1、0、1、2)，第二维的下标值存 03 之间(0、1
28、、2、3)。该数组共 5行 4列，包含 20个元素。18.现有由多个单选按钮构成的控件数组，用于区别该空间数组中各控件的属性是_。（分数：2.50）A.NameB.Index C.CaptionD.Value解析：解析 控件数组共用一个相同的控件名字。控件数组中的每个元素都有一个与之关联的下标，或称索引(Index)，每个控件的 Index值是唯一的，因此可由 Index属性来区别数组中的控件。19.设有分段函数： （分数：2.50）A.Select Case xCase Is0y=5Case Is=5, Is0y=2*xCase Elsey=x*x+1End Select B.If x0 T
29、heny=5ElseIf x=5 Theny=x*x+1Elsey=x*x+1End IfC.y=IIf(x0,5,IIf(x=5,2*x,x*x+1)D.If x0 Then y=5If x=5 And x=0 Then y=2*xIf x5 Then y=x*x+1解析：解析 A 选项中的第二个 Case语句中的“Is=5，Is0”丢掉了 x=0的情况，正确的语句应为“Case Is=5，Is=0”。20.设程序中有如下语句： x=InputBox(“输入“,“数据“,100) Print x 运行程序，执行上述语句，输入 5并单击输入对话框上的“取消”按钮，则窗体上输出_。（分数：2.5
30、0）A.0B.5C.100D.空白 解析：解析 不管输入了什么数值，只要单击了“取消”按钮，则当前的输入作废，此时返回一个空字符串，因此窗体上输出空白。21.现有如下一段程序： Option Base 1 Private Sub Command1_Click() Dim a a=Array(3,5,7,9) x=1 For i=4 To 1 Step-1 s=s+a(i)*x x=x*10 Next Print s End Sub 执行程序，单击 Command1命令按钮，执行上述事件过程，输出结果是_。（分数：2.50）A.9753B.3579 C.35D.79解析：解析 Option Ba
31、se 1 语句用来指定数组的下标从 1开始。语句 a=Array(3,5,7,9)则定义了一个数组，并用 3、5、7、9 对数组 a进行了初始化，有 a(1)=3，a(2)=5，a(3)=7，a(4)=9。For 语句求得s=a(4)+a(3)*10+a(2)*10*10+a(1)*10*10*10=3579。22.设有一个命令按钮 Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1_Click() Static x As Integer x=f(x+5) Cls Print x End Sub Private Function f(x As In
32、teger)As Integer f=x+x End Function 连续单击命令按钮 3次，第 3次单击命令按钮后，窗体上显示的计算结果是_。（分数：2.50）A.10B.30C.60D.70 解析：解析 由于 x是静态变量，每次引用该变量之后，即使退出该变量所在的过程，其值仍会继续保留。本题中，第一次单击命令按钮时，x 的初值为 0，调用 f(5)，返回 10，x=10；第二次单击命令按钮时，x=10，调用 f(15)，返回 30，x=30；第三次单击命令按钮时，x=30，调用 f(35)，返回 70，x=70。23.以下关于菜单设计的叙述中错误的是_。（分数：2.50）A.各菜单项可以
33、构成控件数组B.每个菜单项可以看成是一个控件C.设计菜单时，菜单项的“有效”未选，表示该菜单项不显示 D.菜单项只响应单击事件解析：解析 设计菜单时，菜单项的“有效”未选，表示该菜单项可见但不可用。24.以下关于多窗体的叙述中，正确的是_。（分数：2.50）A.任何时刻，只有一个当前窗体 B.向一个工程添加多个窗体，存盘后生成一个窗体文件C.打开一个窗体时，其他窗体自动关闭D.只有第一个建立的窗体才是启动窗体解析：解析 在多窗体工程保存时，每个窗体都要作为一个文件单独保存，选项 B是错误的。当打开一个窗体时，其他窗体并没有关闭，只是处于不活动状态，选项 C错误。系统默认将第一个建立的窗体作为启
34、动窗体。也可以通过“工程”菜单中的“工程属性”命令指定其他窗体为启动窗体，因此并不是只有第一个建立的窗体可以作为启动窗体，选项 D错误。25.窗体上有一个名称为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮，并有如下事件过程： Private Sub Command1_Click() CommonDialog1.DefaultExt=“doc“ CommonDialog1.FileName=“VB.txt“ CommonDialog1.Filter=“All(*.*)|*.*|Word|*.Doc|“ CommonDialog1.FilterIndex=1 C
35、ommonDialog1.ShowSave End Sub 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.打开的对话框中文件“保存类型”框中显示“All(*.*)” B.实现保存文件的操作，文件名是 VB.txtC.DefaultExt属性与 FileName属性所指明的文件类型不一致，程序出错D.对话框的 Filter属性没有指出 txt类型，程序运行出错解析：解析 FilterIndex 属性值为 1，即默认显示的保存类型为 Filter属性设置的值的第一个，显然为“All(*.*)”。26.设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer Ca
36、ll p(a) 如下过程定义中，正确的是_。（分数：2.50）A.Private Sub p(a As Integer)B.Private Sub p(a()As Integer) C.Private Sub p(a(10)As Integer)D.Private Sub p(a(n)As Integer)解析：解析 用数组作为过程的参数时，要在数组名后加上一对括号，同时略去数组的上下界，即不需要知名元素的个数。27.若要获得组合框中输入的数据，可使用的属性是_。（分数：2.50）A.ListIndexB.CaptionC.Text D.List解析：解析 组合框的 Text属性值是用户所选择
37、的项目的文本，或者直接从编辑区输入的文本。组合框没有 Caption属性；List 属性列出了表项的内容；ListIndex 属性值是已选中的表项的位置。28.在窗体上画两个名称分别为 Text1、Text2 的文本框，Text1 的 Text属性为“DataBase”，如下图所示。 （分数：2.50）A.DataAB.DataBC.aData D.abase解析：解析 Mid(String s，int m，int n)函数从字符串 s的第 m个字符开始，向后截取 n个字符。在文本框 Text1中原有字符之前输入 a，则 Text1.text=“aDataBase“，触发 Text1_Chan
38、ge事件，Text2.Text=Mid(“aDataBase“，1，5)=“aData”。29.有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr=Array(10,35,28,90,54,68,72,90) For Each a in arr If a50 Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是_。（分数：2.50）A.数组定义语句不对，应改为 Dim arr B.没有指明 For循环的终值C.应在 For语句之前增加 Sum=0D.Next
39、a应改为 Next解析：解析 利用 Array函数为数组元素赋值时，需要先定义数组变量，然后将数据集读入到数组变量中。数组变量虽然作为数组使用，但它是作为变量定义的，既没有维数，也没有上下界。Array 函数的使用方法为： 数组变量名=Array(数组元素值) 数组元素值是需要赋给数组各元素的值，各值之间用逗号隔开。例如： Dim Num As Variant Num=Array(1,2,3)30.要求产生 10个随机整数，存放在数组 arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序： Option Base 1
40、Private Sub Command1_Click() Dim arr(10)As Integer For i=1 To 10 “循环 1 arr(i)=Int(Rnd*100) Print arr(i); Next x=Input(“输入 1-10的一个整数:“) For i=x+1 To 10 “循环 2 arr(i-1)=arr(i) Next For i=1 To 10 “循环 3 Print arr(i); Next End Sub 程序运行后发现显示的结果不正确，应该进行的修改是_。（分数：2.50）A.产生随机数时不使用 Int函数B.循环体 2的初值应为 i=xC.数组定义改
41、为 Dim a(11) As IntegerD.循环 3的循环终值应改为 9 解析：解析 删除一个数据后，数组中实际有效的值只剩 9个。如果要删除的是第 10个元素中的数组，则循环 2不会执行，循环 3中依然会输出第 10个元素；如果删除的第 x(x10)个元素中的数据，则第 x个元素中的数据用地 x+1个元素中的数据替换，依此类椎，第 9个元素中的数据用地 10个元素中的数据替换，最后一个数据时重复的。通过上述分析可见，最后一个元素中的数据是多余的，不能输出，循环 3的循环终值应该为 9。31.使用驱动器列表框 Drive1、目录列表框 Dir1、文件列表框 File1时，需要设置控件的同步
42、，以下能够正确设置两个控件同步的命令是_。（分数：2.50）A.Dir1.Path=Drive1.PathB.File1.Path=Dir1.Path C.File1.Path=Drive1.PathD.Drive1.Drive=Dir1.Path解析：解析 目录列表框中显示当前驱动器上的目录。可通过驱动器列表框的 Drive属性来设置当前驱动器，此时会引发 Change事件，此时只要把 Drive1.Drive的属性值赋给 Dir1.Path，就可以产生同步效果。目录列表框中 Path属性的改变也会产生 Change事件，所以在 Dir1答案 Change事件过程中，把Dir1.Path赋给
43、 Fik1.Path，就可以产生同步效果。32.以下关于弹出式菜单的叙述中，错误的是_。（分数：2.50）A.一个窗体只能有一个弹出式菜单 B.弹出式菜单在菜单编辑器中建立C.弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为 FalseD.弹出式菜单通过窗体的 PopupMenu方法显示解析：解析 窗体上的任意一个控件均可以弹出不同的弹出式菜单，并不是只能有一个。33.有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.X=“ABCD“
44、b.Y=12345 Print a End Sub 程序运行时出现错误。错误的原因是_。（分数：2.50）A.Type定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print不对 解析：解析 Type 语句定义的是记录类型，它由两个元素组成。a 是记录类型变量，不能直接输出，需要指明输出的是哪一个属性，正确的输出方法应是：Print a.x，a.Y。34.在窗体上画两个名称分别为 Text1、Text2 的文本框，一个名称为 Label1的标签，窗体外观如图 1所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图 2所示。 （分数：2.50）
45、A.ShowText过程的参数类型可以是 ControlB.ShowText过程的参数类型可以是 VariantC.两个过程调用语句有错，应分别改为 Call ShowText(Text1.Text)、Call ShowText(Text2.Text) D.ShowText过程中的 T是控件变量解析：解析 VB 允许将窗体和控件作为通用过程的参数。文本框也是控件，因此可以向过程传递。本题中是将文本框型作为参数，因此实参应为文本框对象而不是对象的某个属性值，程序代码中的两个过程调用语句是正确的。35.设有打开文件的语句如下： Open “test.dat“ For Random As #1 要求
46、把变量 a中的数据保存到该文件中，应该使用的语句是_。（分数：2.50）A.Input #1,aB.Write #1,aC.Put #1,a D.Get #1,a解析：解析 由 Open语句中的 Random关键字可知，打开的是随机文件。随机文件的写操作是通过 Put语句实现的。36.要使一个文本框可以显示多行文本，应设置为 True的属性是_。（分数：2.50）A.EnabledB.MultiLine C.MasLenfthD.Width解析：解析 要想在文本框中显示多行文本，则必须将 MultiLine属性值设置为“True”，故选 B。37.在窗体上有一个名为 Text1的文本框。当光标
47、在文本框中时，如果按下字母键“A”，则被调用的事件过程是_。（分数：2.50）A.Form_KeyPress()B.Text1_LostFocus()C.Tex1_Click()D.Tex1_Change() 解析：解析 当光标在文本框中时，按下字母键【A】，此时文本框的内容发生了改变，因而触发了文本框的 Change事件，则 D是正确的。38.设在窗体上有一个名称为 Commanel1的命令按钮和一个名称为 Text1的文本框。要求单击 Command按钮时可把光标移到文本框中。下面正确的事件过程是_。（分数：2.50）A.Private Sub Command1_Click()Text1.
48、GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd Sub D.Private SubCommand1.SetFocusEnd Sub解析：解析 B 和 D选项的语法格式是错误的。而 GotFocus是文本框的事件，不能写成Text1.GotFocus，因此 A是错误的。文本框得到光标的方法是 SetFocus，只有 C是正确的，故选 C。39.以下叙述中错误的是_。（分数：2.50）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程 解析：解析 标准模块是应用程序内其他模块访
