仿真试题(二)a.docVIP

计算机等级考试二级VB全真模试题（）一、选择题： .无论何控件，都具有一个共同属性。这个属性是（C） A)Text B)Font C)Name D)Caption .表达式3∧2*2+3 MOD 10\4的值是（C） A)18 B)1 C)19 D)0 .下面的变量名合法的是（A） A) k_name B) k ame C) name D) k-name .设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（A） A) time1 = #11:34:04 # B) time1 = Format(Time,yy:mm:dd) C) time1 = #11:34:04# D) time1 = Format(hh:mm:ss,Time) .表达式12000 + 129 200的值是（B） A) 12329 B)C) 12000129200 D) 12329 .若设a = 4,b = 5,则下列表达式值为真的是（D） A)(True+a)0 And b10 B)ab Or b10-a C)(False-b 0) Eqv (ab) D)ab Xor b+35 .在窗体上画一个名称为Command1的命令按钮，编写以列程序： Private Sub Command1_Click( ) Dim a As Integer Static b As Integer a = a + b b = b + 4 Print a,b End Sub 程序运行后，单击该命令按钮三次，屏幕上显示的值是（D） A)4 12 B)0 4 C)4 8 D)8 12 .Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B） A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块 .下列程序段错误的是（A） A)Dim a As Integer a = array(1,2,3,4) B) Dim a(),b() a = array(1,2,3,4):b = a C) Dim a As Variant a = array(1,asd,true) D) Dim a() As Variant a = array(1,2,3,4) 10.表达式String(1,I am student) + Replace(am harass,rass,ppy) !的值是（A） A)I am happy! B)I am student I am s am harass studentam happy! C)I am student am harass! D)I am student am happy! .下列程序段中，能正常结束循环的是（C） A)I = 1 Do I = I + 2 Loop Until I = 10 B) I = 5 Do I = I + 1 Loop Until I 0 C) I = 10 Do I = I + 1 Loop Until I 0 D) I = 6 Do I = I - 2 Loop Until I = 1 12.引用列表框（List1）最后一个数据项应使用的表达式是（B） A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1) C)List1.List(ListCount) D)List1.List(ListCount-1) .有如下程序： Option Base 1 Private Sub Command1_Click() Dim x,y(3,3) x = Array(1,2,3,4,5,6,7,8,9) For i = 1 To 3 For j = 1 To 3 y(i,j) = x(i*j) If(j = i) Then Print y(i,j); Next j Print Next i End Sub 运行时输入出的结果是（D） A)1 2 3 2 4 6 4 6 8 B) 1 2 3 2 4 6 3 6 9 C) 1 2 4 3 6 9 D) 1 2 3 4 6 9 14.在窗体上画一个名称为Command1的命令按钮，编写如下程序： Private Sub Command1_Click() Print pl(3,7) End Sub Public Function pl(x As Single,n As Integer) As Single If n=0 Then pl=1 Else If n Mod 2=1 Then pl=x*x+n Else P1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显