2013年9月全国计算机等级《二级VB》上机模考试卷(5)

考试总分：45分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

试卷介绍： 2013年9月全国计算机等级《二级VB》上机模考试卷(5)

开始答题

试卷预览

0 单选题

1. 在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。[10分]

2. 在窗体Form1上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件爿编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5-1所示。注意：保存时必页存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。[8分]

3. 在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件和文件名。[12分]

4. 在窗体上建立一个名称为List1的列表框和一个名为Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列，Text1中的项目按照加人的先后顺序排列。当双击List1某个项目时，该项目从列表框中消失，并出现在Text1中。程序运行时的窗体界面如图2-3所示。注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。[12分]

5. 在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图3-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存入result．txt文件)。注意：文件必须存放在考生文件夹下，窗体文件名为si5．frm，工程文件名为si5．vbp，计算结果存入result．txt文件中，否则没有成绩。[18分]

6. 下列选项中属于面向对象设计方法主要特征的是（）。[1分]

A继承

B自顶向下

C模块化

D逐步求精

7. 下列叙述中正确的是（）。[1分]

A有一个以上根结点的数据结构不一定是非线性结构

B只有一个根结点的数据结构不一定是线性结构

C循环链表是非线性结构

D双向链表是非线性结构

8. 在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（）。[1分]

APrivate3ubForm—DragDrop(SourceAsControl，XAsSingle，YAsSingle)banana．MovePicture1．Left+X，Picture1．Top+YEndSub

BPrivateSubbanana_DragDrop(SourceAsControl，XAsSingle，YAsSingle)Source．MovePicture1．Left+X，Picture1．Top+YEndSub

CPrivateSubPicturei_DragDrop(SourceAsControl，XAsSingle，YAsSingle)Source．MovePicture1．Left+X，Picture1．Top+YEndSub

DPrivateSubPicture1_DragDrop(SourceAsControl，XAsSingle，YAsSingle)banana．Movebanana．Left+X，banana．Top+YEndSub

9. 在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（）。[1分]

APrivateSubText1Change（）Labe11．Caption=Str(Len(Text1．Text))EndSub

BPrivateSubText1Click（）Labe11．Caption=str(Len(Text1．Text))EndSub

CPrivateSubText1Change（）Labe11．Caption=Text1．TextEndSub

DPrivateSubLabe11_Change（）Labe11．Caption=Str(Len(Text1．Text))EndSub

10. 为了使列表框中的项目分为多列显示，需要设置的属性为（）。[1分]

AColumns

BStyle

CList

DMultiSelect

11. 下列不能扫开菜单编辑器的操作是（）。[1分]

A按“Ctrl+E”组合键

B单击工具栏中的“菜单编辑器”按钮

C执行“工具”菜单中的“菜单编辑器”命令

D按“Shift+AIt+M”组合键

12. 窗体上有一个名为Command1的命令按钮，并有如下程序：PrivateSubCommand1Click（）Dima(10)，x％Fork=1To10a(k)=Int(Rnd*90+10)x=x+a(k)Mod2NextkPrintXEndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

A10个数中奇数的个数

B10个数中偶数的个数

C10个数中奇数的累加和

D10个数中偶数的累加和

13. 在窗体上面有一个命令按钮，然后编写如下事件过程：PrivateSubCommand1Click（）MsgBoxStr(123+321)EndSub程序运行后，单击命令按钮，则在信息框中显示的提示信息为（）。[1分]

A字符串“123+321”

B字符串“444”

C数值“444”

D空白

14. 某系统总体结构图如下图所示：该系统总体结构图的深度是（）。[1分]

A7

B6

C3

D2

15. 为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是（）。[1分]

ACD1．DialogTitle=“对话框窗口”

BCD1．Action=“对话框窗口”

CCD1．FileName=“对话框窗口”

DCD1．Filter=“对话框窗口”

16. 在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：PrivateSubCommand1Click（）a$=”softwareandhardware”b$=Right(a$，8)c$=Mid(a$，L，8)MsgBoxa$，，bs，CS，1Endsub则在弹出的信息框标题栏中显示的标题是（）。[1分]

Asoftwareandbardware

Bhardware

