2011年9月计算机二级VB模拟试题(10)及答案

日期:12-29| http://www.59wj.com |VB模拟题|人气:540

2011年9月计算机二级VB模拟试题(10)及答案

 

一 、选择题
(1) 循环链表的主要优点是
A) 不再需要头指针了
B) 从表中任一结点出发都能访问到整个链表
C) 在进行插入、删除运算时,能更好的保证链表不断开
D) 已知某个结点的位置后,能够容易的找到它的直接前件
正确答案:  B

(2) 栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是
A) ABCED      
B) DCBEA
C) DBCEA      
D) CDABE 
正确答案:  B

(3) n个顶点的强连通图的边数至少有
A) n-1       
B) n(n-1)
C) n        
D) n+1
正确答案:  C

(4) 在结构化程序设计思想提出之前,在程序设计中曾强调程序的效率,现在,与程序的效率相比,人们更重视程序的
A) 安全性      
B) 一致性 
C) 可理解性      
D) 合理性
正确答案:  C

(5) 模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
A) 抽象和信息隐蔽     
B) 局部化和封装化
C) 内聚性和耦合性     
D) 激活机制和控制方法
正确答案:  C

(6) 软件开发的结构化生命周期方法将软件生命周期划分成
A) 定义、开发、运行维护
B) 设计阶段、编程阶段、测试阶段
C) 总体设计、详细设计、编程调试
D) 需求分析、功能定义、系统设计
正确答案:  A

(7) 在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做是
A) 路径的集合      
B) 循环的集合
C) 目标的集合      
D) 地址的集合
正确答案:  A

(8) 在数据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有
A) 特定的数据模型    
B) 数据无冗余
C) 数据可共享     
D) 专门的数据管理软件
正确答案:  A

(9) 数据库设计包括两个方面的设计内容,它们是
A) 概念设计和逻辑设计   
B) 模式设计和内模式设计
C) 内模式设计和物理设计   
D) 结构特性设计和行为特性设计
正确答案:  A

(10) 实体是信息世界中广泛使用的一个术语,它用于表示
A) 有生命的事物     
B) 无生命的事物
C) 实际存在的事物     
D) 一切事物
正确答案:  C

希望与更多计算机等级考试的网友交流,

.

www.59wj.com

 

(11) 在Visual Basic中,被称为对象的是
A) 窗体       
B) 控件
C) 控件和窗体     
D) 窗体、控件和属性
正确答案:  C

(12) Visual Basic标题栏上显示了应用程序的
A) 大小       
B) 状态
C) 位置       
D) 名称
正确答案:  D

(13) 对下列程序段,说法正确的是
Text1.Top=2000
Text1.Left=800
A) Text1对象的左边界距窗体的左边界是800twip,上边界距窗体的上边界为2000twip
B) Text1对象的左边界距屏幕的左边界为800twip,上边界距屏幕的上边界为2000twip
C) Text1对象的宽度为2000twip,高度为800twip
D) Text1对象的高度为800点,宽度为2000点
正确答案:  A

(14) 用于显示输入输出文本的控件是
A)   和       B)   和 
C)   和       D)   和 
正确答案:  A

(15) 下列操作可以打开立即窗口的是
A) Ctrl+D      
B) Ctrl+F
C) Ctrl+G      
D) Ctrl+E
正确答案:  C

 (16) 有变量定义语句Dim max, min As String,则可以知道max的类型是
A) 变体类型      
B) 单精度型
C) 双精度型      
D) 字符串型
正确答案:  A

(17) 表达式3 ^ 2 Mod 14 \ 2 ^ 3的值是
A) 1        
B) 0
C) 2        
D) 3
正确答案:  B

(18) 在窗体上有一个命令按钮,然后编写如下事件过程
Private Sub Commandl_cickc()
   a=InputBox("enter the first integer")
   b=InputBox("enter the second integer")
   Print b + a
End Sub
程序运行后,单击命令按钮,先后在两个输入框中分别输入"2"和"6",则输出结果为
A) 2        
B) 62
C) 8        
D) 26
正确答案:  B

(19) 在属性窗口中设置何属性,可以把指定的图形放入当前对象中?
A) CurrentY      
B) Picture
C) CurrentX      
D) Stretch
正确答案:  B

 (20) 在窗体上添加标签控件Label1之后,标签控件的默认的名称Name是
A) Label       
B) Label1
C) Text       
D) Text1
正确答案:  B

希望与更多计算机等级考试的网友交流,

.

www.59wj.com

(21) 当组合框的Style属性设置为何值时,组合框称为下拉式列表框
A) 0        
B) 1
C) 2        
D) 3
正确答案:  C

