[计算机类试卷]国家二级（VB）机试模拟试卷172及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 172及答案与解析 一、选择题 1 一个栈的初始状态为空。现将元素 1、 2、 3、 4、 5、 A、 B、 C、 D、 E依次入栈，然后再依次出栈，则元素出栈的顺序是 ( )。 （ A） 12345ABCDE （ B） EDCBA54321 （ C） ABCDE12345 （ D） 54321EDCBA 2 下列叙述中正确的是 ( )。 （ A）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 （ B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 （ C）在循环队 列中，只需要队尾指针就能反映队列中元素的动态变化情况 （ D）循环队列中

2、元素的个数是由队头指针和队尾指针共同决定 3 在长度为 n的有序线性表中进行二分查找，最坏情况下需要比较的次数是 ( )。 （ A） O(n) （ B） D(n2) （ C） O(log2n) （ D） o(nlog2n) 4 下列叙述中正确的是 ( )。 （ A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 （ B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 （ C）顺序存储结构能存储有序表 ，链式存储结构不能存储有序表 （ D）链式存储结构比顺序存储结构节省存储空间 5 数据流图中带有箭头的线段表示的是 ( )。 （ A）控制流 （ B）事件驱动 （

3、C）模块调用 （ D）数据流 6 在软件开发中，需求分析阶段可以使用的工具是 ( )。 （ A） NS图 （ B） DFD图 （ C） PAD图 （ D）程序流程图 7 在面向对象方法中，不属于 “对象 ”基本特点的是 ( )。 （ A）一致性 （ B）分类性 （ C）多态性 （ D）标识唯一性 8 一间宿舍可住多个学生，则实 体宿舍和学生之间的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 9 在数据管理技术发展的三个阶段中，数据共享最好的是 ( )。 （ A）人工管理阶段 （ B）文件系统阶段 （ C）数据库系统阶段 （ D）三个阶段相同 10 有三个关系

4、 R、 S和 T如下：由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）笛卡尔积 （ B）交 （ C）并 （ D）自然连接 11 以下不能输出 “Program”的语句是 ( )。 （ A） Print Mid(“VBProgram“， 3， 7) （ B） Print Right(“VBProgram“， 7) （ C） Print Mid(“VBProgram“， 3) （ D） Print Left(“VBProgram“， 7) 12 以下叙述中错误的是 ( )。 （ A）在通用过程中，多个形式参数之间可以用逗号作为分隔符 （ B）在 Print方法中，多个输出

5、项之间可以用逗号作为分隔符 （ C）在 Dim语句中，所定义的多个变量可以用逗号作为分隔符 （ D）当一行中有多个语句时，可以用逗号作为分隔符 13 设 a=4， b=5， c=6，执行语句 Print a“XYz“ （ B） VisualBasic“visualbasic“ （ C） the=“there“ （ D） Integer)&b$&Right$(a$， 12) 后，变量 c$的值为 ( )。 （ A） Visual BASIC Programming （ B） VISUAL C+Programming （ C） Visual C+Programming （ D） VISUAL BA

