2007年9月计算机二级VB模拟试题(8)及答案.doc

2007年9月计算机二级VB模拟试题(8)及答案温馨提示:帮考网计算机二级VB免费练习题，如需完整题库请登录 一 、选择题(1) 假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为Alog2nBn2 CO(n1.5) Dn(n-1)/2 正确答案:D (2) 算法分析的目的是A找出数据结构的合理性B找出算法中输入和输出之间的关系C分析算法的易懂性和可靠性D分析算法的效率以求改进 正确答案:D (3) 线性表L=(a1,a2,a3,ai，an)，下列说法正确的是A每个元素都有一个直接前件和直接后件B线性表中至少要有一个元素C表中诸元素的排列顺序必须是由小到大或由大到小D除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件 正确答案:D (4) 在单链表中，增加头结点的目的是A方便运算的实现B使单链表至少有一个结点C标识表结点中首结点的位置 D说明单链表是线性表的链式存储实现 正确答案:A (5) 软件工程的出现是由于A程序设计方法学的影响B软件产业化的需要C软件危机的出现D计算机的发展 正确答案:C (6) 软件开发离不开系统环境资源的支持，其中必要的测试数据属于A硬件资源B通信资源C支持软件D辅助资源 正确答案:D (7) 在数据流图(DFD中，带有名字的箭头表示A模块之间的调用关系B程序的组成成分C控制程序的执行顺序D数据的流向 正确答案:D (8) 分布式数据库系统不具有的特点是A数据分布性和逻辑整体性B位置透明性和复制透明性C分布性D数据冗余 正确答案:D (9) 关系表中的每一横行称为一个A元组B字段C属性D码 正确答案:A (10) 下列数据模型中，具有坚实理论基础的是A层次模型B网状模型C关系模型D以上3个都是 正确答案:C (11) 下列说法正确的是A对象的可见性可设为True或FalseB标题的属性值不可设为任何文本C属性窗口中属性只能按字母顺序排列D某些属性的值可以跳过不设置，自动设为空值 正确答案:A (12) 下列关于退出Visual Basic系统的方法的描述错误的是A打开Visual Basic主窗体的文件菜单，执行其中的退出命令B按快捷键Alt+Q退出C单击Visual Basic主窗体右上角的关闭按钮D按快捷键Alt+E退出 正确答案:D (13) 单击窗体上的关闭按钮时，触发的事件是AForm_Initialize( )BForm_Load( ) CForm_Unload( )DForm_Click( ) 正确答案:C (14) 在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是A一个空格加一个下划线_B一个下划线_C一个造字符-D一个空格加一个连字符 正确答案:A (15) 为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False？AVisibleBTimerCEnabledDInterval 正确答案:C (16) 以下关于Visual Basic数据类型的说法，不恰当的是AVisual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等B目前Decimal数据类型只能在变体类型中使用C用户不能定义自己的数据类型D布尔型数据只能取两种值，用两个字节存储 正确答案:C (17) 以下各项，可以作为Visual Basic变量名的是ABookB2_SeekC123.58DBook1 正确答案:A (18) 表达式(3 / 2 + 1) * (5 / 2 + 2) 的值是A11.25B3C6.125D4 正确答案:A (19) 关于自定义对话框概念的说明，错误的是A建立自定义对话框时必须执行添加窗体的操作 B自定义对话框实际上是VB的窗体C在窗体上还要使用其他控件才能组成自定义对话框D自定义对话框不一定要有与之对应的事件过程 正确答案:D (20) 下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是Private Sub Text1_Change() Text2.Text=Str(6.28 * Val(Text1.Text) ) End SubA将在文本框Text1输入的数字变为数值B将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串C只要Text1中的内容一改变，Text2中显示的圆周长也随之改变D事件过程中的Val函数和Str函数使用错误，事件过程不能执行 正确答案:C (21) 用什么语句可以选择指定的表项或取消已选择的表项？A列表框.Selected(索引值) B列表框名.Selected(索引值) =True|FalseC列表框.SelectedD列表框名.SelectedTrue|False 正确答案:B (22) 用于将屏幕上的对象分组的控件是A列表框B组合框C标签D框架 正确答案:D (23) 以下说法不正确的是A使用ReDim语句可以改变数组的维数B使用ReDim语句可以改变数组的类型C使用ReDim语句可以改变数组的每一维的大小D使用ReDim语句可以改变对数组中的所有元素进行初始化 正确答案:B (24) 有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (Button And 3) =3 Then Print OKEnd If End Sub程序运行后，为了在窗体上输出OK，应当按下的鼠标键是A左键B右键C同时按下左键和右键D按什么都不显示 正确答案:D (25) 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为Save，缺省文件名称为SaveFile，在文件类型栏中显示*txt，则能够满足上述要求的程序是APrivate Sub Command1_Click() CommonDialog1.FileName= SaveFileCommonDialog1.Filter= AllFiles|*.*|(*.txt) |*.txt|(*.doC|*.docCommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle= SaveCommonDialog1.Action=2 End SubBPrivate Sub Command1_Click() CommonDialog1.FileName= SaveFileCommonDialog1.Filter= AllFiles|*.*|(*.txt) |*.txt|(*.doC|*.docCommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle= SaveCommonDialog1.Action=2 End SubCPrivate Sub Command1_Click() CommonDialog1.FileName= SaveCommonDialog1.Filter= AllFiles|*.*|(*.txt) |*.txt|(*.doC|*.docCommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle= SaveFileCommonDialog1.Action=2 End SubDPrivate Sub Command1_Click() CommonDialog1.FileName= SaveFileCommonDialog1.Filter= AllFiles|*.*|(*.txt) |*.txt|(*.doC|*.docCommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle= SaveCommonDialog1.Action=1 End Sub 正确答案:A (26) 阅读下面的程序段：For a=1 To 2For b=1 To a For c=b To 2 I=I + 1 Next Next NextPrint I执行上面的三重循环后，I的值为A4B5C6D9 正确答案:B (27) 设有下面的循环：i=0While i 程序运行后要执行3次循环体，则条件中I的最小值为A6B7C8D9 正确答案:B (29) 执行以下语句过程，在窗体上显示的内容是Option Base 0Private Sub Command3_Click() Dim dd=Array(a, b, c, d) Print d(1) ; d(3) End SubAabBbdCacD出错 正确答案:B (30) 下列程序段，在运行时最早输出的内容是a=2c=1AAA:c=c + a If c 10 ThenPrint c GoTo AAA ElsePrint 10以内的奇数显示完毕。End IfA3B7C9D6 正确答案:A (31) 有如下程序段：Private Sub Command1_Click() Dim a As Integera=2For i=1 To 3Print G(ANext iEnd SubFunction G(a As Integer) b=0Static cb=b + 1c=c + 1G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A123B234C456D146 正确答案:C (32) 单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click() Print MyBM(23, 18) End SubPublic Function MyBM(m As Integer, n As Integer) As IntegerDo While m nDo While m n: m=m - n: LoopDo While m =65 And n 0 Then Print Chr$(i) ; pp(i) End IfNext 正确答案: 1.(pp(65 To 90) 2.(Len(x) 3.(pp(n) = pp(n）+ 1) (8) 下面运行程序后，单击命令按钮，输出的结果是 【11】 。Private Sub Command1_Click() Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(b) Print s1=; s1; s2=; s2End SubFunction YAS(a() As Integer) Dim t#, i% t=1 For i=LBound(A) To UBound(A) t=t * a(i) Next i YAS=tEnd Function 正确答案: 1.(s1=24 s2=360) (9) 如果存在如下过程：Private Function FMax(a() As Integer) Dim First As Integer, Last As Integer, i As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last If a(i) Max Then Max=a(i) Next i FMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() ReDim m(1 To 4) As Integer m(1) =20: m(2) =30: m(3) =50: m(4) =100 c=FMax(m) Print cEnd Sub单击命令按钮，其输出结果为 【12】 。正确答案: 1.(100) (10) 在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示保存文件