[计算机类试卷]2008年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc
《[计算机类试卷]2008年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]2008年4月国家二级(VisualBasic)笔试真题试卷及答案与解析.doc(24页珍藏版)》请在麦多课文档分享上搜索。
1、2008年 4月国家二级( VisualBasic)笔试真题试卷及答案与解析 1 程序流程图中带有箭头的线段表示的是 ( )。 ( A)图元关系 ( B)数据流 ( C)控制流 ( D)调用关系 2 结构化程序设计的基本原则不包括 ( )。 ( A)多态性 ( B)自顶向下 ( C)模块化 ( D)逐步求精 3 软件设计中模块划分应遵循的准则是 ( )。 ( A)低内聚低耦合 ( B)高内聚低耦合 ( C)低内聚高耦合 ( D)高内聚高耦合 4 在软件开发中,需求分析阶段产生的主要文档是 ( )。 ( A)可行性分析报告 ( B)软件需求规格说明书 ( C)概要设计说明书 ( D)集成测试计划
2、 5 算法的有穷性是指 ( )。 ( A)算法程序的运行时间是有限的 ( B)算法程序所处理的数据量是有限的 ( C)算法程序的长度是有限的 ( D)算法只能被有限的用户使用 6 对长度为 n的线性表排序,在最坏情况下,比较次数不是 n(n-1)/2的排序方法是( )。 ( A)快速排序 ( B)冒泡排序 ( C)直接插入排序 ( D)堆排序 7 下列关于栈的叙述正确的是 ( )。 ( A)栈按 “先 进先出 ”组织数据 ( B)栈按 “先进后出 ”组织数据 ( C)只能在栈底插入数据 ( D)不能删除数据 8 在数据库设计中,将 E-R图转换成关系数据模型的过程属于 ( )。 ( A)需求分
3、析阶段 ( B)概念设计阶段 ( C)逻辑设计阶段 ( D)物理设计阶段 9 有 3个关系 R、 S和 T如下: 由关系 R和 S通过运算得到关系 T,则所使用的运算为 ( )。 ( A)并 ( B)自然连接 ( C)笛卡尔积 ( D)交 10 设有表示学生选课的 3张表,学生 S(学号,姓名,性别,年龄,身份证号 ),课程 C(课号, 课名 ),选课 SC(学号,课号,成绩 ),则表 SC的关键字 (键或码 )为( )。 ( A)课号,成绩 ( B)学号,成绩 ( C)学号,课号 ( D)学号,姓名,成绩 11 下列叙述中错误的是 ( )。 ( A)标准模块文件的扩展名是 .bas ( B)
4、标准模块文件是纯代码文件 ( C)在标准模块中声明的全局变量可以在整个工程中使用 ( D)在标准模块中不能定义过程 12 在 Visual Basic中,表达式 3*25 Mod 3的值是 ( )。 ( A) 1 ( B) 0 ( C) 3 ( D)出现错误提示 13 下列选项中,不合法的 Visual Basic的变量名是 ( )。 ( A) a5b ( B) _xyz ( C) a b ( D) andif 14 下列数组定义语句中,错误的是 ( )。 ( A) Static a(10) As Integer ( B) Dim c(3, 1 To 4) ( C) Dim d(-10) (
5、D) Dim b(0 To 5, 1 To 3)As Integer 15 现有语句: y=IIf(x 0,x Mod 3,0) 设 x=10,则 y的值是 ( )。 ( A) 0 ( B) 1 ( C) 3 ( D)语句有错 16 为了使文本框同时具有垂直和水平滚动条,应先把 multiLine属性设置为True,然后再把 ScrollBars属性设置为 ( )。 ( A) 0 ( B) 1 ( C) 2 ( D) 3 17 文本框 Text1的 KeyDown事件过程如下: Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Int
6、eger) End Sub 其中参数KeyCode的值表示的是发生此事件时 ( )。 ( A)是否按下了 Alt键或 Ertl键 ( B)按下的是哪个数字键 ( C)所按的键盘键的键码 ( D)按下的是哪个鼠标键 18 窗体上有一个名称为 HScroll 1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 ( A) Private Sub HScroll 1_Change() Print HScroll1.Value End Sub ( B) Private Sub HScroll 1_Change() P
7、rint HScroll1.SmallChange End Sub ( C) Private Sub HScroll1 Scroll() Print HScroll1.Value End Sub ( D) Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub 19 若已把一个命令按钮的 Default属性设置为 True,则下列可导致按钮的 Click事件过程被调用的操作是 ( )。 ( A)用 鼠标右键单击此按钮 ( B)按键盘上的 Esc键 ( C)按键盘上的回车键 ( D)用鼠标右键双击此按钮 20 要使两个单选
8、按钮属于同一个框架,正确的操作是 ( )。 ( A)先画一个框架,再在框架中画两个单选按钮 ( B)先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 ( C)先画两个单选按钮,再用框架将单选按钮框起来 ( D)以上 3种方法都正确 21 能够存放组合框的所有项目内容的属性是 ( )。 ( A) Caption ( B) Text ( C) List ( D) Selected 22 设窗体上有一个标签 Label 1和一个计时器 Timer1, Timer1的 Interval属性被设置为 1000, Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统
9、当前时间。下列可以实现上述要求的事件过程是 ( )。 ( A) Private Sub Timer1_Timer() Labell.Caption=True End Sub ( B) Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub ( C) Private Sub Timer1_Timer() Labell.Interval=1 End Sub ( D) Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub
10、 23 设有如右图所示的窗体和下列程序: Private Sub Command1_Click() Text1.Text=“Visual Basic“ End Sub Private Sub Text1_LostFocus() If Text1.Text “BASIC“ Then Text1.Text=“ “ Text1.SetFocus End If End Sub程序运行时,在 Text1文本框中输入 “Basic”(如图所示 ),然后单击 Command1按钮,则产生的结果是 ( )。 ( A)文本框中无内容,焦点在文本框中 ( B)文本框中为 “Basic“,焦点在文本框中 ( C)文
11、本框中为 “Basic“,焦点在按钮上 ( D)文本框中为 “Visual Basic“,焦点在按钮上 24 窗体上有一个名称为 Command1的命令按钮,其事件过程如下: Private Sub Command1.Click() x=“Visual BasicProgramming“ a=Right(x, 11) b=Mid(x,7,5) c=MsgBox(a, B)End Sub 运行程序后单击命令按钮,下列叙述中错误的是 ( )。 ( A)信息框的标题是 Basic ( B)信息框中的提示信息是 Programming ( C) c的值是函数的返回值 ( D) MsgBox的使用格式有
12、错 25 设工程文件包含两个窗体文件 Forml.frm、 Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为 Command1的命令按钮。 Forml的代码如下: Public x As Integer Privme 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
13、 Integer 运行以上程序,单击 Form1的命令按钮Command1,则显示 Form2;再单击 Form2上的命令按钮 Command1,则窗体上显示的是 ( )。 ( A) 1 5 ( B) 0 5 ( C) 0 0 ( D)程 序有错 26 窗体上有一个名称为 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.a2=y.a/2 T
14、hen y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是 ( )。 ( A) x是用户定义的类型 ( B) InputBox函数弹出的对话框中没有提示信息 ( C)若输入的是偶数, y.b的值为该偶数的平方 ( D) Fix(y.a/2)把 y.a/2的小数部分四舍五入,转换为整数返回 27 窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从 左到右分别为 0、 1、 2、 3,窗体外观如下图所示。 命令按钮的事件过程如下: Privat
15、e Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序,下列叙述中错误的是 ( )。 ( A)单击 “打开 ”按钮,显示打开文件的对话框 ( B)单击 “保存 ”按钮,显示保存文件的 对话框 ( C)单击 “打印 ”按钮,能够设置打印选项,并执行打印操作 ( D)单击 “退出 ”按钮,结束程序的运行 28 窗体上有两个水平滚动条 HV、 HT,还有
16、一个文本框 Text1和一个标题为 “计算 ”的命令按钮 Command1,并编写了下列程序: Private Sub Command1_Click() Call cale(HV.Value, HT.Value) End Sub Public Sub cale(x As Integer,y As Integer) Text1.Text=x*y End Sub 运行 程序,单击 “计算 ”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是 ( )。( A)过程调用语句不对,应为 cale(HV.HT) ( B)过程定义语句的形式参数不对,应为 Sub cale(x
17、As Contro1, y As Control) ( C)计算结果在文本框中显示出来 ( D)程序不能正确运行 29 现有如下程序: Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序,则窗体上显示的是 ( )。 ( A) 38 ( B) 49 ( C) 61 ( D) 70 30 窗体上有一个用菜单编辑器设计
18、的菜单。 运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如下图所示。 下列叙述中错误的是 ( )。 ( A)在设计 “粘贴 ”菜单项时,在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “-”(减号 )字符 ( C)在设计 “选中 ”菜单项时,在菜单编辑器窗口中设置了 “复选 ”属性 (有 “”) ( D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了 “可见 ”前面的“” 31 窗体上有一个名称为 Picturel的图片框控件,一个名称为 Label1的标签控件,如下图所示。 现有如下程序: Public Sub
19、 display (x As Control) If TypeOf x Is Label Then x.Caption=“计算机等级考试 “ Else x.Picture=LoadPicture(“piC.jpg“) End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序,下列叙述中错误的是 ( )。 ( A)程序运行时会出错 ( B)单击图片框,在图片框中显示一幅图片 ( C)
20、过程中的 x是控件变量 ( D)单击标签,在标签中显示一串文字 32 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(C+2) ) End Sub 当向文本框 Text1中输入小写字母 a时,文本框 Text2中显示的是 ( )。 ( A) A ( B) a ( C) C ( D) c 33 设窗体上有一个文本
21、框 Text1和一个命令按钮 Command1,并有下列事件过程: Private Sub Command1_Click() Dim s As String, Ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1, k, 1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入 “Basic”,然后单击命令按钮,则 Text1中显示的是 ( )。 ( A) Basic ( B) cisaB ( C) BASIC ( D) CISAB 34 某人编写了下列程序,用来求 10个整数 (整数从键盘输入 )
22、中的最大值: Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox(“输入一个整数 “) Next k max=0 For k=1 To 10 If a(k) max Then max=a(k) End If Next k Print max End Sub 运行程序时发 现,当输入 10个正数时,可以得到正确结果,但输入 10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是 ( )。 ( A)把 Ifa(k) max Then 改为 If
23、 a(k) max Then ( B)把 max=a(k)改为 a(k)=max ( C)把第 2个循环语句 For k=1 To 10改为 For k=2 To 10 ( D)把 max=O改为 max=a(10) 35 已知在 4行 3列的全局数组 score(4, 3)中存放了 4个学生 3门课程的考试成绩(均为整数 ),现需要计算每个学生的 总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i,
24、j) Next j Print “第 “ &i& “个学生的总分是 :“; sum Next i End Sub 运行此程 序时发现,除第 1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。下列修改方案中正确的是 ( )。 ( A)把外层循环语句 For i=1 To 4 改为 For i=1 To 3 内层循环语句 For j=1 To 3改为 For j=1 To 4 ( B)把 sum=0移到 For i=1 To 4和 For j=1 To 3之间 ( C)把 sum=sam+score(i, j)改为 sum=sum+score(j, i) ( D)把 sum=sum+s
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 2008 国家 二级 VISUALBASIC 笔试 答案 解析 DOC
