【计算机类职业资格】国家二级VB机试（选择题）-试卷10及答案解析.doc

《【计算机类职业资格】国家二级VB机试（选择题）-试卷10及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】国家二级VB机试（选择题）-试卷10及答案解析.doc（14页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级 VB 机试（选择题）-试卷 10 及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是( )。（分数：2.00）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构2.下列叙述中正确的是( )。（分数：2.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对3.一棵二叉树共有 25 个结点，其中 5 个是叶子结点，则度为 1 的结点数为( )。（分数：2.00）A.1

2、6B.10C.6D.44.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。（分数：2.00）A.外模式B.内模式C.概念模式D.逻辑模式5.软件生命周期是指( )。（分数：2.00）A.软件产品从提出、实现、使用维护到停止使用退役的过程B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维护过程6.面向对象方法中，继承是指( )。（分数：2.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制7.负责数据库中查询操作的数据库语言是( )。（分数：2.00）A.数据定义语言B.数据管理

3、语言C.数据操纵语言D.数据控制语言8.一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。（分数：2.00）A.11 联系B.1m 联系C.m1 联系D.mn 联系9.有三个关系 R，S 和 T 如下：则由关系 R 和 S 得到关系 T 的操作是( )。 （分数：2.00）A.自然连接B.交C.投影D.并10.下列选项中属于面向对象设计方法主要特征的是( )。（分数：2.00）A.继承B.自顶向下C.模块化D.逐步求精11.以下变量名中合法的是( )。（分数：2.00）A.x2B.12abcC.sum_totalD.print12.已知 a6，b15，c23，

4、则语句 Print Sgn(ab Mod 6c/a)& ab 的输出结果为( )。（分数：2.00）A.6B.16C.31D.12113.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置14.设 a2， b3， c4， d5， 下列表达式的值是( )。 （分数：2.00）A.TrueB.FalseC.1D.115.如下关于