Csoftware

D1

17. 下列叙述中正确的是（）。[1分]

A在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化

B在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化

C在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化

D上述三种说法都不对

18. 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。[1分]

ALoad

BClick

CLostFocus

DKcyPress

19. 下面有关标准模块的叙述中，错误的是（）。[1分]

A标准模块不完全由代码组成，还可以有窗体

B标准模块中的Private过程不能被工程中的其他模块调用

C标准模块的文件扩展名为．bas

D标准模块中的全局变量可以被工作中任何模块引用

20. 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：PrivateSubCommand1_Click（）Fork=List1．ListCout-1To0Step-1IfList1．Selected(k)ThenList2．AddltemList1．List(k)List1．RemoveltemkEndIfNextkEndSub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）。[1分]

A在List2中插入了“外语”、“物理”两项

B在List1中删除了“外语”、“物理”两项

C同时产生A和B的结果

D把List1巾最后1个列表项删除并插入到List2中

21. 设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（）。[1分]

A|X|

B-|X|

CX

D-X

22. 窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：PrivateSubCommand1Click（）DimnAsIntegern=add(5，10)PrintnEndSubFunctionadd(v1AsInteger，v2AsInteger，Optiona1v3)AsIntegerIfNotIsMissing(v3)Thenadd=v1+v2+v3Elseadd=v1+v2EndIfEndFunction运行程序，单击命令按钮，以下叙述中正确的是（）。[1分]

A程序不能正常运行，因为函数add的参数定义有错

B程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配

C程序能正常运行，结果是在窗体上显示15

D程序能正常运行，结果是在窗体上显示510v3

23. 以下叙述中正确的是（）。[1分]

A窗体及窗体上所有控件的事件过程代码都保存在窗体文件中

B在工程中只有启动窗体可以建立菜单

C窗体名称必须与窗体文件的名称相同

D程序一定是从某个窗体开始执行的

24. 定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（）。[1分]

A一369

B369

C0．369

D整数集合{1，2，3，4，5}

25. 在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：PrivateSubCommand1_Click（）Printfun("ABCDEFG")EndSubFunctionfun(stAsString)Asstringstlen=Len(st)temp=""Fork=1Tostlen／2temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)Nextkfun=tempEndFunction程序运行时，单击命令按钮，则在窗体上显示的是（）。[1分]

AABCDEFG

BAGBFCE

CGFEDCBA

DAGBFCED

26. 软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)，下面属于系统软件的是（）。[1分]

A编辑软件

B操作系统

C教务管理系统

D浏览器

27. 以下关于顺序文件的叙述中，正确的是（）。[1分]

A可以用不同的文件号以不同的读写方式同时打开同一个文件

B文件中各记录的写入顺序与读出顺序是一致的

C可以用Input#或LineInput#语句向文件写记录

D如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录

28. 下列关于关系运算的叙述中正确的是（）。[1分]

A投影、选择、连接从二维表的行的方向来进行运算

B并、交、差从二维表的列的方向来进行运算

C投影、选择、连接从二维表的列的方向来进行运算

D以上三种说法都不对

29. 语句Dima(-3To4，3To6)AsInteger定义的数组元素个数是（）。[1分]

A18

B28

C21

D32

30. 某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：PrivateSubCommand1Click（）Open"out．txt"ForOutputAs#2Print”Text1”Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是（）。[1分]

A把Print”Text1¨改为Print#2，Text1

B把Print”Text1”改为PrintText1

C把Print”Text1”改为Write”Text1”

D把所有#2改为#1

31. 下列叙述中正确的是（）。[1分]

A对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n

B对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n／2)

C对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(1og2n)

D对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)

32. 执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456的语句是（）。[1分]

Ay=x$+List1．List(0)

By=x$+List1．List(1)

Cy=Val(x$)+Val(List1．List(0))

Dy=Val(x$)＆Val(List1．List(1))

33. 在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（）。OptionBase1Dimsales(12)AsLongPrivateSubFormLoad（）Open"C：＼sales．txt"ForInputAs#1Fork=1To12Input#1，sales(k)NextkClose#1EndSubPrivateSub(IndexAsInteger)DimsumAsLong，kAsInteger，monthAsIntegersum=0m_dj=In&x*Fork=1To3m_dj=month+1sum=sum+sales(month)NextkLabel1．Capti_dj=________．Caption＆"销售总额："Text1=SumEndSub[1分]

