有些二级VB试题你必须要去做，做了才知道自己行不行，光在那里想是没用的。
(1)下列程序执行后，变量a的值为( )。
Dim a,b,c,d As Single
a=10：b=20：c=40
Ifb>a Then
d=a：a=b：b=d
End If
If c>a Then
d=a：a=c:c=d
End If
If c>b Then
d=b：b=c：c=d
Endif
A)10
B)40
C)20
D)100
答案：B
(2)执行下面的程序段后，变量s的值为( )。
S=5
Fori=2.6 T0 4.9 Step 0.6
S=S+1
Nexti
A)10
B)8
C)9
D)7
答案：C
(3)下述程序的运行结果是( )。
J=0
DO Whilei<30
j=(j+1)*(j+2)
k=k+l
Loop
Print k：j
A)0 1
B)3 182
C)30 30
D)4 30
答案：B
(4)设有下列语句：
x=5
Ifx>OThen y=1
y=5
程序运行后，则下列叙述中正确的是( )。
A)变量Y的值是1
B)变量Y的值是5
C)变量x的值是5，变量Y的值是1
D)变量Y的值不能确定
答案：B
(5)下列程序运行时输出的结果是( )。
Option Base 1
Const a=10
Private Sub Form_Click()
Dim x(a)As Integer
k=-1
For i=1 To a
x(i)=i*k：k=(-1)*k
Next i
For i=1 T0 10：
Print x(i)
Next i
End Sub
A)1 3 5 7 9 10
B) -1-3-5-7-9
C)-1 2-3 4-5 6-7 8-9 10
D)1-2 3-4 5-6 7-8 9-10
答案：C
(6)如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的空白处要填入( )。
x=l
Do
x=x+3：Print x
Loop Until——
A)x>=8
B)X<=8
C)x>=7
D)x<=7
答案：A
(7)如果执行以下循环程序，则循环执行的次数是( )。
For i=1 T0 3
Forj=5 To 1 Step-l
Print i+j
Nextj，i
A)12
B)13
C)14
D)15
答案：D
(8)下面正确声明数组的语句是( )。
A)Dim A[3，4]As Integer
B)Dim A(3，4)As Integer
C)Dim A[3;4]As Integer
D)Dim A(3;4)As Integer
答案：B
(9)设用复制、粘贴的方法建立了一个命令按钮数组Commandl，以下对该数组的说法错误的是( )。
A)命令按钮的所有Caption属性都是Commandl
B)在代码中访问任意一个命令按钮只需使用名称Commandl
C)命令按钮的大小都相同
D)命令按钮共享相同的事件过程
答案：B
(10)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令按钮。
设有如下的类型声明
Type Person
name As String*8
major As Strin9*20
EndType
当单击命令按钮时，将两个文本框中的内容写入一个随机文件Test.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。
A)Open”c：\Test.dat”For Random As#1 Put#1，1，PClose#1
B)Open”c：\Test.dat”For Random As#1 Get#1，1,pC10se#1
C)Open”c：\Test.dat”For Random As#1 Len=Len(p)Put#1,1,p Close#1
D)Open”c：\Test.dat”For Random As#1 Len=Len(p) Get#1，1，P CloSe#1
答案：A
考无忧小编tips：
只要一直走下去，一直坚持复习以上的二级VB试题，蓦然回首，你会发现，坚持的每一处，都是曾经想要放弃时以为到达不了的地方！
文章推荐：
2019年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的最新资讯吗？点击进入>>>计算机等级考试题库资讯
