您现在的位置: 中国男护士网 >> 考试频道 >> 计算机等级 >> 二级辅导 >> VB >> 模拟题 >> 正文    
  2007年9月计算机二级VB模拟试题(10)及答案 【注册男护士专用博客】          

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

www.nanhushi.com     佚名   不详 

一 、选择题
(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


(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


(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 

B.20
2
C.18 

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


(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


二 、填空题
(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.(北京)

(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的平方根是一个虚数)

 

文章录入:杜斌    责任编辑:杜斌 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
     

    联 系 信 息
    QQ:88236621
    电话:15853773350
    E-Mail:malenurse@163.com
    免费发布招聘信息
    做中国最专业男护士门户网站
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    专 题 栏 目

      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)                            【进男护士社区逛逛】
    姓 名:
    * 游客填写  ·注册用户 ·忘记密码
    主 页:

    评 分:
    1分 2分 3分 4分 5分
    评论内容:
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。