(22) 下列程序段的执行的结果是
Dim a(10) , b(10)
i=3
For j=1 To 5
   a(j) =j
   b(i) =2  i + j
Next j
Print b(i) ; a(i)
A) 113       
B) 315
C) 311       
D) 153
正确答案:  A

(23) 对窗体编写如下事件过程:
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
   arr=Array(12, 15, 18, 20, 24)
   m1=arr(1)
   m2=1
   If KeyAscii=12 Then
   For i=2 To 5
      If arr(i) > m1 Then
          m1=arr(i)
          m2=i
      End If
     Next i
   End If
   Print m1
   Print m2
End Sub
程序运行之后按回车键,输出结果为
A) 12       
   1     
B) 20
   2
C) 18       
   5       
D) 24
    12
正确答案:  A

(24) 在以下事件过程中,可以在用户按下鼠标右键时,显示一个上边框,以鼠标当前位置为中心的弹出式菜单,而且这个弹出式菜单还可以识别右键对菜单命令的选择,相应的选项是
A) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If Button=2 Then
       PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
          vbPopupMenuRightButton, X, Y, mnuEditOpen
      End If
   End Sub
B) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
       If Button=2 Then
         PopupMenu mnuEdit,
       End If
  End Sub
C) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
       vbPopupMenuRightButton
 End Sub
D) Private Sub Form_MouseUp(Button As Integer , _
         Shift As Integer, X As Single, Y As Single)
   If Button=2 Then
           PopupMenu mnuEdit, 2
     End If
   End Sub
正确答案:  A

(25) 为了通过键盘访问主菜单项,可在菜单编辑器的"标题"选项中的某个字母前插入何字符,建立热键字母?
A) &        
B) #
C) *        
D) $
正确答案:  A

(26) 下列程序段的执行结果为
Dim t(10)
For k=2 To 10
   t(k) =11 - k
Next k
x=6
Print t(2 + t(x) )
A) 2        
B) 3
C) 4        
D) 5
正确答案:  C

(27) 下列程序的执行结果为
a=10
b=20
If a <> b Then a=a + b Else b=b - a
Print a, b
A) 2020       
B) 3020
C) 3040       
D) 1515
正确答案:  B

(28) 对话框在关闭之前,不能继续执行其他操作,这种对话框属于
A) 输入对话框     
B) 输出对话框
C) 模式(模态) 对话框    
D) 无模式对话框
正确答案:  C

(29) 下面叙述不正确的是
A) 对顺序文件中的数据操作只能按一定的顺序操作
B) 顺序文件结构简单
C) 顺序文件的数据以字符(ASCII码) 形式存储
D) 能同时对顺序文件进行读写操作
正确答案:  D

(30) 当双击窗体Form1时,要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程,正确的是
A) Private Sub Form_DblClick()
     Form1.Hide
     Form2.Show 0
  End Sub
B) Private Sub Form_DblClick()
     Form1.Hide
     Form2.Show 1
   End Sub
C) Private Sub Form_Click()
     Form1.Hide
     Form2.Show
  End Sub
D) Private Sub Form_DblClick()
     Form1.Enabled=False
     Form2.Enabled=True
  End Sub
正确答案:  B www.59wj.com

(31) 有如下函数过程:
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
   Do While y <> 0
     sic=x / y
     x=y
     y=sic
   Loop
   HFC=x
End Function
以下是该函数的调用过程,该程序的运行结果是
Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
   a=12
   b=2
   x=HFC(a, b)
   Print x
End Sub
A) 0        
B) 6
C) 2        
D) 80
正确答案:  B

(32) 有如下事件过程:
Sub ABD(x%, y%, z%)
   z%=x% + y%
End Sub
Private Sub Command1_Click()
   a%=30: b%=40
   Call ABD(a%, b%, c%)
   Print c%
End Sub
运行上面的程序,单击命令按钮,输出结果为
A) 70       
B) 70.0
C) 7.0E+1      
D) 显示错误信息
正确答案:  A

(33) 如下事件过程:
Function Feed(x)
   If x < 10 Then
     Feed=x
   Else
     Feed=10 + x
End If
End Function
Private Sub Command1_Click()
   x=Val(InputBox("", , 0) )
   pay=Feed(x)
   Print pay
End Sub
运行时在输入框内输入变量x的值为15,输出结果为
A) 0        
B) 15
C) 25       
D) 30
正确答案:  C

(34) 在窗体上画一个命令按钮,然后编写如下事件过程:
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
   Dim i As Integer
   For i=LBound(oldCopy() ) To UBound(oldCopy() )
     newCopy(i) =oldCopy(i)
   Next i
End Sub
Private Sub Command1_Click()
   Dim m(10) As Integer, n(10) As Integer
   For i=1 To 10
      m(i) =i  i
   Next i
   Call BTC(m, n)
   Print n(5)
