国家计算机二级(VB)75
(总分100,考试时间120分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 下列程序段的执行结果为（ ）。 a=3 b=1 For I=1 To 3 f=a + b a=b b=f Print f Next I
A. extends 和 implements
B. public，private 和 protected
C. class和public
D. char，int，float和double
2. 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5：
Y=3 Call proc(X，Y) Label1．Caption=X Label2．Caption=Y End Sub Private Sub proc(a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是
A. 25和3 B. 5和3
C. 25和6 D. 5和6
3. 如果将文本框控件设置成只有垂直滚动条，则需要将ScrollBars属性设置为（ ）。
A. Exiting main Destructor is active Destructor is active Destructor is active
B. Exiting main Destructor is active Destructoris active
C. Exiting main Destructoris active
D. Exiting main
4. 下面语句正确的是（ ）。
A. 10，009．36 B. 10，009．360
C. 10，009．3 D. 010，009．360
5. 下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I＞=7 Print " I= "；I Print "x="；x
A. for循环只能用于循环次数已经确定的情况
B. for循环是先执行循环体语句，后判断表达式
C. 在for循环中，不能用break语句跳出循环体
D. for循环的循环体语句中，可以包含多条语句，但必须用花括号括起来
6. 在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=3 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是
A. 1234 B. 12
C. 34 D. 4321
7. 当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?
A. USE B. OPEN
C. SELECT D. 以上命令均可
8. 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是（ ）。
A. java B. javac
C. javap D. javadoc
9. 以下关于函数过程的叙述中，正确的是（ ）。
A. 函数过程形参的类型与函数返回值的类型没有关系
B. 在函数过程中，过程的返回值可以有多个
C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D. 如果不指明函数过程参数的类型，则该参数没有数据类型
10. 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是（ ）。
A. Visual B. Basic
C. 6 D. 11
11. 单击命令按钮时，下列程序代码的运行结果为( )。 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtion
A. Dim gg[1，5]As String
B. Dim gg[1 To 5，1 To 5]As String
C. Dim gg(1 To 5)As String
D. Dim gg[1：5，1：5]As String
12. 下列程序段的执行结果为（ ）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print"**0**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select
A. a=2，b=1 B. a=1，b=1
C. a=1，b=0 D. a=2，b=2
13. 当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽?
A. Name B. Enabled
C. Caption D. Visible
14. 设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click() Dim a(3,3) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=i*j+iNext j Next iSum=0For i=1 To 3Sum=Sum+a(i,4-i) Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是______。
A. 20 B. 7
C. 16 D. 17
15. 与List1．Text属性值相同的是（ ）。计算机二级vb
A. List1．ListCount
B. List1．List(ListCount-1)
C. List1．ListIndex
D. List1．List(List．ListIndex)
16. 下列语句的输出结果为( )。 Print Format ＄(10009．36，“000，000．000”)
A. cde B. 字符'c'
C. 字符'c'的地址 D. 无确定的输出结果
17. 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）。
A. Drive1_Change B. Drive1_Click
C. Dir1_Click D. Dir1_Change
18. 以下事件过程可以将打开的对话框的标题改为“新时代”的是（ ）。
A. URL B. UDP
C. JDBC D. Socket
19. 单击按钮时，以下程序运行后的输出结果是（ ）。 Private Sub proc1(x As Integer，y
As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub
A. 6 6 12 B. 9 5 10 6101051010
C. 9 6 12 D. 9 10 10 910155410
20. 设执行以下程序段时依次输入2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer For k=0 To 2 a(k+1)=Val(InputBox("Enter data：")) b(3 - k) =a(k + 1) Next k Print b(k)
A. 可以随意读取随机文件中任一记录的数据
B. 随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
C. 随机文件的操作是以记录为单位进行的
D. 随机文件的读、写操作语句与顺序文件的读写操作语句一样
21. 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过（ ）。
A. 8K B. 16K
C. 32K D. 64K
22. 有如下函数过程： 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
发布评论