计算机等级考试二级VB试题及答案

考试吧(E)-第一个极力推崇人性化服务的专业考试培训网站！提供历年试题，模拟试题，模拟盘，教程，专业课试题下载，考试培训等。每日更新!声明：本资料由 考试吧（E） 收集整理，转载请注明出自 服务：面向较高学历人群，提供计算机类，外语类，学历类，资格类，会计类，工程类，医学类等七大类考试的全套考试信息服务及考前培训.2009年9月全国计算机等级考试二级VB笔试试题及答案一、选择题（每小题2分，共70分） 一、选择题 1下列数据结构中，属于非线性结构的是（ ）。 A. 循环队列 B.带链队列C.二叉树 D.带链栈答案 C 解析 树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（ ）。 A. 循环队列 B.栈 C.队列 D.一、选择题（每小题2分，共70分） 一、选择题1下列数据结构中，属于非线性结构的是（ ）。A. 循环队列 B.带链队列C.二叉树 D.带链栈答案 C解析 树均是非线性结构2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（ ）。A. 循环队列 B.栈 C.队列 D.二叉树答案 B解析:栈是先进后出或后进先出的线性表3. 对于循环队列,下列叙述中正确的是（ ）。A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针答案 D解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放4. 算法的空间复杂度是指（ ）。A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数答案 A解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间.5. 软件设计中划分模块的一个准则是（ ）。A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合答案 B解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性.6. 下列选项中不属于结构化程序设计原则的是（ ）。A.可封装 B.自顶向下 C.模块化 D.逐步求精答案 A7.软件详细设计产生的图如下 该图是( ).A.N-S图 B. PAD图 C. 程序流程图 D.E-R图答案 C8.数据库管理系统是（ ）。A. 操作系统的一部分 B.在操作系统支持下的系统软件 C.一种编译系统 D.一种操作系统 答案 B 9.在E-R图中，用来表示实体联系的图形是（ ）。A.椭圆形 B.矩形 C.菱形 D .三角形 答案 C 10.有三个关系R,S,T 如下：R ABCa12b21c31S ABCd32T ABCa12b21c31d32 其中关系T由关系R和S通过某种操作得到，该操作称为（ ）。A.选择 B.投影 C. 交 D. 并 答案 D解析:T是由S表或R表中的元素组成的（11）以下变量名中合法的是 C）str_n （12）把数学表达式表示为正确的VB表达式应该是 D）(x*5+3)/(y*2-6) （13）下面有关标准模块的叙述中，错误的是 A）标准模块不完全由代码组成，还可以有窗体 （14）下面控件中，没有Caption属性的是 C）组合框 （15）用来设置文字字体是否斜体的属性是 D）FontItalic （16）若看到程序有如下事件过程，则可以肯定的是，当程序运行时 Private SubClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print VB Program End Sub D）用鼠标左键或右键单击名称为“Click”的控件时，执行此过程 （17）可以产生30-50（含30到50）之间的随机整数的表达式是 A）Int(Rnd*21+30) （18）在程序运行时，下面的叙述中正确的是 C）只装入而不显示窗体，也会执行窗体的Form_Load事件过程 （19）窗体有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Command1_Click() Text1.Text = 程序设计 Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text = 等级考试 End Sub 运行以上程序，单击命令按钮后 B）文本框中显示的是“等级考试”，且焦点在文本框中 （20）设窗体上有名称为Option1的单选按钮，且程序中有语句： If Option.Value=True Then 下面语句中与该语句不等价的是 C）If Value=True Then （21）设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100，下面叙述中正确的是 A）程序运行时，若使滚动条向左移动，滚动条的Value属性值就增加 （22）有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 Print numa; numb End Sub 连续3次调用var_dim过程，第3次调用时的输出是 C）6 1 （23）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为 A）5 4 3 2 1 1 （24）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_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 a(m, n) = 0 End If Print a(m, n); Next n Print Next m End Sub B）2 0 4 0 4 0 4 0 6 （25）设有如下函数过程： Function fun(a As Integer, b As Integer) Dim c As Integer If a b a = a - b Wend fun = a End Function 在调试时发现函数是错误的，为使函数能产生正确的返回值，应做的修改是 D）把While ab改为While a=b （30）下列关于通用对话框CommonDialog1的叙述中，错误的是 A）只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 （31）在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为 B）退出(&X) （32）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Then ss = ss + Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i = Len(ss) To 1 Step -1 m = m + Mid(ss, i, 1) Next Text1.Text = UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是 D）001REMBUN （33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer() For k = Line1.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 End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case【9】 Is = 95 Level = A Case 75 To 90 Level = B Case 60 To 74 Level = C Case 【10】Else 或 Is0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）xD）-x（13）设窗体文件中有下面的事件过程：PrivateSubCommand1_Click（）Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）TextB）CaptionC）LeftD）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBoxVBB）x=MsgBox（VB）C）MsgBox（VB）D）CallMsgBoxVB（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程PrivateSubOption1_C1ick（IndexAsInteger）EndSub下面关于此过程的参数Index的叙述中正确的是A）Index为1表示单选按钮被选中，为O表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A）这3个事件都会触发B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程C）标准模块中可以包含一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正确使用动态数组的是A）Dimarr()AsIntegerReDimarr(3,5)B）Dimarr()AsIntegerReDimarr(50)AsStringC）Dimarr()ReDimarr(50)AsIntegerD）Dimarr(50)AsIntegerReDimarr(20)（22）下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是A）Printgcd(8,12)，gcd(12,16)，gcd(16,8)B）Printgcd(8,12,16)C）Printgcd(8)，gcd(12)，gcd(16)D）Printgcd(8,gcd(12,16)（23）有下面的程序段，其功能是按图1所示的规律输出数据Dima(3,5)AsIntegerFori=1To3Forj=1To5A(i,j)=i+jPrinta(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A）Fori=1To5Forj=1To3Printa（j,i）;NextPrintNextB）Fori=1To3Forj=1To5Printa（j,i）;NextPrintNextC）Forj=1To5Fori=1To3Printa（j,i）;NextPrintNextD）Fori=1To5Forj=1To3Printa（i,j）;NextPrintNext（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序PrivateSubCommandl_Click（）DimnIfText1.Text23456Thenn=n1Print口令输入错误&n&次EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A）在Dimn语句的下面添加一句：n=OB）把Print口令输入错误&n&次改为Print口令输入错误+n+次C）把Print口令输入错误&n&次改为Print口令输入错误&Str(n)&次D）把Dimn改为Staticn（25）要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）PrintX,YEndSubB）PrivateSubP1_MouseDown（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）Picture.PrintX,YEndSubC）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSubD）PrivateSubForm_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSub（26）计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值：PrivateSubComand1_Click（）PI1Sign1n=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是A）把Fork=3Ton改为Fork=1TonB）把n=20000改为n=20000000C）把Fork=3Ton改为Fork=3TonStep2D）把PI=1改为PI=0（27）下面程序计算并输出的是PrivateSubComand1_Click（）a=10s=0Dos=s+a*a*aa=a-1LoopUntila=0PrintsEndSubA）13+23+33+103的值B）10!+3!+2!+1!的值C）（1+2+3+10）3的值D）10个103的和（28）若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr（5）Asrec则下面的输出语句中正确的是A）Printarr.Code(2),arr.Caption(2)B）Printarr.Code,arr.CaptionC）Printarr(2).Code,arr(2).CaptionD）PrintCode(2),Caption(2)（29）设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框PrivateSubComand1_Click（）CD1.DialogTitle=打开文件CD1.InitDir=C:CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.TxtCD1.FileName=CD1.Action=1IfCD1.FileName=ThenPrint未打开文件ElsePrint要打开文件&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是A）把CD1.Action=1改为CD1.Action=2B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C）在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D）把CD1.FileName=改为CD1.FileName=文本文件（30）下面程序运行时，若输入395，则输出结果是PrivateSubComand1_Click（）Dimx%x=InputBox(请输入一个3位整数)PrintxMod10,x100,(xMod100)10EndSubA）395B）539C）593D）359（31）窗体上有List1、List2两个列表框，List1中有若干列表项（见图），并有下面的程序：PrivateSubComand1_Click（）Fork=List1.ListCount-1To0Step-1IfList1.Selected（k）ThenList2.AddItemList1.List（k）List1.RemoveItemkEndIfNextkEndSub程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是A）在List2中插入了“外语”、“物理”两项B）在List1中删除了“外语”、“物理”两项C）同时产生A）和B）的结果D）把List1中最后1个列表项删除并插入到List2中（32）设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的ASCII码为13）后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：PrivateSubText1_KeyPress（KeyAsciiAsInteger）IfKeyAscii=13ThenIfText1.Text=TeacherThenForm2.input.visible=TrueElseForm2.input.visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是A）把Form1中Text1文本框及相关程序放到Form2窗体中B）把Form1.Hide、Form2.Show两行移到2个EndIf之间C）把IfKeyAscii=13Then改为IfKeyAscii=TeaeherThenD）把2个Form2.input.Visible中的“Form2”删去（33）某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中PrivateSubComand1_Click（）Openout.txtForOutputAs#2PrintText1Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是A）把PrintText1改为Print#2,Text1B）把PrintText1改为PrintText1C）把PrintText1改为WriteText1D）把所有#2改为#1（34）窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubComand1_Click（）Dimarr（5）AsIntegerFork=1To5arr（k）=kNextkprogarr（）Fork=1To5Printarr（k）NextkEndSubSubprog（a（）AsInteger）n=Ubound（a）Fori=nTo2step-1Forj=1Ton-1ifa（j）=0ThenCount（n）=Count（n）+1EndIfNextkm=count（0）Fork=1To25Ifm2PrintiEndSub程序运行后，单击窗体，输出结果为【10】。（9）在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：OptionBase1PrivateSubCommand1_Click（）Dima（10）AsIntegerFori=1To10a（i）=iNextCallswap（【11】）Fori=1To10Printa（i）;NextEndSubSubswap（b（）AsInteger）n=Ubound（b）Fori=1Ton/2t=b（i）b（i）=b（n）b（n）=t【12】NextEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。（10）在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：PrivateSubForm_Click（）Opend:testsmtext1.TxtForInputAs#1DoWhileNot【13】LineInput#1,aspect$Whole$=whole$+aspect$+Chr$（13）+Chr$（10）LoopText1.Text=whole$【14】Opend:testsmtext2.TxtForOutputAs#1Print#1,【15】Close#1EndSub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2010年3月全国计算机等级考试二级VB笔试试卷答案选择题1-5ADBAC6-10BADBA11(D)12(B)13(C)14(A)15(D)16(C)17(B)18(A)19(B)20(A)21(A)22(D)23(A)24(D)25(C)26(C)27(A)28(C)29(C)30(B)31(C)32(B)33(A)34(B)35(D)填空题（1）A,B,C,D,E,F,5,4,3,2,1（2）15（3）EDBGHFCA（4）程序（5）课号(6)【6】2(7)7500(8)8Notlabel1.visible(9)9Timer1.Enabled=Ture(10)1028(11)11a()或a(12)12n=n-1(13)13EOF(1)(14)14Close#1(15)15Text1.Text或text1dfyz来自