2014年全国计算机等级《二级VB》考前押密试题(4)

考试总分：43分

考试类型：模拟试题

作答时间：60分钟

已答人数：967

试卷答案：有

试卷介绍： 2014年全国计算机等级《二级VB》考前押密试题(4)

开始答题

试卷预览

0 单选题

1. （1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有一个标题为"求n以内（包括n）所有奇数的和"的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的奇数的累加和。本题要求刚启动工程时，"计算显示"和"清空"按钮均为灰色，可以在输入框内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位）。在输入数的同时"计算显示"变为可用；当输入数后，"计算显示"变为禁用；当输入为非数值时，累加结果为0。单击"计算显示"可以在Text1中显示累加和，同时"计算显示"变灰，"清空"变为可用。单击"清空"，输入框和显示框均被清空。本题运行时的窗体界面如图39-3所示。图39-3（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序与控件结构是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），同时补充完整需要的控件属性。存盘时不得改变文件名和文件夹。本题描述如下：在窗体中有一个文本框控件，名称为Text1；两个命令按钮，名称分别为Command1和Command2、标题分别为"读取文本"、"统计字数"；一个名称为Label1的标签控件。要求程序运行后，单击Command1将考生文件夹下的sjin.txt的内容显示到Text1中；单击"统计字数"按钮统计Text1中有多少个字符，将结果显示在Label1中。程序运行时的窗体界面如图39-4所示。图39-4[24分]

2. (1)在窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op。该菜单有两个子菜单，其标题分别为"显示"和"退出"，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"计算机考试"；如果单击"退出"命令，则程序结束。程序的运行情况如图4-1所示。图4-1注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。（2）在名为Form1的窗体上建立一个名为Cmd1、标题为"显示"的命令按钮。编写适当的事件过程，使程序运行后，若单击"显示"命令按钮，则在窗体上显示"计算机等级考试VisualBasic课程"。程序运行情况如图4-2所示。图4-2注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2.frm，工程文件名为sj2.vbp。[18分]

A(1)在窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op。该菜单有两个子菜单，其标题分别为"显示"和"退出"，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"计算机考试"；如果单击"退出"命令，则程序结束。程序的运行情况如图4-1所示。图4-1注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。（2）在名为Form1的窗体上建立一个名为Cmd1、标题为"显示"的命令按钮。编写适当的事件过程，使程序运行后，若单击"显示"命令按钮，则在窗体上显示"计算机等级考试VisualBasic课程"。程序运行情况如图4-2所示。图4-2注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2.frm，工程文件名为sj2.vbp。[18分]

3. 在考生文件夹下有一个工程文件sj5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为"取数"、"排序"、"存盘"。"取数"按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；"排序"按钮的功能是对这50个数按升序排序，并显示在Text2中；"存盘"按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写"排序"按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。[18分]

4. 在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：PrivateSubTimer1＿（）TxtTime．text＝TimeEndSub在横线上应填入的内容是（）。[1分]

AEnabled

BVisible

CInterval

DTimer

5. 设a＝＂VisualBasic＂，下面使b＝＂Basic＂的语句是（）。[1分]

Ab＝Left（a，8，12）

Bb＝Mid（a，8，5）

Cb＝Rigth（a，5，5）

Db＝Left（a，8，5）

6. 执行语句DimX，YAsInteger后，（）。[1分]

AX和Y均被定义为整型变量

BX和Y均被定义为变体类型变量

CX被定义为整型变量，Y被定义为变体类型变量

DX被定义为变体类型变量，Y被定义为整型变量

7. 以下关于多重窗体程序的叙述中，错误的是（）。[1分]

A用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体

B在多重窗体程序中，各窗体的菜单是彼此独立的

C在多重窗体程序中，可以根据需要指定启动窗体

D对于多重窗体程序，需要单独保存每个窗体

8. 下列叙述中错误的是（）。[1分]

A在通用过程中，多个形式参数之间可以用逗号作为分隔符

B在Print方法中，多个输出项之间可以用逗号作为分隔符

C在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D当一行中有多个语句时，可以用逗号作为分隔符

9. 窗体上有一个名称为Command1的命令按钮，其事件过程如下：PrivateSubCommand1＿Click（）DimiAsInteger，jAsInteger，kAsIntegerDimsAsDoubles＝0：i＝1：j＝0：k＝－1DoWhilei＜6s＝s＋k＊（j／i）i＝i＋1j＝j＋1k＝－kLoopPrintsEndSub以上程序所计算的表达式是（）。[1分]

A1／2－2／3＋3／4－4／5

B－1／2＋2／3－3／4＋4／5

C1－1／2＋2／3－3／4＋4／5

