江苏省VB二级考试2002年(春)_江苏省二级vb考试

江苏省VB二级考试2002年(春)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“江苏省二级vb考试”。

2002年（春）VB二级考试笔试卷

第一部分 计算机基础知识

第二部分 Visual Basic 程序设计

一、选择题（用答题卡答题，答案依次填在21-30答题号内）

21.下面有关对象属性的叙述中，不正确的是___21___。A.一个对象的属性可分位为外观、行为等若干类。B.相同属性可能具有不同的数据类型。

C.一个对象的所有属性都可在属性窗口的列表中进行设置。D.属性窗口中的属性列表可以按字母序也可按类别排列。22.代数式 对应的VB表达式是__22___。A.(12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)/Sin(x)B.(12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)*Sin(x)C.(12*x+5*y-Sqr(Abs(d^3-m^2))/Exp(-x)/Sin(x)D.(12*x+5*y-Sqr(Abs(d^3-m^2)))/e^(-x)/Sin(x)23.对于“X>Y>Z”，正确的VB逻辑表达式是___23___。A.X>Y AND Y>Z C.X>Y OR Y>Z

B.X>Y>Z D.X>Y AND >Z

24.设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的__24___语句可以使文本框内显示的内容为：5+7=12。A.text1.text=a+b=c

C.text1.text=a & “+” & b & “=” & c

B.text1.text=“a+b=c”

D.text1.text=“a”&“+”&“b”&“=”&“c”

25.用语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是___25___。A.Call Convert((X))

B.Call Convert(X*1)C.Convert(X)D.Convert X

26.程序的不同过程之间，不能通过___26___进行数据传递。① 用全局变量 ③ 将形参与实参结合② 窗体或模块级变量 ④ 静态变量 B.①②③

C.②④

D.④

A.①②④

27.下列关于数组的叙述中，错误的是___27___。A.在过程中可以用DIM语句对形参数组进行说明 B.数组是同类变量的一个有序的集合 C.数组元素可以是控件

C.数组在使用之前，必须先用数组说明语句进行说明

28.从存有数据的C:testtest.txt文件添加数据，正确的文件打开命令是___28___。A.Open “C:testtest.txt” For Append As #512 B.Open “C:testtest.txt” For Append As #511 C.Open “C:testtest.txt” For Output As #512 D.Open “C:testtest.txt” For Output As #511 29.下面___29___情况不会进入中断状态。A.在程序运行中，按Ctrl+C键 B.程序运行中，发生了运行错误

C.用户在程序中设置了断点，当程序运行到断点时 D.采用单步调试方式，每运行一个可执行代码行后

30.下面___30___方法，可以将列表框List1中的所有项删除掉。A.List1.Text=“” B.AddItem

C.RemoveItem

D.Clear

31.某过程的说明语句中，正确的数组说明语句是___31___。Const N As Integer=4 Dim L As Integer ① Dim X(L)As Integer ② Dim A(K)As Integer Const K As Integer=3 ③ Dim B(N)As Integer

④ Dim Y(2000 to 2008)As Integer

A.①②④ B.①③④

C.③④

D.②③

32.在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。A.Form1.Print “Hello” C.Debug.Print “Hello”

33.执行以下语句后,a的值为___33___。Dim a As Integer a=1

Do Until a=100 a=a+2 Loop A.99 B.100

C.溢出

D.101

B.Me.Print “Hello” D.Form2.Print “Hello”

34.以下语句中,不能正确执行的是___34___ A.If Option1.Value Then C.Ckeck1.Value=0

B.If Option1.Value=True Then D.Ckeck1.Value=True

35.以下有关数据控件的叙述中,错误的是___35___。A.利用数据控件可对已连接的数据库记录进行显示和修改 B.利用数据控件只能访问Acce数据库

C.通过设置DatabaseName属性,可以与指定的Acce数据库连接 D.利用数据控件可增加或删除已连接的数据库中的记录

二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1.执行下面的程序，单击窗体后在窗体上显示的内容是___(1)___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___（2）___。Option Explicit Private Sub Form_Click()Dim Sum As integer,i As Integer For i=7 To 4 Step-1 Select Case i Case 4,7

Sum=Sum+i 'A语句 Case 3,5

Sum=Sum+2 'B语句 Case Else Sum=Sum+1 End Select Next i

Print “Sum=”;Sum End Sub

2.执行下面的程序，单击命令按钮Command1后，文本框Text1中的内容是___(3)___，文本框Text2中的内容是___（4）___（函数InStr（Start，String1，String2）中Start参数表示每次搜索的起点）。OPtion Explicit

Private Sub Command1_Click()Dim Path As String，Serach As String Dim Fp As String，Fn As String Path=“c：Program FilesDevStudioVBVB5.exe” Call Search_Path（Path，Fp，Fn）text1.text=Fp text2.text=Fn End Sub

Private Sub Search_Path(P As String,Fp As String，Fn As String)Dim Ns As Long,Ct As Long Ns=0 Do Ct=Ns

Ns=InStr(Ct+1,P,“”)Loop Until Ns=0 Fp=Left(P,Ct-1)Fn=Right(P,Len(P)-Ct)End Sub

3.执行下面的程序，当单击窗体时，窗体上显示内容的第一行是___(5)___，第二行是___（6）___。

Private Sub P1(x As Integer,ByVal y As Integer)Static Z As Integer x=x+z: y=x-z: z=10-y End Sub

Private Sub Form_Click()

Dim a As Integer,b As Integer,z As Integer a=1:b=3:z=2 call P1(a,b)print a,b,z call P1(b,a)

4.执行下面的程序，图片框第一行内容是（7），图片框第一行内容是（8）。Option Explicit

Private Sub Command1_Click()Dim S As String S=“ABC” Back S Picture1.Print Picture1.Print S End Sub

Private Sub Back(St As String)If Len(St)>1 Then Back(Right(St,Len(St)-1))End if

Picture1.Print Left(St,1);End Sub

(未完待续）