5、变体类型变量的叙述中，错误的是( )。（分数：2.00）A.变体类型数组中只能存放同类型数据B.使用 Array 初始化的数组变量，必须是 Variant 类型C.没有声明而直接使用的变量其默认类型均是 VariantD.在同一程序中，变体类型的变量可以被多次赋以不同类型的数据16.满足下列条件之一的年份是闰年：1)年份能被 4 整除但不能被 100 整除 2)年份能被 400 整除若 y 代表年份，下面判断闰年的正确表达式是( )。（分数：2.00）A.y Mod 4 And y Mod 100 Or y Mod 400B.y Mod 40 Or y Mod 1000 And(y Mod 4

6、0 Or y Mod 4000)D.y Mod 40 And y Mod 10010 Then Exit For Next Text1.TextStr(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.2B.3C.4D.534.设有如下的程序段：n0For i1 To 3 For j1 To i For kj To 3nn1 Next k Next jNext i 执行上面的程序段后，n 的值为( )。（分数：2.00）A.3B.21C.9D.1435.Private Function f(y As Integer) fy * yEnd Func

7、tion 运行上述程序，如下叙述中正确的是( )。（分数：2.00）A.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 1036.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1.Text；End Sub 运行程序，并在文本框中输入“123“，则在窗体上的输出结果为( )。（分数：2.00）A.123B.112C.12123D.11212337

8、.设有以下程序：Private Sub Form_Click() x50 For i1 To 4 yInputBox(“请输入一个整数“) yVal(y) If y Mod 50 Then aay xy Else aax End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为( )。（分数：2.00）A.100B.50C.120D.7038.设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String * 10 TelNum As String * 20End Typ

9、e 在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程Command1_Click 时，在顺序文件 Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是( )。（分数：2.00）A.Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Write #1， B.Name， B.TelNum Close #1 End SubB.Private

10、Sub Command1_Click() Dim B As Books Open “Person.txt“ For Input As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Print #1， B.Name， B.TelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Write

11、#1， B Close #1 End SubD.Private Sub Command1_Click() Open “Person.txt“ For Input As #1 NameInputBox(“输入姓名“) TelNumInputBox(“输入电话号码“) Print #1， Name， TelNum Close #1 End Sub39.设工程中有 2 个窗体：Form1、Form2，Form1 为启动窗体。Form2 中有菜单，其结构如表。要求在程序运行时，在 Form1 的文本框 Text1 中输入口令并按回车键(回车键的 ASCII 码为 13)后，隐藏 Form1，显示For

12、m2。若口令为“Teacher“，所有菜单都可见；否则看不到“成绩录入“菜单项。为此，某人在 Form1 窗体文件中编写如下程序： （分数：2.00）A.把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中B.把 Form1.Hide、Form2.Show 两行移到 2 个 End If 之间C.把 If KeyAscii13 Then 改为 If KeyAscii“Teacher“ ThenD.把 2 个 Form2.input.Visible 中的“Form2.“删去40.在设窗体上有一个通用对话框控件 CD1，希望在执行下面程序时，打开如图所示的文件对话框：Priva

13、te Sub Command1_Click() CD1.DialogTitle“打开文件“ CD1.InitDir“C：“ CD1.Filter“所有文件|*.*|Word 文档|*.doc|文本文件|*.txt“ CD1.FileName“ CD1.Action1 If CD1.FileName“Then Print“未打开文件“ Else Print“要打开文件“& CD1.FileName End IfEnd Sub （分数：2.00）A.把 CD1.Action1 改为 CD1.Action2B.把“CD1.Filter“后面字符串中的“所有文件“改为“文本文件“C.在语句 CD1.A

14、ction1 的前面添加：CD1.FilterIndex3D.把 CD1.FileName“ 改为 CD1.FileName“文本文件“国家二级 VB 机试（选择题）-试卷 10 答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是( )。（分数：2.00）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构 C.循环链表是非线性结构D.双向链表是非线性结构解析：解析：线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B)正确。所以有一个以上根结点的数据结构

15、一定是非线性结构，所以 A)错误。循环链表和双向链表都是线性结构的数据结构。2.下列叙述中正确的是( )。（分数：2.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对 解析：解析：算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以 A)错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。3.一棵二叉树共有 25 个结点，其中 5 个是叶子结点，则度为 1 的结点数为( )。（分数：2.00）A.16 B.1

16、0C.6D.4解析：解析：根据二叉树的性质 3：在任意一棵二叉树中，度为 0 的叶子结点总是比度为 2 的结点多一个，所以本题中度为 2 的结点是 514 个，所以度为 1 的结点的个数是 255416 个。4.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。（分数：2.00）A.外模式B.内模式 C.概念模式D.逻辑模式解析：解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物

17、理存取方法，所以选择 B。5.软件生命周期是指( )。（分数：2.00）A.软件产品从提出、实现、使用维护到停止使用退役的过程 B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维护过程解析：解析：通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为软件生命周期。也就是说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。6.面向对象方法中，继承是指( )。（分数：2.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制 解析：解析：继承是面向对象的方法的一个

18、主要特征，是使用已有的类的定义作为基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。7.负责数据库中查询操作的数据库语言是( )。（分数：2.00）A.数据定义语言B.数据管理语言C.数据操纵语言 D.数据控制语言解析：解析：数据定义语言：负责数据的模式定义与数据的物理存取构建；数据操纵语言：负责数据的操纵，包括查询及增、删、改等操作；数据控制语言：负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。8.一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。（分数：2.

19、00）A.11 联系B.1m 联系C.m1 联系D.mn 联系 解析：解析：因为一个教师可讲授多门课程，而一门课程又能由多个老师讲授，所以它们之间是多对多的关系，可以表示为 mn。9.有三个关系 R，S 和 T 如下：则由关系 R 和 S 得到关系 T 的操作是( )。 （分数：2.00）A.自然连接 B.交C.投影D.并解析：解析：自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T 中元组可以判断 R 和 S 做的是自然连接操作。10.下列选项中属于面向对象设计方法主要特征的是( )。（分数：2.00）A.继承 B.自