6、SIC Programming 21 设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是 ( )。 （ A） List1 List （ B） List1 ListIndex （ C） List1 Text （ D） List1 Index 22 在窗体上画一个文本框 (名称为 Text1)和一个标签 (名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是 ( )。 （ A） Private Sub Text1_Change() Label1 Caption=Str(Len(

7、Text1 Text) End Sub （ B） Private Sub Text1_Click() Label1 Caption=Str(Len(Text1 Text) End Sub （ C） Private Sub Text1_Change() Label1 Caption=Text1 Text End Sub （ D） Private Sub Label1_Change() Label1 Caption=Str(Len(Text1 Text) End sub 23 在窗体上画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “宋体 ”和“黑体 ”； 1个复选框 (

8、名称为 Check1，标题为 “粗体 ”)和 1个文本框 (名称为 Text1，Text属性为 “改变文字字体 ”)，窗体外观如图所示。程序运行后，要求 “宋体 ”单选按钮和 “粗体 ”复选框被选中，则以下能够实现上述操作的语句序列是 ( )。（ A） Option1 Value=False Check1 Value=True （ B） Option1 Value=True Check1 Value=0 （ C） Option2 Value=False Check1 Value=2 （ D） Option1 Value=True Check1 Value=1 24 以下说法中正确的是 ( )。

9、 （ A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程 （ B）因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程 （ C）若按下的键相同， KeyPress事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同 （ D）在 KeyPress事件过程中， KeyAscii参数可以省略 25 假定通过复制、粘贴操作建立了一个命令按钮数组 Command1，以下说法中错误的是 ( )。 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Command1 （ B）若未做修改，数组中每个命令按钮的大小都

10、一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属性值都相同 26 以下关于菜单的叙述中，错误的是 ( )。 （ A）当窗体为活动窗体时，用 Ctrl+E键可以打开菜单编辑器 （ B）把菜单项的 Enabled属性设置为 False，则可删除该菜单项 （ C）弹出式菜单在菜单编辑器中设计 （ D）程序运行时，利用控件数组可以实现菜单项的增加或减少 27 以下叙述中错误的是 ( )。 （ A）在程序运行时，通用对话框控件是不可见的 （ B）调用同一个通用对话框控件的不同方法 (如 ShowOpen或 ShowSave)可以打开不同的对话框窗

11、口 （ C）调用通用对话框控件的 ShowOpen方法能够直接打开在该 通用对话框中指定的文件 （ D）调用通用对话框控件的 ShowColor方法，可以打开颜色对话框窗口 28 下面控件中，没有 Caption属性的是 ( )。 （ A）复选框 （ B）单选按钮 （ C）组合框 （ D）框架 29 用来设置文字字体是否斜体的属性是 ( )。 （ A） FontUnderline （ B） FontBold （ C） FontSlope （ D） Fonthalic 30 窗体上有一个名称为 Timer1的计时器控件，一个名称为 Shape1的形状控件，其 Shape属性值为 3(Circle

12、)。编写程序如下： Private Sub Form_Load() Shape1 Top=0 Timer1 Interval=100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1 Top： Shape1 Top+100 x=x+1 If x Mod 10=0 Then Shape1 Top=0 End If End sub 以下关于上述程序的叙述中，错误的是 ( )。 （ A）每执行一次 Timer1_Timer事件过程， x的值都在原有基础上增加 1 （ B） Shape1每移动 10次回到起点，重新开始 （ C）

13、窗体上的 Shape1由下而上移动 （ D） Shape1每次移动 100 31 设有如下一段程序： Private Sub Command1_Click() Static a As Variant a： Array(“one“， “two“， “three“， “four“， “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 ( )。 （ A）变量声明语句有错，应改为 Static a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 fo

14、ur 32 求 1!+2!+10! 的程序如下： Private Function S(x As Integer) f=1 For i=1 To x f=f * i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 Next Print y End Sub 为实现功能要求，程序的横线处应该填入的内容是 ( )。 （ A） Call s(i) （ B） Call s （ C） y=y+s(i) （ D） y=y+S 33 窗体上有一 个由两个文本框组成的控

15、件数组，名称为 Text1，并有如下事件过程： Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1(1) FontSize=Text1(0) FontSize*2 Text1(1) Text=Text1(0) Text Case 1 Text1(0) FontSize=Text1(1) FontSize 2 TextI(0) Text=Text1(1) Text Case Else MsgBox“执行 Else分支 “ End Select End Sub 关于上述程序，以下叙述中错误的是 ( )。

16、 （ A） Index用于标识数组元素 （ B）本程序中 Case Else分支的语句永远不会被执行 （ C）向任何一个文本框输入字符，都会在另一个文本框中显示该字符 （ D）下标为 0的文本框中显示的字符尺寸将越来越小 34 设有如下程序： Option Base 1 Dim a(3， 4)As Integer， b(4， 3)As Integer Private Sub Command1_Click() 循环 1 For i=1 To 3 For j=1 To 4 b(j， i)=a(i， j) Next j Next i 循环 2 X=b(1， 1) For i=1 To 4 For j

17、=1 To 3 Print b(i， j)； If x“BASIC“Then Text1 Text=“ “ Text1 SetFocus End If End Sub程序运行时，在 Text1文本框中输入 “Basic”(如图所示 )，然后单击 Command1按钮，则产生的结果是 ( )。 （ A）文本框中无内容，焦点在文本框中 （ B）文本框中为 “Basic”，焦点在文本框中 （ C）文本框中为 “Basic”，焦点在按钮上 （ D）文本框中为 “Visual Basic”，焦点在按钮上 38 窗体上有一个名称为 Command1的命令按钮，其事件过程如下： Private Sub Co

18、mmand1_Click() X=“VisualBasicProgramming“ a=Right(x， 11) b=Mid(x， 7， 5) e=MsgBox(a， b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是 ( )。 （ A）信息框的标题是 Basic （ B）信息框中的提示信息是 Programming （ C） c的值是函数的返回值 （ D） MsgBox的使用格式有错 39 设工程文件包含两个窗体文件 Form1 frm、 Form2 frm及一个标 准模块文件Modulel bas。两个窗体上分别只有一个名称为 Command1的命令按钮。 Form1的代码如

19、下： Public x As Integer Private Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2 Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1 x， y End Sub Modulel的代码如下： Public y As Integer 运行以上程序，单击 Form1的命令按钮 Command1，则显示 Form2；再单击Form2上的命令按钮 Command1，则窗体上显示的是 ( )。 （ A） 1 5 （

20、B） 0 5 （ C） 0 0 （ D）程序有错 40 窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y a=InputBox(“) If y a 2=y a 2 Then y b=y a*y a Else y b=Fix(y a 2) End If Text1 Text=y b End Sub 对以上程序，下列叙述中错误的是 ( )。 （ A） x是用户定义的

21、类型 （ B） InputBox函数弹出的对话框中没有提示信息 （ C）若输入的是偶数， y b的值为该偶数的平方 （ D） Fix(y a 2)把 y a 2的小数部分四舍五入，转换为整数返回 二、基本操作题 41 (1)在名称为 Form1的窗体上画 1个名称为 Framel、标题为 “学位 ”的框架；框架内有 1个名称为 Option1的控件数组，该控件数组含有 4个标题分别为 “学士 ”、 “硕士 ”、 “博士 ”和 “其他 ”的单选按钮，它们的 Index属性分别为 0、 1、 2、 3，且标题为 “硕士 ”的单选按钮为选中状态。运 行后的窗体如下左图所示。 注意：存盘时必须存放在考

22、生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1、标题为 “练习 ”的窗体上，画 1个名称为 Imagel的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为 “风景 ”的图片文件。再画 2个名称分别为 Command1和 Command2，标题分别为 “加宽 ”和 “加高 ”的命令按钮。如下右图所示。 要求：编写两个按钮适当的事件过程，使得单击 “加宽 ”按钮时， Imagel的宽度增加 15；单击 “加高 ”按钮时， Imagel的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必

23、须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹中有一个工程文件 sjt3 vbp。运行程序时，先向文本框 Text1中输入一个不超过 10的正整数，然后选择 “N的阶乘 ”或 “(N+2)的阶乘 ”单选钮，即可进行计算，计算结果在文本框 Text2中显示，如图所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)在考生文件夹中有一个工程文件 sjt4 vbp。该程序的功

24、能是将文件 in4 txt中的文本读出并在文本框Text1中显示。输入一个英文字母到文本框 Text2中，然后单击 “统计 ”命令按钮，统计该字母 (大小写被认为是不同的字母 )在文本中出现的次数，统计结果在标签Label3中显示。 给出的窗体文件中已经有了全部控件，如图所示。程序不完整，要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改 程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，界面如图所示，其功能如下： 单击 “读数据 ”按钮，则把考生文件夹下文件 in5 dat中的 12组整

25、数 (其中每组含有 10个数，共计 120个整数 )读到数组 a中； 单击 “计算 ”按钮，则对每组数求平均值，并将所求各级数的平均值截尾取整后存入 s数组中； 单击 “显示 ”按钮，则将所求各组数的平均值显示在文本框架 Text1中； 单击 “存盘 ”按钮则把计算结果存盘。 在给出的窗体文件中 已经有了全部控件，且 “读数据 ”、 “显示 ”和 “存盘 ”按钮的Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程以实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。国家二级（ VB）机试模拟

26、试卷 172答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 栈是先进后出的原则组织数据，所以入栈最早的最后出栈，所以选择 B。 2 【正确答案】 D 【试题解析】 循环队列有队头和队尾两个指针，但是循环队列仍是线性结构的，所以 A错误；在循环队列中需要队头指针与队尾指针来共同反映队列中元素的动态变化情况，所以 B与 C错误。 3 【正确答案】 C 【试题解析】 当有序线性表为顺序存储时才能用二分法查找。可以证明的是对于长度为 n的有序线性表，在最坏情况下，二分法查找只需要比较 log2n次，而顺序查找需要比较 n次。 4 【正确答案】 A 【试题解析】 链式存储结构既可以针对线性结

27、构也可以针对非线性结构，所以 B与 C错误。链式存储结构中每个结点都由 数据域与指针域两部分组成，增加了存储空间，所以 D错误。 5 【正确答案】 D 【试题解析】 数据流图中带箭头的线段表示的是数据流，即沿箭头方向传送数据的通道，一般在旁边标注数据流名。 6 【正确答案】 B 【试题解析】 在需求分析阶段可以使用的工具有数据流图 (DFD图 )，数据字典(DD)，判定树与判定表，所以选择 B。 7 【正确答案】 A 【试题解析】 对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择 A。 8 【正确答案】 B 【试题 解析】 因为一间宿舍可以住多个学生即多个学生

28、住在一个宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。 9 【正确答案】 C 【试题解析】 数据管理发展至今已经历了三个阶段：人工管理阶段、文件系统阶段和数据库系统阶段。其中最后一个阶段结构简单，使用方便逻辑性强物理性少，在各方面的表现都最好，一直占据数据库领域的主导地位，所以选择 C。 10 【正确答案】 D 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重 复的属性列去掉，所以根据 T关系中的有序组可知 R与 S进行的是自然连接操作。 11 【正确答案】 D 【试题解析】 本题用到了字符串处理函数 Mi

29、d、 Right和 left函数。 中部截取函数 Mid(C， N1， N2)功能是从字符串 C中的 C1位置开始往后取N2个字符，如果省略 N2，默认从 C1位置取出所有字符。 右部截取函数 Right(C， N)，功能是取字符串 C右边 N个字符。 左部截取函数 Left(C， N)，功能是取字符串 C左边 N个字符。 根据以上函数用法，选项 A、 B、 C都能 输出 “Program”， D选项是从字符串的最左边开始取 7个字符，结果为 VBPmgr，不能输出 “Program”，故 D选项错误。 12 【正确答案】 D 【试题解析】 一般情况下，输入程序时要求一行只写一条语句。但语句行

30、较短时也可以将多个语句书写在同一行中，这时，语句之间使用冒号分隔。故 D选项错误。 13 【正确答案】 A 【试题解析】 Print语句中计算表达式的值，按运算符的优先级顺序，关系运算符 “Int”，返回 False。 选项 B中两个字符串不完全一样，有大写和小写的字符，不等。所以返回True。故 B选项正确。 20 【正确答案】 B 【试题解析】 UCase(Left(a$， 7)是从字符串 a的左边向右取出 7个字符，然后再全部转换为大写字母，结果是： “VISUAL “； Right$(a$， 12)是从字符串 a的右边向左取出 12个字符，结果为 “ Programming“， &是字

31、符串连接符，把“VISUAL Programming“连接在一起，合成字符串“VISUAL Programming“，并把它赋给字符串变量 c，所以字符串变量c的值就是合成的字符串。故 B选项正确。 21 【正确答案】 C 【试题解析】 List1的 List属性是设置或返回列表框中的列表项内容； ListIndex属性设置或返回当前选中的列表项的索引值； Index属性是用来区分列表框控件数组中各 List控件； Text属性设置或返回当前所选中列表项的文本内容。故选 C。 22 【正确答案】 A 【试题解析】 根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框

32、触发了某事件，排除 D选项；文本框中每输入一个字符，标签中立即就会发生变化，故是 Change事件，排除 B选项；标签中显示的是文本框中字符的个数，不是输入的内容，排除 C选项。故 A选项正确。 23 【正确答案】 D 【试题解析】 单选按钮控件的 Value属性值为 True表示被选中， False表示未被选中；复选框控件的 Value属性值为 0表示未选中， 1表示选中， 2表示禁止。本题中是单选 按钮和复选框都被选中，故 D选项正确。 24 【正确答案】 A 【试题解析】 B选项错误原因：窗体有自己的 KeyPress事件过程； C选项错误原因： KeyPress事件过程中的 KeyAs

33、cii参数返回按键的 ASCll码值，大小写字母返回值不同；而 KeyE)own事件过程中的 KeyCode参数返回的是按键代码，大小写字母返回值相同。故按下的键相同时， keyAscii和 KeyCode参数不一定返回相同值； D选项错误原因： KeyPress事件中的 KeyAscii参数不能省略。 A选项正确。 25 【正确答案】 D 【试题解析】 命令按钮控件数组中各控件用相同的名称和同 _Click事件过程，大小也一样，但是为了区分它们，各控件的 Index属性值是不同的。故 D选项错误。 26 【正确答案】 B 【试题解析】 当菜单项的 Enabed属性值设置为 False时，菜单

34、项只是变为无效项，不可用，不会删除该菜单项。故 B选项错误。 27 【正确答案】 C 【试题解析】 调用通用对话框的 ShowOpen方法，只是显示文件 “打开 ”对话框，如果 ShowOpen方法后面没有其 他处理文件的代码，就不能实现打开文件的功能。故选项 C错误。 28 【正确答案】 C 【试题解析】 Caption属性是设置或返回控件的标题。组合框没有 Caption属性。故选 C。 29 【正确答案】 D 【试题解析】 FontUnderline属性设置文字是否有下划线； FontBold属性是设置文字是否加粗； Fontltalic属性是设置文字是否斜体；没有 Fontslope属

35、性。故选D。 30 【正确答案】 C 【试题解析】 题目中变量 x定义为 static，即每次进入 Timer事件过程时， x都会保留上次的值，从而实现每执行一次 Timen_Timer事件过程 x的值都在原有基础上增加 1。程序中判断调用 Timer事件过程 10次后，重置 shapel的 top值为0，即回到起点。控件 shapel的 Top属性是距离窗体顶的位置，数值越入距离越远，囚此 shapel会由上向下移动。 31 【正确答案】 D 【试题解析】 题目中变量 a被定义为 Variant类型， Variant是一种特殊的数据类型，除了定长 string数据及用户定义类型外，可以包含任

36、何种类的数据。变量 a被赋值为字符串数组，数 组默认下标从 0开始，因此元素 a(3)的值为 “four”。 32 【正确答案】 C 【试题解析】 题目中过程 s的功能是实现一个数的阶乘，而题目是求 l到 10的阶乘的和，则程序空缺处应该是过程 s返回值的累加，因此就应该为 y=y+s(i)。 33 【正确答案】 D 【试题解析】 控件数组的 Index属性作为控件数组的下标，用于标识数组元素。题目中程序功能是当任一个文本框内容改变时设置第 2个文本框的字号是第 1个文本框字号的 2倍，同时两个文本框显示相同文字。假如用户没有使用控件数组的 Index属性的 默认值程序将执行到 Else分支。

37、 34 【正确答案】 B 【试题解析】 Dim用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行， x中保存的是数组 b元素中的最大值。 35 【正确答案】 A 【试题解析】 记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字 Type前可以有 Public(默认 )或 Private，而如果在窗体模块中定义，则必须在前面加上关键字 Private。 Open语句中使用 For Random表示文件以随机方式存取。 Put语句的语法为： Put#文 件号， 记录号 ，变量。其中 “变量 ”是除对象变量和数组变量外的任何变量。 36 【正确答案】 D 【试题解析】

38、程序是一个双层 For循环，外层循环变量的值决定内层 For循环的次数。 当 i=1时，内层循环 1次， s=1， p=1； 当 i=2时，内层循环 2次， s=1+1+2=4， p=1*4=4； 当 i=3时，内层循环 3次， s=4+1+2+3=10， p=4*10=40： 当 i=4时，内层循环 4次， s=10+1+2+3+4=20， p=40*20=800。 37 【正确答案】 A 【试题解析】 题目程序的功能为，当单击命令按钮时， Text1失去焦点，激发Text1的 LostFocus事件，在此事件中，程序判断文本框中字符串是否为“BASIC”，如果是则退出事件过程，继续执行命令

39、按钮的单击事件过程，文本框中显示 “VisualBasic”，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了 “Basic”与 “BASIC”不符，因此文本框置空，焦点回到文本框中。 38 【正确答案】 D 【试题解析】 Right(x， 11)是从字符串变量 x右边取 11个字符，即“Pmgramming”，这个字符串存入变量 a中。 Mid(x， 7， 5)是从字符串变量 x的第7个字符开始取 5个字符，即 “Basic，此字符串存入变量 b中。 MsgBox的格式为： MsgBox(Prompt， Button， Title)，参数中只

40、有 Pmmpt是必需的，如果省略 Button则显示一个确定按钮，因此题目显示的消息框有一个确定按钮，标题是“Basic”，信息是 “Programming”。 MsgBox的返回值是一个与所选按钮有关的整数。 39 【正确答案】 A 【试题解析】 在 Form1窗体模块中 x被定义为全局变量，这使得它的值可以在其他模块中通过 “过程名变量名 ”的形式被引用。而蛮幂 y存标准模块中被定义为全局变量，则它可以在工程的每个模块，每个过程中使用。因此程序运行时， x赋值为 1， y赋值为 5，它们的值都可以在 Form2中引用。 40 【正确答案】 D 【试题解析】 x是用户定义的一种变量类型，可以

41、使用它来声明变量。InputBox(“)函数的提示信息为 “，即为空，因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被 2整除和被 2除的值 是否相等来判定它是否为偶数，如果是那么 y b的值就是 y a的值的平方。 Fix函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五人，因此 D选项错。 二、基本操作题 41 【正确答案】 (1)步骤 1：新建一个窗体，在窗体上添加一个框架控件，并按照表 1 1设置控件的属性。 步骤 2：在建立好的框架控件上依次添加 4个单选按钮，并按照表 1 2设置控件属性。为了使 “硕士 ”单选按钮处于选中状态，需要将其的 value属性值

42、设置为True 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，并设置窗体的相关属性，如表 1 3所示。 步骤 2：在建立好的窗体上添加 个 Image控件，并按照表 1 4设置控件属性。步骤 3：向窗体上添加两个按钮控件，按钮名称分别为 Eommandl和 Command2，并按照表 1 5设置两个按钮控件的相关属性。 步骤 4：双击 “加宽 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Private Sub Command1_Click() Image1 Width=Image1 Width+15 End

43、 Sub 步骤 5：双击 “加高 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Private Sub Command2_Click() Image1 Height=Image1 Height+15 End Sub 步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)新建窗体，添加框架控件，在框架控件中依次添加四个单选按钮，并将四个单选按钮设置为控件数组，然后修改相关控件的属性，以完成题目所需要求。 (2)新建窗体，在窗体中添加一个 Image控件和两个 Command按钮控件，向Image控件中添加图片，并设置 stret

44、ch属性为 True，当单击 “加宽 ”按钮时，将Image控件的 width属性加 15，当单击 “加高 ”按钮时，将 Image控件的 Heigth属性加 15。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Option1_Click(Index As Integer) Dim n As Integer n=Val(Text1 Text) Select Case? Case 0 Text2 Text=f1(?) Case 1 Text2 Text=f1(?) End Select End Su

45、b Public Function f1(n As Integer)As Long Dim x As Long x=1 For i=1 To ? x=x*i Next ? =x End Function 程序结束 参考答案 第 1个 ?处填入： Index 第 2个 ?处填入： n 第 3个 ?处填入： n+2 第 4个 ?处填入： n 第 5个 ?处填入： n 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Open App Path&“ in4 txt“For Input As #1 Line Input #1 s Text1 Text=? Close #1 End Sub Private Sub Command l_Click() Dim n As integer