第二部分 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	B. X>Y>Z
C. X>Y OR 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	B. text1.text="a+b=c"
C. 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___进行数据传递。

① 用全局变量	② 窗体或模块级变量
③ 将形参与实参结合	④ 静态变量

 

A. ①②④

B. ①②③

C. ②④

D. ④

27. 下列关于数组的叙述中，错误的是___27___。

A. 在过程中可以用DIM语句对形参数组进行说明

B. 数组是同类变量的一个有序的集合

C. 数组元素可以是控件

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

28. 从存有数据的C:\test\test.txt文件添加数据，正确的文件打开命令是___28___。

A. Open "C:\test\test.txt" For Append As #512

B. Open "C:\test\test.txt" For Append As #511

C. Open "C:\test\test.txt" For Output As #512

D. Open "C:\test\test.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"	B. Me.Print "Hello"
C. Debug.Print "Hello"	D. Form2.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

34. 以下语句中,不能正确执行的是___34___

A. If Option1.Value Then	B. If Option1.Value=True Then
C. Ckeck1.Value=0	D. Ckeck1.Value=True

35. 以下有关数据控件的叙述中,错误的是___35___。

A. 利用数据控件可对已连接的数据库记录进行显示和修改

B. 利用数据控件只能访问Access数据库

C. 通过设置DatabaseName属性,可以与指定的Access数据库连接

D. 利用数据控件可增加或删除已连接的数据库中的记录

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

1. 执行下面的程序，单击窗体后在窗体上显示的内容是___ 14 ___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___ 10 ___。

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中的内容是__ _c：\Program Files\DevStudio\VB ___，文本框Text2中的内容是___ VB5.exe ___（函数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. 执行下面的程序，当单击窗体时，窗体上显示内容的第一行是1 3 2___，第二行是1__12___2_。

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)

print a,b,z

End Sub

4. 执行下面的程序，图片框第一行内容是 CBA ，图片框第一行内容是 ABC 。

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