20、顶向下C.模块化D.逐步求精解析：解析：面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。11.以下变量名中合法的是( )。（分数：2.00）A.x2B.12abcC.sum_total D.print解析：解析：根据 VB 中变量名的命名规则，变量 x2 中有减号，不合法；变量 12abc 是以数字开头，不合法；变量 print 是 VB 的保留字，不能作变量名，也不合法。sum_total 是符合命名规则，是合法的。故选 C。12.已知 a6，b15，c23，则语句 Print Sgn(ab Mod 6c/a)& ab 的输出结果为( )。（分数：2.00）A.

21、6B.16C.31D.121 解析：解析：Print 语句表达式中按运算符的优先级从高到低：Mod(& 顺序计算。计算过程：Sgn(615 Mod 623)& 615(Sgn(635)& 21(Sgn(4)& 21(1& 21(“121“。故选项 D 正确。 说明：字符串连接符& 两边的操作数不管是字符型还是数值型，系统首先要将其转换为字符型，然后进行连接。13.以下叙述中错误的是( )。（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width

22、)和高度(Height)属性 D.Visual Basic 中控件的某些属性只能在运行时设置解析：解析：VB 工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控件 Timer、直线控件Line 就没有。故 C 选项错误。14.设 a2， b3， c4， d5， 下列表达式的值是( )。 （分数：2.00）A.TrueB.False C.1D.1解析：解析：根据运算符的优先级顺序，先计算算术运算符，结果是 23 And 45 Or 44 ；再计算关系运算符，结果为 False And True Or False ；And 优先级高于 Or 优先级，先计算 And，再计算Or，最后结果是 F

23、alse。故 B 选项正确。15.如下关于变体类型变量的叙述中，错误的是( )。（分数：2.00）A.变体类型数组中只能存放同类型数据 B.使用 Array 初始化的数组变量，必须是 Variant 类型C.没有声明而直接使用的变量其默认类型均是 VariantD.在同一程序中，变体类型的变量可以被多次赋以不同类型的数据解析：解析：变体型变量能够存储所有系统定义类型的数据。所以变体类型数组中可以存放相同类型或不同类型的数据。故选项 A 错误。16.满足下列条件之一的年份是闰年：1)年份能被 4 整除但不能被 100 整除 2)年份能被 400 整除若 y 代表年份，下面判断闰年的正确表达式是(

24、 )。（分数：2.00）A.y Mod 4 And y Mod 100 Or y Mod 400B.y Mod 40 Or y Mod 1000 And(y Mod 40 Or y Mod 4000)D.y Mod 40 And y Mod 1000 。 第二个条件是能被 400 整除，所以是 y Mod 4000 。 满足其中任何一个条件就行，两个条件之间是或者关系，所以用 Or 运算符。 综合一下，故 D 选项正确。17.现有如下语句： xIIf(a50， Int(a/3)， a Mod 2)当 a52 时，x 的值是( )。（分数：2.00）A.0B.1C.17 D.18解析：解析：首先

25、计算 Int(a/3)即 Int(52/3)Int(17)17 ,52 MOD 2 结果为 0。 再计算IIf(5250， 17， 0),5250 结果为 True，所以 IIF 函数返回 17，则 x 值为 17，故选 C。18.设有如下数组定义语句：Dim a(1 To 4， 3)As Integer 以下叙述中正确的是( )。（分数：2.00）A.a 数组有 18 个数组元素B.a 数组有 20 个数组元素C.a 数组有 24 个数组元素 D.语法有错解析：解析：19.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Label1 的标签。程序运行后，如果在文本框中输入信息，则

26、立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。（分数：2.00）A.Private Sub Label1_Click() Label1.CaptionText1.Text End SubB.Private Sub Label1_Change() Label1.CaptionText1.Text End SubC.Private Sub Text1_Click() Label1.CaptionText1.Text End SubD.Private Sub Text1_Change() Label1.CaptionText1.Text End Sub 解析：解析：题意是在文本

27、框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1 的事件，要在文本框 Text1 的事件过程中写代码，因此排除 A、B 选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Text1 的 Change 事件过程写代码。故 D 选项正确。20.对窗体上名称为 Command1 的命令按钮，编写如下事件过程：Private Sub Command1_Click() Move 200， 200End Sub 程序运行时，单击命令按钮，则产生的操作是( )。（分数：2.00）A.窗体左上角移动到距屏幕左边界、上边界各 200 的位置 B.窗体左上角移动到距屏幕右边界、

28、上边界各 200 的位置C.窗体由当前位置向左、向上各移动 200D.窗体由当前位置向右、向下各移动 200解析：解析：Move 方法是窗体的移动方法，其中 200,200 是窗体左上角的坐标(X，Y)。坐标系是以屏幕左上角为原点，向右为 X 轴正方向，向下为 Y 轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200 的位置。故 A 选项正确。21.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load() Show Text1.Text“ Text2.Text“ Text1.SetFocusEnd SubPr

29、ivate Sub Text1_Change() Text2.TextMid(Text1.Text， 6)End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是( )。（分数：2.00）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析：程序运行后，在文本框 Text1 中输入字符后，触发它的 Change 事件，通过中部截取函数Mid 把文本框 Text1 中的内容从第 6 个字符B开始截取后面的字符，得到“Beijing“字符串，然后把截取的字符串在 Text2 中显示出来。故 C

30、选项正确。22.在窗体上画一个水平滚动条，其属性值满足 MinA.增加一个 SmallChange 量 B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个 LargeChange 量解析：解析：当水平滚动条的属性值 Min23.在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。 （分数：2.00）A.针对此菜单进行操作，单击“斜体“菜单项时，将执行它的鼠标单击事件过程B.针对此菜单进行操作，单击“下划线“ 菜单项时，“被去掉C.针对此菜单进行操作，单击“退出“菜单项时，不能执行对应的单击事件过程D.针对此菜单进行操作，单击“编

31、辑“菜单项时，打开下拉菜单，但不执行相应的单击事件过程 解析：解析：菜单项中不管是主菜单还是子菜单，单击某个菜单项，都会执行它们相应的单击事件过程。故 D 选项叙述错误。24.以下关于通用对话框的叙述中，错误的是( )。（分数：2.00）A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic 的标准控件 C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框解析：解析：通用对话框是一个 ActiveX 控件，不是标准控件，故 B 选项错误。25.窗体上有一个名称为 CD1 的通用对话框，一个名

32、称为 Command1 的命令按钮，相应的事件过程如下：Private Sub Command1_Click() CD1.Filter“All File|*.*|Text File|*.txt|PPT|*.ppt“ CD1.FilterIndex2 CD1.InitDir“C：“ CD1.FileName“default“ CD1.ShowSaveEnd Sub关于上述过程，以下叙述中正确的是( )。（分数：2.00）A.默认过滤器为“*.ppt“B.指定的初始目录为“C：“ C.打开的文件对话框的标题为“default“D.上面事件过程实现保存文件的操作解析：解析：通用对话框的 Filter

33、Index 属性为 1 时表示默认过滤器为第 1 个文件类型，为 2 时表示为第2 个文件类型。InitDir 属性值指定通用对话框的初始目录。FileName 属性表示对话框中默认的文件名。ShowSave 方法表示打开另存为对话框，执行保存文件的操作。26.以下关于窗体的叙述中，错误的是( )。（分数：2.00）A.Hide 方法能隐藏窗体，但窗体仍在内存中B.使用 Show 方法显示窗体时，一定触发 Load 事件 C.移动或放大窗体时，会触发 Paint 事件D.双击窗体时，会触发 DblClick 事件解析：解析：窗体的 Load 事件是把窗体装入工作区的事件，即装入内存，然后窗体才

34、显示出来，使用Hide 方法可以使窗体隐藏，但窗体仍在内存中，使用 Show 方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint 事件。双击窗体时会触发窗体的 DblClick 事件。27.以下关于图片框控件的说法中，错误的是( )。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.图片框控件中的图形可以在程序运行过程中被清除C.图片框控件中可以放置其他控件D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：解析：可以通过 Print 方法在图片框中输出文件，图片框中的图形可以在程序运行过程中通过载入空文件的方法清除，

35、图片框控件可以作为父控件，即可以放置其他控件，Stretch 属性用来自动调整图片框中图形内容的大小。28.为了清除列表框中指定的项目，应使用的方法是( )。（分数：2.00）A.ClsB.ClearC.RemoveD.RemoveItem 解析：解析：清除列表框中的指定内容要使用 RemoveItem 方法，格式为：RemoveItem(索引值)，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear 方法。29.定时器的 Interval 属性的值是一个整数，它表示的是( )。（分数：2.00）A.毫秒数 B.秒数C.分钟数D.小时数解析：解析：In

36、terval 的属性值是以毫秒计，所以是毫秒数。故选 A。30.阅读程序：Private Sub Form_Click() a0 For j1 To 15 aaj Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.105B.1C.120D.15 解析：解析：31.为计算 122 2 2 3 2 4 2 10 的值，并把结果显示在文本框 Text1 中，若编写如下事件过程： Private Sub Command1 Click() Dim a&，s&，k& s1 a2 For k2 To 10 aa*2 ssa Next k T

37、ext1.Texts End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。（分数：2.00）A.把 s1 改为 s0B.把 For k2 To 10 改为 For k1 To 10C.交换语句 ssa 和 aa * 2 的顺序D.把 For k2 To 10 改为 For k1 To 10、交换语句 ssa 和 aa * 2 的顺序 解析：解析：程序应该计算的是 2 的 0 次方到 2 的 10 次方的和，程序少计算了 2 的 1 次方，应该先累加，再执行 aa*2，并且将 For k2 to 10 改为 For k1 to 10 ，这样最后一次循环 2

38、的 10 次方的值能正确累加，然后循环结束。因此答案为 D。32.标准模块中有如下程序代码：Public x As Integer，y As IntegerSub var_pub() x10y20End Sub 在窗体上有 1 个命令按钮，并有如下事件过程：Private Sub Command1_Click() Dim x As Integer Call var_pub xx100 yy100 Print x；yEnd Sub 运行程序后单击命令按钮，窗体上显示的是( )。（分数：2.00）A.100 100B.100 120 C.110 100D.110 120解析：解析：在标准模块中定义

39、的使用 Public 定义的变量是全局变量，全局变量可以在工程的每个模块、每个过程中使用。如果在过程中有与全局变量同名的过程变量则优先使用过程变量。在命令按钮事件中定义了局部变量 x，与全局变量同名，因此在此事件中使用局部变量，而变量 y 在此过程中没有定义，则仍使用全局变量。因此输出时 x 值为 100，y 值为 120。33.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer， n As Integer For i0 To 50 ii3 nn1

40、 If i10 Then Exit For Next Text1.TextStr(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.2B.3 C.4D.5解析：解析：程序中 For 循环的结束有两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量 i 的值被修改：ii3，因此，每次循环开始时 i 的取值为0,4,8，i 为 8 时执行 ii311，nn13，这时 i 的值大于 10，退出 For 循环，因此 For 循环执行了 3 次，即 n 的值为 3。所以在文本框中会显示 3。34.设有如下的程序段：n

41、0For i1 To 3 For j1 To i For kj To 3nn1 Next k Next jNext i 执行上面的程序段后，n 的值为( )。（分数：2.00）A.3B.21C.9D.14 解析：解析：程序是三层的 For 循环，内层的循环次数由外一层的循环变量的值决定。因此程序执行过程如下： i1 时，第二层循环执行 1 次，第三层循环执行 3 次，n3 i2 时，第二层循环执行 2 次，第三层循环执行 3 次2 次，n3328 i3 时，第二层循环执行 3 次，第三层循环执行 3 次2 次1 次，n832114 因此答案为 D。35.Private Function f(y

42、 As Integer) fy * yEnd Function 运行上述程序，如下叙述中正确的是( )。（分数：2.00）A.程序运行出错，x 变量的类型与函数参数的类型不符 B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 10解析：解析：变量 x 在按钮单击事件过程中没有定义，因此系统自动将它定义为 Variant 类型，由于过程中参数类型为 Integer，所以程序运行时会提示“ByRef 参数类型不符“错误。A 选项正确。只在按钮事件中加上 Dim x as Integer 就可以解决问题，或者 f 过程中的 y as integer 改为 ByVa

43、l y as integer 也可以解决。36.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1.Text；End Sub 运行程序，并在文本框中输入“123“，则在窗体上的输出结果为( )。（分数：2.00）A.123B.112C.12123D.112123 解析：解析：KeyUp 事件是在松开按钮时发生。按下 1 松开时，文本框中显示 1，执行 KeyUp 事件过程，在窗体上显示文本框内容，即 1。按下 2 松开时，文本框中

44、显示 12，执行 KeyUp 事件过程，在窗体上 1 后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3 松开时，文本框中显示 123，执行 KeyUp 事件过程，在窗体上 112 后面接着显示文本框的内容，即在窗体上显示为 112123。37.设有以下程序：Private Sub Form_Click() x50 For i1 To 4 yInputBox(“请输入一个整数“) yVal(y) If y Mod 50 Then aay xy Else aax End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、

45、46，输出结果为( )。（分数：2.00）A.100 B.50C.120D.70解析：解析：程序的作用是输入的数如果是 5 的倍数就累加，如果不是就每次加 50 或与上次是 5 的倍数的那个数相累加。因此最终 a 的值是 15153535100。38.设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String * 10 TelNum As String * 20End Type 在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程Command1_Click 时，在顺序文件 Person.txt 中写入一条 Books 类型的记录。

46、下列能够完成该操作的事件过程是( )。（分数：2.00）A.Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Write #1， B.Name， B.TelNum Close #1 End Sub B.Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Input As #1 B.NameInputBox(“输

47、入姓名“) B.TelNumInputBox(“输入电话号码“) Print #1， B.Name， B.TelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books Open “Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Write #1， B Close #1 End SubD.Private Sub Command1_Click() Open “Person.txt“ For Input As #1

48、NameInputBox(“输入姓名“) TelNumInputBox(“输入电话号码“) Print #1， Name， TelNum Close #1 End Sub解析：解析：数据文件的写操作分为 3 步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为：Open 文件名 For Output As #文件号。因此 B、C 选项排除，只看 A、D选项。 写入顺序文件 Print #语句格式为：Print #文件号，变量名，变量名，Write 语句的的格式与Print 语句一样：Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名.成员名，Books 类型变量 B 成员 Name 和 TelNum 赋值和引用应该是B.Name、B.TelNum，因此 A 选项正确。39.设工程中有 2 个窗体：Form1、Form2，Form1 为启动窗体。Form2 中有菜单，其结构如表。要求在程序运行时，在 Form1 的文本框 Text1 中输入口令并按回车键(回车键的 ASCII 码为 13)后，隐藏 Form1，显示Form2。若口令为“Teacher“，所有菜单都可见；否则看不到“成绩录入“菜单项。为此，某人在 Form1 窗体文件中编写如下程序：