AOp1_Click3Op1(Index)

BOp1_Click0Option1(Index)

COption1_ClicklOp1(Index)

DOption1_Click2Option1(Index)

34. 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：PrivateSubCommand1_Click（）Timer1．Enabled=TrueEndSubPrivateSubForm_Load（）Timer1．Interval=10Timer1．Enabled=FalseEndSubPrivateSubTimer1Timer（）Command1．Left=Command1．Left+10EndSub程序运行时，单击命令按钮，则产生的结果是（）。[1分]

A命令按钮每10秒向左移动一次

B命令按钮每10秒向右移动一次

C命令按钮每10毫秒向左移动一次

D命令按钮每10毫秒向右移动一次

35. 设a=2，b=3，c=4，d=5，下列表达式的值是（）。Notaa+C[1分]

A-1

B1

CTrue

DFalse

36. 有两个关系R，S如下：由关系R通过运算得到关系S，则所使用的运算为（）。[1分]

A选择

B投影

C插入

D连接

37. 数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（）。[1分]

ADB包含DBS和DBMS

BDBMS包含DB和DBS

CDBS包含DB和DBMS

D没有任何关系

38. 一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是（）。[1分]

A一对一

B一对多

C多对多

D多对一

39. 以下关于局部变量的叙述中错误的是（）。[1分]

A在过程中用Dim语句或Static语句声明的变量是局部变量

B局部变量的作用域是它所在的过程

C在过程中用Stalic语句声明的变量是静态局部变量

D过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放

40. 要在命令按钮控件上显示图像应（）。[1分]

A设置Picture属性

B实现不了

C先将Style设置为1，然后再设置Picture属性

D以上都不对

41. 在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（）。[1分]

APrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii==13Then'回车符的ASCIl码是13a=Val(Text1)Ifa>=0Ora<=100ThenText2．SetFocusElseText1．SetFocus：MsgBox("分数错")EndIfEndIfEndSub

BPrivateSubTextl—KeyPress(KeyAsciiAsInteger)IfKeyAseii=13Then'回车符的ASCIl码是13a=Val(Text1)Ifa>=0Anda<=100ThenTextl．SetFocusElseText2．SetFocus：MsgBox("分数错")EndIfEndIfEndSub

CPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车符的ASCII码是13a=Val(Text1)Ifa100ThenText2．SetFocusElseText1．SetFocus：MsgBox("分数错")EndIfEndIfEndSub

DPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKevAscii=13Then'回车符的ASCII码是13a=Val(Textl)Ifa>=0Aada<=100ThenText2．SetFocusElseText1．SetFocus：MsgBox("分数错")EndIfEndIfEndSub

42. 下列关于栈的叙述正确的是（）。[1分]

A栈顶元素最先能被删除

B栈顶元素最后才能被删除

C栈底元素永远不能被删除

D以上三种说法都不对

43. 下面程序运行时，若输入“VisualBasicPrograrmming”，则在窗体上输出的是（）。PrivateSubCommand1Click（）Dimcout(25)AsInteger，chAsStringch=Ucase(Int,utBox("请输入字母字符串"))Fork=1Toien(ch)．n=ASC(Mid(ch，k，1))-Asc("A")Ifn>=0Thencount(n)=count(n)+1EndIfNextkm=count(0)Fork=1To25Ifm<COUNT(K)THENm=count(k)EndIfNextkPrintmEndSub[1分]

A0

B1

C2

D3

44. 设有下列程序PrivateSubFormClick（）X=50Fori=1T04y=InputBox("请输入一个整数")y=Val(v)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。[1分]

A100

B50

C120

D70

45. 下面正确使用动态数组的是（）。[1分]

ADimarr（）AsInteger…ReDimarr(3，5)

BDimarr（）AsInteger…ReDimarr(50)AsString

CDimarr（）…RcDimarr(50)AsInteger

DDimarr(50)ASInteger…ReDimarr(20)