国家计算机二级(VB)86
(总分100,考试时间120分钟)
选择题(每小题2分，共70分)  下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是（  ）。
二级VBA. 在Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框
B. 自定义对话框由用户根据自己需要定义的
C. 预定义对话框是用户在设置程序代码后定义的
D.  MssgBox 函数是用户的自定义对话框的函数
2. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：    Private Sub Command1_Click()        Dim M(10)As Integer    For k=1 To 10    M(k)=12-k    Next k    x=8    Print M(2+M(x))    End Sub    运行程序，单击命令按钮，在窗体上显示的是
A. 6        B. 5
C. 7        D. 8
3. 单击窗体时，下列程序的执行结果是(    )。  Private Sub Invert(By Val xstr As String，ystr As String)    Dim tempstr AS String    Dim I AS Integer    I=Len(xstr)    Do While I＞=1    　tempstr=tempstr + Mid(xstr，I，1)    　I=I - 1    Loop    yStr=tempStr  End Sub  Private Sub Form_Click( )    Dim s1 As String，s2 As String    S1="abcdef"    Invert S1，S2    Print S2  End Sub
A. blooean isAlive( )
B. Thread currentThread( )
C. String getName( )
D. smtic boolean interrupted( )
4. Sub过程与Function过程最根本的区别是（  ）。
车辆抵押贷款
A. 2，3        B. 3，2
C. 2，2        D. 3，3
5. 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1 的计时器控件，并把其Interval属性设置为500，如图所示:  编写如下程序：    Private Sub Form_Load( )        Timer1．Enabled=false    End Sub    Private Sub Command1 Click( )        Timer1．Enabled=True    End Sub    Private Sub Timer1_Timer( )        If Label1．Left＜Width Then            Label1．Left=label1．Left+20        Else            Label1．Left=0        End If    End Sub    程序运行后单击“开始”按钮，标签在窗体中移动。    对于这个程序，以下叙述中错误的是（  ）。
A. 标签的移动方向为自右向左
B. 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C. 当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D. 标签按指定的时间间隔移动
6. 下列四组控件属性中，属性值的类型不相同的一组是（  ）。
A.  Label控件的Enabled属性与TextBox控件的Enabled属性
农村房屋拆补偿
B.  OptionButton控件的Value属性与CheckBox控件的Value属性
C.  Command控件的Default属性与Command控件的Cancel属性
D.  Command控件的Visible属性与Form控件的Visible属性
7. 在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（  ）。
金希澈和韩庚A.  Label        B.  Label1
C.  Text        D.  Text1
8. 设窗体上有1个滚动条,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【  】
A. Max        B. Min
C. Smallhange        D. Large Change
9. 如下事件过程：  Function Feed(x)    If x ＜10 Then      Feed=X    Else      Feed=10+x  End If  End Function  Private Sub Command1_Click( )    x=Val(Input Box(" "，0))    pay=Feed(x)    Print pay  End Sub  运行时在输入框内输入变量x的值为15，输出结果为(    )。
A. 0        B. 15
C. 25        D. 30
10. 下列说法正确的是（  ）。
A. 在Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框
B. 自定义对话框由用户根据自己需要定义的
C. 预定义对话框是用户在设置程序代码后定义的
D.  MssgBox 函数是用户的自定义对话框的函数
中国十佳宜居城市11. 当直线或形状的BorderStyle属性设置为1时，控件是（  ）。
A.  虚线        B.  点线
C.  不可见        D.  实线
12. 单击命令按钮时，下列程序的执行结果为（  ）。  Private Sub Command1 Click()    Dim x As Integer，y As Integer    x=12：y=32    Call PCS(x，y)    Print x；y  End Sub  Public Sub PCS(ByVal n As Integer，ByVal m As Integer)    n=n Mod 10    m=m Mod 10  End Sub
A. 1232        B. 232
C. 23        D. 123
13. 要设置窗体为固定对话框，并包含控制莱单栏和标题栏，但没有最大化和最小化控钮，设置的操作是（  ）。
A.  设置BoderStyle的值为Fixed ToolWindow
B.  设置BoderStyle的值为Sizable ToolWindow
C.  设置BnderStyle的值为FixedDialog
D.  设置BoderStyle的佰为Sizable
14. 在 Visual Basic中，要将一个窗体从内存中释放，应使用的语句是（  ）。
A. 友元函数的实现必须在类的内部定义        B. 友元函数是类的成员函数
C. 友元函数破坏了类的封装性和隐藏性        D. 友元函数不能访问类的私有成员
15. 下列说法错误的是（  ）。
A. C++语言支持数据封装        B. C++语言中引入友元没有破坏封装性
C. C++语言允许函数名和运算符重载        D. C++语言支持动态联编
16. 要想在过程调用中返回两个结果，下面的过程定义语句合法的是（  ）。
公司取名网
A. 20        B. 21
C. 56        D. 32
17. 以下叙述中错误的是
A. 在通用过程中，多个形式参数之间可以用逗号作为分隔符
B. 在Print方法中，多个输出项之间可以用逗号作为分隔符
C. 在Dim语句中，所定义的多个变量可以用逗号作为分隔符
D. 当一行中有多个语句时，可以用逗号作为分隔符
18. 以下各项，可以作为Visual Basic变量名的是（  ）。
A.  内存跟踪        B.  内存编译
C.  语法检查        D.  上述都不正确
19. 激活菜单栏的快捷键是（  ）。
A. F10        B. F4
C. F5        D. Ctrl
20. 设有数组定义语句：Dim a(5)As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是（  ）。
A. 打开过程文件时，其中的主过程自动调入内存
B. 同一时刻只能打开一个过程，打开新的过程后，旧的过程自动关闭
C. 用命令DOWITH调用过程时，过程文件无需打开就可调用其中的过程
D. 用命令DOWITHIN调用过程时，过程文件无需打开，就可调用其中的过程
21. 执行下列程序后，鼠标单击窗体，输出结果为（  ）。  Private Sub Form_Click()  　Print“Click”；  End Sub  Private Sub Form_MouseDown(Button As Integer，Shift_        　As Integer，X As Single，Y As Single)    　Print “Donw”  End Sub  Private Sub Form_MouseUp(Button As Integer，Shift_        　As Integer，X As Single，Y As Single)    　Print“Up”  End Sub
A.  DownUpClick        B.  ClickDownUp
C.  DownClickUp        D.  UpDownClick
22. 下面哪个程序段能够正确裙带如果A＜B，则A=1，否则A=-1 ？
A. If A＜B Then A=1　A=-1　Print A
B. If A＜B Then A=l：Print A　A=-1：PrintA
C.  If A＜B Then  A=1：Print A  Else  A=-1：  End If
D.  If A＜B Then A=1  　A=-1  Print A  Print A
23. 单击命令按钮时，下列程序的执行结果为（  ）。  Private Sub Command1_Click()  　Dim x As Integer，y As Integer  　x=12：y=32  　Call Proc(x，y)  　Print x；y  End Sub  Public Sub Proc(n As Integer，ByVal m As Integer)  　n=n Mod 10  　m=m Mod 10  End Sub