D－1＋1／2－2／3＋3／4－4／5

10. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：PrivateSubCommand1＿Click（）x＝0DoWhilex＜50x＝（x＋2）＊（x＋3）n＝n＋1LoopText1．Text＝Str（n）Text2．Text＝Str（x）EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。[1分]

A1和0

B2和72

C3和50

D4和168

11. 某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：PrivateSubCommand1＿Click（）Dima（10）AsInteger，maxAsIntegerFork＝1TO10a（K）＝InputBox（＂输入一个整数＂）NextkMax＝0Fork＝1To10Ifa（k）＞maxThenMax＝a（k）EndIfNextkPrintmaxEndSub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（）。[1分]

A把Ifa（k）＞maxThen改为Ifa（k）＜maxThen

B把max＝a（k）改为a（k）＝max

C把第2个循环语句Fork＝1TO10改为Fork＝2TO10

D把max＝0改为max＝a（10）

12. 有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y处画一个点）：DimcmdmaveAsBooleanPrivateSubForm＿MouseDown（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）cmdmave＝TrueEndSubPrivateSubForm＿MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）IfcmdmaveThenForm1．Pset（X，Y）EndIfEndSubPrivateSubForm＿MouseUp（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）cmdmave＝FalseEndSub此程序的功能是（）。[1分]

A每按下鼠标键一次，在鼠标所指位置画一个点

B按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

C不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

13. 在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm＿Load（）Command2．Enabled＝FalseCheck1．Value＝1EndSub刚运行程序时，看到的窗体外观是（）。[1分]

A

B

C

D

14. 下列程序的执行结果为（）。PrivateSubCommand1＿Click（）DimpAsInteger，qAsIntegerp＝12：q＝20CallValue（p，q）Printp；qEndSubPrivateSubValue（ByValmAsInteger，ByValnAsInteger）m＝m＊2：n＝n－5Printm；nEndSub[1分]

A20122015

B12201225

C24151220

D24121215

15. 在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：OptionBase1PrivateSubCommand1＿Click（）DimcAsInteger，dAsIntegerd＝0c＝6X＝Array（2，4，6，8，10，12）Fori＝1To6IfX（i）＞cThend＝d＋X（i）c＝X（i）Elsed＝d－cEndIfNextiPrintdEndSub程序运行后，单击命令按钮，则在窗体上输出的内容为（）。[1分]

A10

B12

C16

D20

16. 下列关于货币型数据的描述，正确的是（）。[1分]

A货币型数据有时可以表示成整型数据

B货币型数据与浮点型数据完全一样

C货币型数据是由数字和小数点组成的字符串

D货币型数据是小数点位置固定的实型数

17. 数据流图中带有箭头的线段表示的是（）。[1分]

A控制流

B事件驱动

C模块调用

D数据流

18. 源程序的文档化不包括（）。[1分]

A符号名的命名要有实际意义

B正确的文档形式

C良好的视觉组织

D正确的程序注释

19. 在窗体上画一个命令按钮（名称为Command1），并编写下列代码：FunctionFunl（ByValaAsInteger，bAsInteger）AsIntegerDimtAsIntegert＝a－bb＝t＋aFunl＝t＋bEndFunctionPrivateSubCommand1＿Click（）DimxAsIntegerx＝10PrintFunl（Funl（x，（Funl（x，x－1））），x－1）EndSub程序运行后，单击命令按钮，输出结果是（）。[1分]

A10

B0

C11

D21

20. 设有变量声明为"DimaDateAsDate"，则为变量aDate正确赋值的表达方式是（）。[1分]

AaDate＝＃8／2008＃

BaDate＝＃＂8／8／2008＂＃

CaDate＝Date（＂8／8／2008＂）

DaDate＝Format（＂m／d／yy＂，＂8／8／2008＂）

21. 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：PrivateSubfunc（LAsLabel）L.Caption＝＂1234＂EndSubPrivateSubForm＿Load（）Label1．Caption＝＂ABCDE＂Label2．Caption＝10EndSubPrivateSubCommand1＿Click（）a＝Val（Label2．Caption）Callfunc（Label1）Label2．Caption＝aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（）。[1分]

AABCD和10

B1234和100

CABCD和100

D1234和10

22. 窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommand1＿Click（）CD1．FileName＝＂＂CD1．Filter＝＂AllFiles｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂CD1．FilterIndex＝2CD1．Action＝1EndSub关于以上代码，叙述错误的是（）。[1分]

A执行以上事件过程，通用对话框被设置为"打开"文件对话框

B通用对话框的初始路径为当前路径

C通用对话框的默认文件类型为＊．Txt

D以上代码不对文件执行读写操作

