计算机二级(VB)22
(总分1780,考试时间90分钟)
选择题(每小题2分，共70分)  下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 以下为Visual Basic学习版的控件的是（  ）。
A.  //        B.  / *
C.  * /        D.  |
2. Print方法可以在对象上输出数据，这些对象包括（  ）。
A. 图片框        B. 状态栏
C. 标题栏        D. 代码窗口
3. 下列程序段的执行结果为(    )。  a=5  For k=1 To 0    a=a * k  Next k  Print k；a
A.  2  2        B.  4  3
C.  4  2        D.  3  2
4. 下列说法不正确的是（  ）。
A.  对象的可见性可设为True或False
B.  标题的属性值可设为任何文本
C.  属性窗口中属性可以按字母顺序排列
D.  某些属性的值可以跳过不设置，系统之不理自动设为空值
5. 在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = "ABCD" For n= 1 To 4Print ______ Next End Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容D CDBCD ABCD则在______处填入的内容为。
A. Left(c,n)          B. Right(c,n)
C. Mid(c,n,1)          D. Mid(c,n,n)
6. 下列操作可以打开立即窗口的是（  ）。
A. 一旦一个线程被创建，它就立即开始运行
B. 调用start( )方法可以使一个线程成为可运行的，但是它不一定立即开始运行
C. 主线程不具有默认优先级
D. Java中线程的优先级从低到高以整数0～9表示
7. 设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是(    )。
A.  Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_              　X As Single, Y As Single)  　If Button=2 Then PopupMenu Bt, 2  End Sub
B. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _              　X As Single, Y As Single)  　PopupMenu Bt  End Suh
C.  Private Sub Form MouseDown(Button As Integer, Shift As Integer, _              　X As Single, Y As Single)  　PopupMenu Bt,0  End Sub
D. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _              　X As Single, Y As Single)  　If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt  End Sub
8. 设有如下关系表______。 则下列操作中，正确的是______。
A. T=R∩S          B. T=R∪S
C. T=RхS        D. T=R/S
9. 以下叙述中，错误的是______。
A. 一个 Visual Basic 应用程序可以含有多个标准模块文件 
B. 一个 Visual Basic 工程可以含有多个窗体文件 
C. 标准模块文件可以属于某个指定的窗体文件 
D. 标准模块文件的扩展名是.bas
10. 窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End SubPrivate Sub Text2_LostFocus() Call CheckInput(Text2,1000) End SubSub CheckInput(t As ?,x As Integer) If Val(t.Text)>x ThenMsgBox "请重新输入！"End IfEnd Sub
A. Text          B. SelText
C. Control          D. Form
11. 下列程序执行的结果为（  ）。  x=25：y=20：z=7  Print "S"；x+z*y；")"
A. S(47)        B. S(165)
C. S(25+7*20)        D. S(87)
12. 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（  ）。
12. 在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；
13. 下列叙述中正确的是______。 
A. 软件测试应该由程序开发者来完成          B. 程序经调试后一般不需要再测试 
C. 软件维护只包括对程序代码的维护          D. 以上三种说法都不对
14. 用InputBox函数设计的对话框，其功能是（  ）。
A. 3        B. 4
C. 5        D. 6
15. 为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?
A. double s(42)；
B. double sine(42)；
C. double Radians(42) )；
D. double Degrees(42) )；
16. 下列程序的执行结果为(    )。  a=10  b=20  If a ＜ ＞ b Then a=a + b Else b=b-a  Print a，b
A.  20  20        B.  30  20
C.  30  40        D.  15  15
17. 阅读下列程序：  Private Sub Command1_Click()  　Dim i As Integer，k As Integer  　k=2  　For i=1 To 3    　Print H(k)；  　Next i  End Sub  Function H(j As Integer)  　a=0  　Static b  　a=a+1  　b=b+1  　H=a*b+j  End Function  程序运行后，单击命令按钮输出结果是（  ）。
A. 12 3        B. 234
C. 456        D. 146
18. 下列程序段，在运行时最后输出的内容是(    )。  a=2  c=3  AAA：  c=c * a  If c〈10 Then    Print c    GoTo AAA  Else    Print“10以内的奇数显示完毕”  End If
A.  5，2，3        B.  -5，-12，-7
C.  -5，-12，-17        D.  5，-2，-7
19. 下列程序的执行结果为（  ）。  Private Sub Command1_Click()    Dim s1 As String，s2 As String    S1；="abcdef"    Call Invert(s1，s2)    Print s2  End Sub  Private Sub Invert (ByVal xstr As String，ystr As String)    Dim tempstr As String    i=Len(xstr)    Do While i>=1    　tempstr=tempstr+Mid(xstr，i，1)    　i=i-1    Loop    ystr=tempstr  End Sub
A. fedcba        B. abcdef
C. afbecd        D. defabc
20. 下列说法错误的是（  ）。
A. 资源文件的扩展名为．res
B. 一个窗体对应一个窗体文件
C. Visual Basic中的一个工程只包含一个窗体计算机二级vb
D. Visual Basic中一个工程最多可以包含255个窗体
21. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4)Dim i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + jNext j Next i Print a1(3, 3); a2(3, 3) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。
A. 66          B. 105
C. 721          D. 612
22. 有如下事件过程，单击命令按钮扣，输出结果是(    )。  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,  End 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