计算机二级(VB)29
(总分1780,考试时间90分钟)
选择题(每小题2分，共70分)  下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 有变量定义语句Dim max，min As String，则可以知道max的类型是（  ）。
A. 除了Click事件之外，菜单项不可以响应其他事件
B. 每个菜单项都是一个控件，与其他控件一样也有其属性和事件
于川绿野素颜C. 菜单项的索引号必须从1开始
D. 菜单的索引号可以不连续
2. 用于将屏幕上的对象分组的控件是（  ）。
A. 键盘事件        B. 鼠标事件
鬼节是7月14还是15C. 窗口事件        D. 控件事件
3. 如果一个变量未经定义就直接使用，则该变量的默认类型为（  ）。
A. 硬件系统        B. 数据库管理系统及相关软件
C. 文件系统        D. 数据库管理员(DataBase Administrator，DBA)二级VB
4. 下列程序段的执行结果为（  ）。  X=2  　Y=5  If X * Y ＜1 Then Y=Y - 1 Else Y=-1  Print Y-X＞0
A.  True        B.  False
C. -1        D. 1
5. 设在窗体上有一个文本框，然后编写如下的事件过程：  Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)    Const Alt=4    Const Key_f2=&H71    altdown%=(Shift And Alt) ＞ 0    f2down% And f2down% Then    If altdown% And f2down% Then      Text ="abl"    End If  Ead Sub  程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是(    )。
A.  add()        B.  requestFocus()
C.  repaint()        D.  paint()
6. 下列描述中正确的是______。
A. 软件工程只是解决软件项目的管理问题 
B. 软件工程主要解决软件产品的生产率问题 
C. 软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 
D. 软件工程只是解决软件开发中的技术问题
7. 单击一次命令按钮后，下列程序的执行结果为（  ）。  Private Sub Command1_Click()    Dim m As Integer，I As Integer，x(10) As Integer    For I=0 To 4：x(I)=I+1：Next I    For I=1 TO 2：Call Prioc(x)：Next I    For I=0 TO 3：Print x(I)；：Next I  End Sub  　Private Sub Prioc(a()As Integer)    Static I As Integer    Do    　a(I)=a(I)+a(I+1)    　I=I+1  　Loop While I＜2  End Sub
A. private        B. 无修饰符
C. public        D. protected
8. 在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（  ）。
A.  程序错误        B.  !
C.  '\0'        D.  为空字符
9. 当双击窗体Form1时，要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程，正确的是(    )。
A. ①②③④        B. ②③④⑤
C. ③④⑤①        D. ④⑤①②
10. 有如下程序段：  Private Sub Command1_Click( )  Dim a As Integer  a=2  For i=1 To 3    Print G(a)  　Next i  End Sub  Function G(a As Integer)  　b=0  　Static c  　b=b + 1  985大学排名一览表
　c=c + 1  　G=a + b + c  End Function  运行上面的程序后，单击命令按钮，输出结果为（  ）。
A.  窗体文件的扩展名为．frm
B.  一个窗体对应一个窗体文件
C.  Visual Basic中的一个工程只包含一个窗体
D.  Visual Basic中一个工程最多可以包含255个窗体
11. 编写如下两个事件过程：  Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer)    Print Chr(KeyCode)  End Sub  Private Sub Form_KeyPress(KeyAscii As Integer)    Print Chr(KeyAscii)  End Sub  在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按"A"键，则程序输出的结果是（  ）。 八大行星中卫星最多的是
A. Panel        B. Frame
C. Applet        D. Dialog
12. 在VisualBasic中按文件的编码方式不同，可将文件分为（  ）。
A. C++语言中变量分为auto，static，extem和register四种存储类型
B. 自动变量和外部变量的作用域为整个程序
C. 内部静态变量的作用域是定义它的函数
D. 外部静态变量的作用域是定义它的文件
13. 已知使用Show方法的格式为:[窗体名称]．Show[模式]，如果要使窗体是“模态型”宙体，则“模式”值为（  ）。
A.  True        B. 0
C. 1        D.  False
14. 有如下事件过程，单击命令按钮扣，输出结果是(    )。  Private Sub Command1 Click( )    Dim b% (1 To4) ,j%, t#    For j=1 To 4      b(j) =j    Next j    t=Tax(b( ) )    Print "t="; t,  En
d Sub  Function Tax (a( ) As Integer)    Dim t#, i%    t=1    For i=2 To UBound (a)      t=t * a(i)      Next i      Tax=t  End Function
A.  t=18        B.  t=24
C.  t=30        D.  t=32
15. 以下事件过程可以将打开的对话框的标题改为“宇宙大爆炸”的是(    )。
A.  Private Sub Command2_Click( )    CommonDialog1．DialogTitle=“宇宙大爆炸”    CommonDialog1．ShowOpen  End Sub
B.  Private Sub Command2_Click( )    CommonDialog1．DialoTitle=“宇宙大爆炸”    CommonDialog1．ShowFont  End Sub
C.  Private Sub Command2_Click( )    CommonDialog1．DilogTitle=“宇宙大爆炸”    CommonDialog1．Show  End Sub
D.  Private Sub Command2_Click( )    CommonDialog1．DialogTitle=“宇宙大爆炸”    Com
monDialog1．ShowColor  End Sub
16. 下列有关子菜单的说法中，错误的是（  ）。
A. 在查询中，选择查询可以只选择表中的部分字段，通过选择一个表中的不同字段生成同一个表
B. 在查询中，编辑记录主要包括添加记录、修改记录、删除记录和导入、导出记录
C. 在查询中，查询不仅可以到满足条件的记录，而且还可以在建立查询的过程中进行各种统计计算
D. 以上说法均不对
17. 在Visual Basic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为（  ）。
魏千翔
A.  cout ＜ ＜ 23．78965421；
B.  cout ＜ ＜ fixed ＜ ＜ 23．78965421：
C.  cout ＜ ＜ 23．78965421 -0．001：
D.  cout ＜ ＜ fixed ＜ ＜ 23．78965421 -0．001；
18. 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（  ）。
18. 在Visual Basic中，被称为对象的是 （  ）。
A.  在需要自定义Swing构件的时候，首先要确定使用哪种构件类作为所定制构件的父类
B.  paintComponent( )方法位于JComponent类内，该方法与paint( )方法类似，也要求一个Graphics类的实例为参数
C.  无论在系统开始执行还是窗口被覆盖后需要重新绘制时，paintComponent( )方法都会被系统自动调用，所以在程序中不要调用它，否则会与自动化过程相冲突
D.  如果需要重新绘制Applet，就调用方法paintComponent( )
19. 运行下列程序段后，显示的结果为（  ）。  J1=23  J2=32  If J1＜J2 Then Print J2 Else Print J1
A.  Label控件的Enabled属性与TextBox控件的Enabled属性
B.  OptionButton控件的Value属性与CheckBox控件的Value属性
C.  Command控件的Default属性与Command控件的Cancel属性
D.  Command控件的Visible属性与Form控件的Visible属性
20. 下列程序运行结果是(    )。  　a=25：b=-45  　i=Not a=b  　Print i
A. 数据库集合        B. 用户
C. 数据库管理系统及相关软件        D. 操作系统
21. 下面程序段，运行后的结果是（  ）。　Private Sub Commandl_Click( )  Dim b%(1 To 4)，i%，t#  For i=1 To 4  　b(i)=i  Next i  t=Tof(b( ) )  Print"t="；t，　End Sub　Function
Tof(a() As Integer)  Dim t#，i%  t=1  For i=2 To UBound(a)      t=t * a(i)    Next i    Tof=t  End Function