2009年9月计算机等级考试二级VB真题及参考答案

全国统一客服热线：400-777-1218 全国计算机等级考试二级VB冲刺班招生：http:/www.csaidk.com/hzzx/kspxcc.htm 2009 年 9 月全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic 语言程序设计 （考试时间90分钟，满分100分） 一、选择题（每小题2分，共70分） （1）下列数据结构中，属于非线性结构的是（ ）。 A）循环队列 B）带链队列 C）二叉树D）带链栈 （2）下列数据结构中，能够按照“先进后出”原则存取数据的是（ ）。 A）循环队列 B）栈 C）队列D）二叉树 （3）对于循环队列，下列叙述中正确的是（ ）。 A）队头指针是固定不变的 B）队头指针一定大于队尾指针 C）队头指针一定小于队尾指针 D）队头指针可以大于队尾指针，也可以小于队尾指针 （4）算法的空间复杂度是指（ ）。 A）算法在执行过程中所需要的计算机存储空间 B）算法所处理的数据量 C）算法程序中的语句或指令条数 D）算法在执行过程中所需要的临时工作单元数 （5）软件设计中划分模块的一个准则是（ ）。 A）低内聚低耦合 B）高内聚低耦合 C）低内聚高耦合 D）高内聚高耦合 （6）下列选项中不属于结构化程序设计原则的是（ ）。 A）可封装B）自顶向下 C）模块化 D）逐步求精 （7）软件详细设计产生的图如下： begin X=0 1该图是（ ）。 A）N-S图 B）PAD图 C）程序流程图 D）E-R图 （8）数据库管理系统是（ ）。 A）操作系统的一部分 B）在操作系统支持下的系统软件 C）一种编译系统 D）一种操作系统 （9）在E-R图中，用来表示实体联系的图形是（ ）。 A）椭圆形 B）矩形 C）菱形 D）三角形 （10）有三个关系R，S和T如下： end b=a c=a Y N 全国统一客服热线：400-777-1218 全国计算机等级考试二级VB冲刺班招生：http:/www.csaidk.com/hzzx/kspxcc.htm R S T A B C A B C A B C a 1 2 d 3 2 a 1 2 b 2 1 b 2 1 c 3 1 c 3 1 d 3 2 其中关系T由关系R和S通过某种操作得到，该操作为（ ）。 A）选择 B）投影 C）交 D）并 （11）以下变量名中合法的是（ ）。 A）x2-1 B）print C）str_n D）2x （12）把数学表达式5326xy+表示为正确的VB表达式应该是（ ）。 A）(5x+3)/(2y-6) B）x*5+3/2*y-6 C）(5*x+3)÷(2*y-6) D）(x*5+3)/(y*2-6) （13）下面有关标准模块的叙述中，错误的是（ ）。 A）标准模块不完全由代码组成，还可以有窗体 B）标准模块中的Private过程不能被工程中的其他模块调用 C）标准模块的文件扩展名为.bas D）标准模块中的全局变量可以被工程中的任何模块引用 （14）下面控件中，没有Caption属性的是（ ）。 A）复选框 B）单选按钮 C）组合框 D）框架 （15）用来设置文字字体是否斜体的属性是（ ）。 A）FontUnderline B）FontBold C）FontSlope D）Fontltalic （16）若看到程序中有以下事件过程，则可以肯定的是，当程序运行时（ ）。 Private Sub Click_MouseDown(Button As Integer,_ Shift As Integer, X As Single, Y As Single) Print "VB Program" End Sub A）用鼠标左键单击名称为“Commandl”的命令按钮时，执行此过程 B）用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程 C）用鼠标右键单击名称为“MouseDown”的控件时，执行此过程 D）用鼠标左键或右键单击名称为“Click”的控件时，执行此过程 （17）可以产生3050(含30和50)之间的随机整数的表达式是（ ）。 A）Int(Rnd*21+30) B）Int(Rnd*20+30) C）Int(Rnd*50-Rnd*30) D）Int(Rnd*30+50) （18）在程序运行时，下面的叙述中正确的是（ ）。 A）用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程 B）用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程 C）只装入而不显示窗体，也会执行窗体的Form_Load事件过程 D）装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程 （19）窗体上有名称为Commandl的命令按钮和名称为Textl的文本框（ ）。 Private Sub Commandl_Click() Textl.Text="程序设计" Textl.SetFocus End Sub Private Sub Textl_GotFocus() 2 全国统一客服热线：400-777-1218 全国计算机等级考试二级VB冲刺班招生：http:/www.csaidk.com/hzzx/kspxcc.htm 3Textl.Text="等级考试" End Sub 运行以上程序，单击命令按钮后（ ）。 A）文本框中显示的是“程序设计”，且焦点在文本框中 B）文本框中显示的是“等级考试”，且焦点在文本框中 C）文本框中显示的是“程序设计”，且焦点在命令按钮上 D）文本框中显示的是“等级考试”，且焦点在命令按钮上 （20）设窗体上有名称为Optionl的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是（ ）。 A）If Optionl.Value Then B）If Optionl=True Then C）If Value=True Then D）If Optionl Then （21）设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是（ ）。 A）程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加 B）程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少 C）由于滚动条的Max属性值小于Min属性值，程序会出错 D）由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动 （22）有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa; mumb End Sub 连续3次调用var dim过程，第3次调用时的输出是（ ）。 A）2 1 B）2 3 C）6 l D）6 3 （23）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Commandl_Click() For i=5 To 1 Step -0.8 Print Int(i); Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。 A）5 4 3 2 1 1 B）5 4 3 2 1 C）4 3 2 1 1 D）4 4 3 2 1 1 （24）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m,n)=m+n Else 全国统一客服热线：400-777-1218 全国计算机等级考试二级VB冲刺班招生：http:/www.csaidk.com/hzzx/kspxcc.htm 4 a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。 A）2 0 0 B）2 0 4 C）2 3 0 D）2 0 0 0 4 0 0 4 0 3 4 0 0 4 5 0 0 6 4 0 6 0 0 6 0 5 6 （25）设有以下函数过程： Function fun(a As Integer,b As Integer) Dim c AS Integer If ab a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值。应做的修改是（ ）。 A）把a=a-b改为a=b-a B）把a=a-b改为a=ab C）把While a>b改为While ab改为While a>=b （30）下列关于通用对话框CommonDialogl的叙述中，错误的是（ ）。 A）只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 B）使用CommonDialogl.ShowColor方法，可以显示“颜色”对话框 C）CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告 D）在显示“字体”对话框前，必须先设置CommonDialogl的Flags属性，否则会出错 （31）在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(x)”菜单项的访问键，可以将该菜单项的标题设置为（ ）。 A）退出(X&) B）退出(&X) C）退出(X#) D）退出(#X) （32）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String 全国统一客服热线：400-777-1218 全国计算机等级考试二级VB冲刺班招生：http:/www.csaidk.com/hzzx/kspxcc.htm Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii)""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Commandl_Click() Dim m As String，i As Integer For i=Len(ss) To 1 Step-1 m=m+Mid(ss,i,1) Next Textl.Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是（ ）。 A）NUMBER 100 B）REBMUN C）REBMUN 100 D）001 REBMUN （33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序： Private Sub Timer1 Timer() For k=Linel.X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.Width=90 Then Level="A" ElseIf s>=75 Then Level="B" ElseIf s>=60 Then Level="C" Else Level="D" E