23. 在设计窗体时双击窗体的任何地方，可以打开的窗口是（）。[1分]

A代码窗口

B属性窗口

C工程资源管理器窗口

D工具箱窗口

24. 在VisualBasic工程中，可以作为"启动对象"的程序是（）。[1分]

A任何窗体或标准模块

B任何窗体或过程

CSubMain过程或其他任何模块

DSubMain过程或任何窗体

25. 窗体上有一个列表框和一个文本框，编写下列两个事件过程：PrivateSubForm．Load（）List1．AddItem＂北京＂List1．AddItem＂天津＂List1．AddItem＂上海＂Textl．Text＝＂＂EndSubPrivateSubList1．Click（）PrintTextl．Text＋List1．TextEndSub程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（）。[1分]

A中国北京

B中国天津

C中国上海

D北京中国

26. 为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的MultiSelect属性设置为（）。[1分]

A0

B2

CFalse

DTrue

27. 设有如下程序：OptionBaselPrivateSubForm＿Click（）Dima（5）AsString，iAsIntegerFori＝1To5a（i）＝Chr（Asc（＂A＂）＋i）Callf（a，i）NextiEndSubSubf（ta（）AsString，nAsInteger）DimiAsIntegerFori＝1TonPrintta（i）；NextiPrintEndSub对上述程序，以下叙述中正确的是（）。[1分]

A程序有错，因为在过程f的定义中数组参数格式不正确

B程序可正常运行，输出内容的第一行是一个字母"A"

C程序可正常运行，输出内容的第一行是一个字母"B"

D程序可正常运行，输出内容的第一行是数字65

28. 下列符号常量的声明中，不合法的是（）。[1分]

AConstaAsSingle＝1．1

BConsta＝＂OK＂

CConstaAsDouble＝Sin（1）

DConstaAsInteger＝＂12＂

29. MsgBox函数的返回值的类型为（）。[1分]

A数值型

B变体类型

C字符串型

D日期型

30. 在窗体上建立通用对话框需要添加的控件是（）。[1分]

AData控件

BFrom控件

CCommonDialog控件

DVBComboBox控件

31. 设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是（）。[1分]

AMenu1．Enabled＝True

BMenu1．Enabled＝False

CMenu1．Visible＝True

DMenu1．Visible＝False

32. 声明一个变量为局部变量应该用（）。[1分]

AGlobal

BPrivate

CStatic

DPublic

33. 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。[1分]

A任何时刻最多只有一个窗体是活动窗体

B不能把标准模块设置为启动模块

C用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D如果工程中含有SubMain过程，则程序一定首先执行该过程

34. 执行下列语句：strInput＝InputBox（＂请输入字符串＂，＂字符串对话框＂，＂字符串＂）将显示输入对话框。此时如果直接单击"确定"按钮，则变量strlnput的内容是（）。[1分]

A＂请输入字符串＂

B＂字符串对话框＂

C＂字符串＂

D空字符串

35. 只有将组合框的Style属性设置为何值，才能触发DblClick事件？（）。[1分]

A0

B1

C2

D3

36. SQL语言又称为（）。[1分]

A结构化定义语言

B结构化控制语言

C结构化查询语言

D结构化操纵语言

37. 下列说法正确的是（）。[1分]

A任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器

B只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

C只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

D任何时候都可以使用D．任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器

38. 执行下列程序段后，整型变量n的值为（）。n＝0Fori＝1To20Step5n＝n＋1Nexti[1分]

A50

B4

C15

D210

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

A设置Picture属性

B实现不了

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

D以上都不对

40. 可以产生30～50(含30和50)之间的随机整数的表达式是()。[1分]

AInt(Rnd*21+30)

BInt(Rnd*20+30)

CInt(Rnd*50-Rnd*30)

DInt(RND*30+50)

41. 已知a＝5，b＝／，c＝12，下列表达式的值为True的是（）。[1分]

Aa＞bAndc＜a

Ba＞bOrc＜a

Ca＞bXorc＜a

Da＞aEqvc＜a

42. 设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Module1．bas，两个窗体上分别只有一个名称Command1的命令按钮。Form1的代码如下：PublicXAsIntegerPrivateSubForm＿load（）x＝1y＝5EndSubPrivateSubCommand1＿Click（）Form2．ShowEndSubForm2的代码如下：PrivateSubCommand1＿Click（）PrintForm1．x，yEndSubModule1的代码如下：PublicyAsInteger运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是（）。[1分]

A15

B05

C00

D程序有错

43. 将文本框的PasswordChar属性设置为一个星号＊，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）。[1分]

A文本框的MultiLine属性值为True

B文本框的Looked属性值为True

C文本框的MultiLine属性值为False

D文本框的Looked属性值为False