VB真题2002春笔

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. text1.text=\

D. text1.text=\

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:\\test\\test.txt文件添加数据，正确的文件打开命令是___28___。 A. Open \ B. Open \ C. Open \ D. Open \ 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 \ C. Debug.Print \

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 \ D. Form2.Print \

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. 利用数据控件只能访问Access数据库

C. 通过设置DatabaseName属性,可以与指定的Access数据库连接 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 \ 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 Files\\DevStudio\\VB\\VB5.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

本文来源：https://www.bwwdw.com/article/jbjt.html