End Sub
程序运行后,单击命令按钮输出结果为
A) 0        
B) 2
C) 10       
D) 25
正确答案:  D

(35) 在窗体上画一个命令按钮,然后写出如下事件过程:
Private Sub Command1_Click()
   s=1
   Do
      s=(s + 1) ^ (s + 2)
     Number=Number + 1
   Loop Until s >=6
   Print Number, s
End Sub
程序运行后,输出的结果是
A) 23       
B) 318
C) 18       
D) 1020
正确答案:  C www.59wj.com
二 、填空题
(1) 常用的黑箱测试有等价分类法、 【1】 、因果图法和错误推测法4种。
正确答案:  1.(边值分析法)

(2) 测试的目的是暴露错误,评价程序的可靠性;而 【2】 的目的是发现错误的位置并改正错误。
正确答案:  1.(调试)

(3) 软件维护活动包括以下几类:改正性维护、适应性维护、 【3】 维护和预防性维护。
正确答案:  1.(完善性)

(4) 在面向对象的设计中,用来请求对象执行某一处理或回答某些信息的要求称为 【4】 。
正确答案:  1.(消息)

(5) 关键字ASC和DESC分别表示 【5】 的含义。
正确答案:  1.(升序排列和降序排列)

(6) 下述语句段在运行时的显示结果是 【6】 。
Cls
x=10.34 + 8
Print Len(x)
正确答案:  1.(5)

(7) 窗体上有两个按钮,则执行程序后按键盘Cance1键的输出结果是 【7】 。
Private Sub Command1_Click()
   Print "北京";
End Sub
Private Sub Command2_Click()
   Print "南京";
End Sub
Private Sub Form_Load()
   Command2.Cancel=True
   Command1.Cancel=True
End Sub
正确答案:  1.(北京) www.59wj.com

(8) 下列事件过程的功能是:通过Form_Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容,将程序补充完整。
Dim Arr()
Private Sub Form_Load()
    【8】
End Sub
Private Sub Form_Click()
    【9】
     If Int(x / 3) =x / 3 Then
        Print x
     End If
   Next x
End Sub
正确答案:  1.(Arr = Array(35, 48, 15, 22, 67)) 2.(For Each x In Arr)

(9) 给定年份,下列程序用来判断该年是否是闰年,请填空。
Sub YN()
    Dim x As Integer
    x=InputBox("请输入年号")
    If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
      Print "是闰年"
Else
     Print "不是闰年,是普通年份"
   End If
End Sub
正确答案:  1.(And) 2.(Or)

(10) 在E盘当前目录文件夹下建立一个名为"Student.txt"的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName) 、年级(StuGrade) 和年龄(StuAge) 。
Private Sub Form_Click()
    【12】
   For i=1 To 5
      StuName=InputBox("请输入姓名")
      StuGrade=InputBox("请输入年级号")
      StuAge=InputBox("请输入年龄")
        【13】
    Next i
    【14】
End Sub
正确答案:  1.(Open) 2.("E:\Student.txt" For Output As #1) 3.(Write #1, S)

(11) 在窗体上有一个命令按钮,然后编如下事件过程:
Function SR(x As Double) As Double
   Select Case Sgn(x)
   Case 1
       SR=Sqr(x)
       Exit Function
   Case 0
       SR=0
   Case -1
       SR=-1
   End Select
End Function
Private Sub Command1_Click()
   Dim Msg, SRN
   Dim N As Double
   N=InputBox("请输入要计算平方根的数")
   Msg=N & "的平方根"
   Select Case SR(N)
       Case 0
            Msg=Msg & "是0"
       Case -1
          Msg=Msg & "是一个虚数"
       Case Else
          Msg=Msg & "是" & SR(N)
   End Select
   MsgBox Msg
End Sub
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 【15】 。
正确答案:  1.(-1的平方根是一个虚数)

希望与更多计算机等级考试的网友交流,

.

www.59wj.com 如果觉得《2011年9月计算机二级VB模拟试题(10)及答案》VB模拟题,jsj不错,可以推荐给好友哦。
本文Tags: 计算机等级考试 - 模拟试题 - 计算机二级模拟试题 - VB模拟题,jsj,
在百度中搜索相关文章:2011年9月计算机二级VB模拟试题(10)及答案
在谷歌中搜索相关文章:2011年9月计算机二级VB模拟试题(10)及答案
在soso中搜索相关文章:2011年9月计算机二级VB模拟试题(10)及答案
在搜狗中搜索相关文章:2011年9月计算机二级VB模拟试题(10)及答案
相关分类导航|
热门推荐|