[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc

上传人:medalangle361 文档编号:504111 上传时间:2018-11-29 格式:DOC 页数:29 大小:554KB
下载 相关 举报
[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc_第1页
第1页 / 共29页
[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc_第2页
第2页 / 共29页
[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc_第3页
第3页 / 共29页
[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc_第4页
第4页 / 共29页
[计算机类试卷]国家二级(VB)机试模拟试卷153及答案与解析.doc_第5页
第5页 / 共29页
点击查看更多>>
资源描述

1、国家二级( VB)机试模拟试卷 153及答案与解析 一、选择题 1 下列关于栈叙述正确的是 ( )。 ( A)栈顶元素最先能被删除 ( B)栈顶元素最后才能被删除 ( C)栈底元素永远不能被删除 ( D)栈底元素最先被删除 2 下列叙述中正确的是 ( )。 ( A)在栈中,栈中元素随栈底指针与栈顶指针的变化而动态变化 ( B)在栈中,栈顶指针不变,栈中元素随栈底指针的变化而动态变化 ( C)在栈中,栈底指针不变,栈中元素随栈顶指针的变化而动态变化 ( D)以上说法都不正确 3 某二叉树共有 7个结点,其中叶子结点只有 1个,则该二叉树的深度为 (假设根结点在第 1层 )( )。 ( A) 3

2、( B) 4 ( C) 6 ( D) 7 4 软件按功能可以分为应用软件、系统软件和支撑软件 (或工具软件 )。下面属于应用软件的是 ( )。 ( A)学生成绩管理系统 ( B) C语言编译程序 ( C) UNIX操作系统 ( D)数据库管理系统 5 结构化程序所要求的基本结构不包括 ( )。 ( A)顺序结构 ( B) GOTO跳转 ( C)选择 (分支 )结构 ( D)重复 (循环 )结构 6 下面描述中错误 的是 ( )。 ( A)系统总体结构图支持软件系统的详细设计 ( B)软件设计是将软件需求转换为软件表示的过程 ( C)数据结构与数据库设计是软件设计的任务之一 ( D) PAD图是

3、软件详细设计的表示工具 7 负责数据库中查询操作的数据库语言是 ( )。 ( A)数据定义语言 ( B)数据管理语言 ( C)数据操纵语言 ( D)数据控制语言 8 一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是 ( )。 ( A) 1: 1联系 ( B) 1: m联系 ( C) m: 1联系 ( D) m: n联系 9 有三个关系 R、 S和 T如下: 则由关系 R和 S得到关系 T的操作是 ( )。 ( A)自然连接 ( B)并 ( C)交 ( D)差 10 定义无符号整数类为 UInt,下面可以作为类 UInt实例化值的是 ( )。 ( A)一 369 (

4、B) 369 ( C) 0 369 ( D)整数集合 1, 2, 3, 4, 5 11 VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是 ( )。 ( A) vbp ( B) bas ( C) vbw ( D) frm 12 能够产生 1到 50之间 (含 1和 50)随机整数的表达式是 ( )。 ( A) Int(Rnd*51) ( B) Int(Rnd(50)+1) ( C) Int(Rnd*50) ( D) Int(Rnd*50+1) 13 要求如果 x被 7除余 2,则输出 x的值,下列语句中不能实现此功能的语句是( )。 ( A) If x mo

5、d 7=2 Then Print x ( B) If x一 (x 7)*7=2 Then Print x ( C) If x一 (x 7)*7=2 Then Print x ( D) If x一 Int(x 7)*7=2 Then Print x 14 表达式 Sgn(0 25)的值是 ( )。 ( A)一 1 ( B) 0 ( C) 1 ( D) 0 5 15 如下关于变体类型变量的叙述中,错误的是 ( )。 ( A)变体类型数组中只能存放同类型数据 ( B)使用 Array初始化的数组变量,必须是 Variant类型 ( C)没有声明而直接使用的变量其默认类型均是 Variant ( D)

6、在同一程序中,变体类型的变量可以被多次赋以不同类型的数据 16 满足下列条件之一的年份是闰年 : 1)年份能被 4整除但不能被 100整除 2)年份能被 400整除 若 y代表年份,下面判断闰年的正确表达式是 ( )。 ( A) y Mod 4 And y Mod 100 Or y Mod 400 ( B) y Mod 4=0 Or y Mod 1000 And(y Mod 4=0 Or y Mod 400=0) ( D) y Mod 4=0 And y Mod 1000, x+1, IIf(x0, x一 1, x+1) ( C) y=IIf(x0, x+1, IIf(xb a=ab Wend

7、 fun=a End Funotion 在调试时发现函数是错误的。为使函数能产生正确的返回值,应做的修改是( )。 ( A)把 a=ab改为 a=ba ( B)把 a=ab改为 a=a b ( C)把 While ab改为 While ab改为 While a=b 34 在窗体上画 1个命令按钮和 1个文本框,其名称分别为 Command1和 Text1,再编写如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAseii As Integer) If Chr(KeyAseii)0时, x+1,否则 x一 1,所以应该是IIf(x0, x+

8、1, x一 1)。 C选项中,内层的 IIf函数中,当 x、 和键等,其他键 KeyPress事件不能识别。 D选项错误原因:窗体也有 KeyPresss事件。故 C选项正确。 30 【正确答案】 C 【试题解析】 程序中 flag被定义为 Static变量,它的值只在第一次执行事件过程时为 0,以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值,之后它的值是 1或一 1。文本框控件的 ForeColor属性表示文本框中文字的颜色 ,计时器控件的 Interval属性为 5000,即计时器间隔为 5秒钟一次,每次调用就会交替改变文本框中文字的颜色。因此 C选项正确。 31 【正确答案

9、】 D 【试题解析】 程序应该计算的是 2的 0次方到 2的 10次方的和,程序少计算了 2的 1次方,应该先累加,再执行 a=a*2,并且将 For k=2 to 10改为 For k=1 to 10,这样最后一次循还 2至的 10次方的值正确累加,然后循环结束。因此答案为D。 32 【正确答案】 B 【试题解析】 在标准模块中定义的使用 Public定义的变量是全 局变量,全局变量可以在工程的每个模块、每个过程中使用。如果在过程中有与全局变量同名的过程变量则优先使用过程变量。在命令按钮事件中定义了局部变量 x,与全局变量同名,因此在此事件中使用局部变量,而变量 y在此过程中没有定义,则仍使

10、用全局变量。因此输出时 x值为 100, y值为 120。 33 【正确答案】 D 【试题解析】 程序中没有考虑余数为 0的情况,即,条件中应该有 a=b,则a=ab,这样才能正确得到余数 0。因此程序中应该修改 While的条件 ab为a=b。 34 【正确答案】 D 【试题解 析】 题目中程序是将 ss字符串进行反向排列,并放到 m中去。其中 Number空格后的 100被当成字符串来处理,最后结果是将 “Number 100”反向排列,并通过 ucase()函数将所有字母转换成大写,得到 001 REBMuN。 35 【正确答案】 B 【试题解析】 在计时器事件中不应再设置步长为 100

11、的 For循环,应该把 For循环去掉,只留下循环体的语句,计时器每秒激发一次,每次判断小球是否移到Line2处,不到就改变自己的 kft值即继续移动。因此 B正确。 36 【正确答案】 A 【试 题解析】 错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量 k改成从 List1 ListCout一 1到 0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为 A。 37 【正确答案】 D 【试题解析】 本题考查的是动态变量与静态变量。原来的程序中无法使变量 n的值保持到下一次的使用,只有 D选项符合要

12、求,将 n定义为静态局部变量,在程序执行到该对象的声明处时被首次初始化,每次执行后 n的值都会被保存到内存中,所以答案 D是正确的;而 A选项只是对 n赋初值,所以 A选项没有意义; B选项和 C选项都没有达到改进的目的。 38 【正确答案】 A 【试题解析】 在 Do循环语句中程序大致执行过程如下: s=103, a=9;s=103+93, a=8; s=103+93+83 a=7; ,依此类推,因此正确的答案为A。 39 【正确答案】 C 【试题解析】 在通用对话框控件中, Filter属性指定了在对话框中显示的文件类型,该属性可以设置多个文件类型,每种文件类型由文件描述和文件通配符与扩展

13、名组成,并由 “I”隔开 。 FilterIndex属性用来指定默认的过滤器, Filter属性中设置了多个过滤器后,每个过滤器的对应的值按从左到右顺序是 l、 2 ,FilterIndex属性默认为 1,即第一个过滤器,因此程序中会显示 C:下的所有文件。应该在通话框打开之前 (CD1 Action=1之前 )添加 CD1 FilterIndex=3,即使默认过滤器为第 3个过滤器。 40 【正确答案】 B 【试题解析】 原程序的执行流程为,当按下一个键后,激活 KeyPress事件,事件中隐藏 Form1和显示 From2的语句与判断是否按了 回车键的语句是顺序的,即不论按了什么键,都会执

14、行隐藏 Form1和显示 From2的语句。这两句应该上移到第二个 EndIf前面,也就是放在判断是否按了回车键的 If语句块中。因此 B选项正确。 二、基本操作题 41 【正确答案】 (1)步骤 1:建立界面,并设置控件的属性。程序中用到的控件及属性见表 1。 步骤 2:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤 1:建立界面,并设置控件的属性。程序中用到的控件及属性见表 2。步骤 2:编写程序代码。 参考答案 Private Sub Form_Load() Timer1 Enabled=True End Sub Private Sub Timer1_Timer() Shapel

15、 Top=Shapel Top+100 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 【试题解析】 (1)根据题意,首先通过滚动条的 Name、 Max、 Min、 Value、Width、 Hei曲 t属性设置滚动条的属性值,然后通过标签的 Name、 Caption属性设置标签的名称和标题。 (2)在 Form Load事件过程中, Timed的 Enabled属性设置 为 True,计时器变为可用,在 Timer1 Timer计时器的事件过程,通过形状控件的 Top值每隔 0 5秒加 100,实现每隔 0 5秒形状控件向下移动 100。 三、简单应用题 42 【正

16、确答案】 (1)步骤 1:打开本题项目工程。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考答案 Privale Sub Command1_Click() If List1 ListCount=0 Then Exit Sub End If If List1 ListIndex=一 1 Then List1 ListIndex=0 Else If List1 List1ndexList1 ListCount一 1 Then List1 List1ndex=List1 ListIndex+1 Else List1 List Index=0 End If End

17、If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤 1:打开本题 项目工程。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 参考答案 Dim t As Integer Private Sub Command1_Click() t=60*Val(Text1 Text) Timer1 Enaabled=True End Sub Private Sub Timer1_Timer() Dim m s As Integer If t =0 Then Timer1 Enabled=False MsgBox“时间到 !“ Else t=t-

18、t m=Int(t 5D) s=t Mod 60 Labe14 Caption=“剩余 “&n1&“分 “&s&“秒 “ End If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 【试题解析】 (1)本题考查 List控件的属性使用, ListCount为列表框中列表的项数; ListIndex为被选中的列表项的索引号, ListIndex值为一 1表 示没有列表项被选中; ListCount为列表项的总个数,最后一项表示为 List1 ListCount1。程序中使用三个 if语句,判断三种不同情况。 (2)本题考查计时器控件的使用,窗体上计时器控件的 Enable

19、d属性初始值被设置为 False,所以需要在单击按钮时,将 Enabled属性设置为 True,全局变量 t是输入的时间 (单位为:分 )转换为秒数,在 Timer事件代码中,判断 t是否小于等于0,如果小于等于 0,则弹出提示框,否则将 t减 1,将剩余秒数 t换算成剩余分钟数 m和剩余秒数 s。 四、综合应用题 43 【正确答案】 步骤 1:打开本题工程文件。 步骤 2:分析并编写程序代码。 程序提供代码 Private Function isprime(a As Integer)As Boolean Dim flag As Boolean flag=True b =2 Do While

20、b =Int(a 2)And flag If Int(a b )=a b Then flag=False Else b =b +1 End If Loop isprime=flag End Function 程序结束 参考答案 Private Sub Cl_Click() Dim i As Integer For i=17999 To 1 Step-1 If isprime(i) Then Text1=i Exit For End If Next End Sub Private Sub C2_Click() Open App Path&“ out5 txt“For Output As #1 Print #1, Text1 Text Close #1 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 【试题解析】 函数过程 isprime(a)的功能是通过 Do While语句、 H判断语句和Int函数,判断参数 a是否为素数,如果是素数,则函数返回 True,否则函数返回Fahe。在单击 “计算 ”按钮事件过程中,通过 For语句和调用函数过程 isprime(a),找出小于 18000的最大的素数,并将其显示在 Text1中;在单击 “存盘 ”按钮事件过程中,通过文件操作把 Text1中的计算结果存入考生文件夹下的 out5 txt文件中。

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试资料 > 职业资格

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1