《2009年9月计算机等考二级VB真题.docx》由会员分享，可在线阅读，更多相关《2009年9月计算机等考二级VB真题.docx（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2009年9月全国计算机等级考试二级VB笔试试题及答案一、选择题（每小题2分，共70分）一、选择题1下列数据构造中，属于非线性构造的是（ ）。A. 循环队列 B.带链队列C.二叉树 D.带链栈答案 C解析 树均是非线性构造2. 下列数据构造中,可以依据”先进后出”原则存取数据的是（ ）。A. 循环队列 B.栈 C.队列 D.二叉树答案 B解析:栈是先进后出或后进先出的线性表3. 对于循环队列,下列叙述中正确的是（ ）。A.队头指针是固定不变的B.队头指针确定大于队尾指针C.队头指针确定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针答案 D解析:假设队头指针大于队尾指针说明队列已经
2、循环存放数据了,假设队头指针小于队尾指针说明没有进展循环存放4. 算法的空间困难度是指（ ）。A.算法在执行过程中所须要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数 D.算法在执行过程中所须要的临时工作单元数答案 A解析:算法的空间困难度是指执行算法所须要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所须要的额外空间.5. 软件设计中划分模块的一个准则是（ ）。A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合答案 B解析:模块内部各元素之间的联络要严密,高内聚,模块间的连接的严密程度要低,低耦合,这样可以进步模块的独
3、立性.6. 下列选项中不属于构造化程序设计原则的是（ ）。A.可封装 B.自顶向下 C.模块化 D.逐步求精答案 A7.软件具体设计产生的图如下该图是( ).A.N-S图 B. PAD图 C. 程序流程图 D.E-R图答案 C8.数据库管理系统是（ ）。A. 操作系统的一局部 B.在操作系统支持下的系统软件 C.一种编译系统 D.一种操作系统答案 B9.在E-R图中，用来表示实体联络的图形是（ ）。A.椭圆形 B.矩形 C.菱形 D .三角形答案 C10.有三个关系R,S,T 如下：RABCa12b21c31SABCd32TABCa12b21c31d32其中关系T由关系R和S通过某种操作得到，
4、该操作称为（ ）。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
5、Integer, X As Single, Y As Single)Print VB ProgramEnd SubD）用鼠标左键或右键单击名称为“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.SetFocusEnd SubPrivate
6、 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
7、numa As IntegerDim numb As Integernuma = numa + 2numb = numb + 1Print numa; numbEnd Sub连续3次调用var_dim过程，第3次调用时的输出是C）6 1（23）在窗体上画1个嘱咐按钮，并编写如下事务过程：Private Sub Command1_Click()For i = 5 To 1 Step -0.8Print Int(i);Next iEnd Sub运行程序，单击嘱咐按钮，窗体上显示的内容为A）5 4 3 2 1 1（24）在窗体上画1个嘱咐按钮，并编写如下事务过程：Private Sub Comman
8、d1_Click()Dim a(3, 3)For m = 1 To 3For n = 1 To 3If n = m Or n = 4 - m Thena(m, n) = m + nElsea(m, n) = 0End IfPrint a(m, n);Next nPrintNext mEnd SubB）2 0 40 4 04 0 6（25）设有如下函数过程：Function fun(a As Integer, b As Integer)Dim c As IntegerIf a ba = a - bWendfun = aEnd Function在调试时觉察函数是错误的，为使函数能产生正确的返回值，
9、应做的修改是D）把While ab改为While a=b（30）下列关于通用对话框CommonDialog1的叙述中，错误的是A）只要在“翻开”对话框中选择了文件，并单击“翻开”按钮，就可以将选中的文件翻开（31）在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为B）退出(&X)（32）在窗体上画1个嘱咐按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAsc
10、ii) Then ss = ss + Chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String, i As IntegerFor i = Len(ss) To 1 Step -1m = m + Mid(ss, i, 1)NextText1.Text = UCase(m)End Sub程序运行后，在文本框中输入“Number 100”，并单击嘱咐按钮，则文本框中显示的是D）001REMBUN（33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名
11、称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右挪动100，当圆遇到Line2时则停顿挪动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：Private Sub Timer1_Timer()For k = Line1.X1 To Line2.X1 Step 100If Shape1.Left + Shape1.Width = 90 ThenLevel = AElseIf s = 75 ThenLevel = BElseIf s = 60 ThenLevel = CElseLevel = DEnd If下面用Select Case
12、构造改写上述程序，使两段程序所实现的功能完全一样，请填空。Select Case sCase【9】 Is = 95Level = ACase 75 To 90Level = BCase 60 To 74Level = CCase 【10】Else 或 Is60Level = D【11】End Select（8）窗体上知名称为Command1的嘱咐按钮。事务过程及2个函数过程如下：Private Sub Command1_Click()Dim x As Integer, y As Integer, zx = 3y = 5z = fy(y)Print fx(fx(x), yEnd SubFunct
13、ion fx(ByVal a As Integer)a = a + afx = aEnd FunctionFunction fy(ByRef a As Integer)a = a + afy = aEnd Function运行程序，并单击嘱咐按钮，则窗体上显示的2个值依次是【12】12和【13】10。（9）窗体上知名称为Command1的嘱咐按钮及名称为Text1、能显示多行文本的文本框。程序运行后，假设单击嘱咐按钮，则可翻开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此能的程序，请填空。Private Sub Command1_Click()Text1
14、 = Number = Free c:test.txt For Input As NumberDo While Not EOF(【14】Number)Line Input #Number, sText1.Text = Text1.Text +【15】 s + Chr(13) + Chr(10)LoopClose #NumberEnd Sub参考答案一选择题11.C 12.D 13.A 14.C 15.D16.D 17.A 18.C 19.B 20.C21.A 22.C 23.A 24.B 25.D26.C 27.D 28.B 29.D 30.A31.B 32.D 33.B 34.C 35.A二填空题6.text1.text text1.text Form27.ISELSEEND SELECT8.12 109.NUMBER S公共根底试题答案选择题1.C 2.B 3.D 4.A 5.B6.A 7.C 8.B 9.C 10.D填空题1.142.逻辑推断3.需求分析4.多对多5.身份证号第 18 页