VBA理论练习题 - 图文(8)

VBA理 论 练 习 题 第 36 页 共 42 页

End lf

MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是及格。(2007年9月)

解析：本题中，输入的值为85，执行第一个IF语句时，满足条件，直接执行Result=\及格\，后面的所有Else lf语句都不在执行，因此输出结果为\及格\。 20．现有一个登录窗体如图所示。打开窗体后输入用户名和密码，登录操作要求在20s内完成，如如在20s内没有完成登录操作，则倒计时到达0s时自动关闭登录窗体，窗体的右上角显示倒计时的文本框Itime。事件代码如下，要求填空完成事件过程。(2007年9月) Option Compare Database Dim flag As Boolean Dim i As Integer

Private Sub Form_Load( )

Flag=True

Me.TimerInterval=1000

i=0 End Sub

Private Sub Form_Timer( )

If flag=True And i<20 Then Me!ITimer.Caption=20-i i=i+1 Else

DoCmd.Close End lf End Sub

Private Sub OK_Click( )

名称为：ITimer VBA理 论 练 习 题 第 37 页 共 42 页

'登录程序略

'如果用户名和密码正确，则flag=False End Sub

解析：在窗体的初始化函数Form_Load()中，Flag作为Boolean类型的数据用来识别用户是否登录，根据“如果用户名和密码正确，则flag=False”，可以看出，初始情况下应该设置为True；在Form_Timer()函数中，参数i的作用是实现计时，因为Me!ITimer.Caption=20-i，所以要实现倒计时，必须使i的值递增，所以i=i+1。

第四部分（同步自测）

一、选择题（1～15）

1．以下程序段运行后，消息框的输出结果是B)。 a=sqr(3)

b=sqr(2) c=a>b

MsgBox c+2

A) -1 B)1 C)2 D)出错

2．执行语句：MsgBox \，vbOKCancel+vbQuestion，\之后，弹出的信息框外观样式是C）. 注：vbQuestion等价于32

A B VBA理 论 练 习 题 第 38 页 共 42 页

3．用于获得字符串Str从第2个字符开始的3个字符的函数是A)。

A) Mid(Str,2,3) B) Middle(Str,2,3) C) Right(Str,2,3) D) Left(Str,2,3) 4．VBA中定义符号常量可以用关键字是A)。 A)Const B)Dim C)Public D)Static 5．以下关于运算优先级比较，叙述正确的是。 A)算术运算符，逻辑运算符，关系运算符 B)逻辑运算符，关系运算符，算术运算符 C)算术运算符，关系运算符，逻辑运算符 D)以上均不正确

6．VBA的逻辑值进行算数运算时，True的值被当作。 A)0 B)-1 C)1 D)任意值

7．VBA中实用参数a和b调用有参数过程Area(m，n)正确形式是。

A)Area m，n B)Area a，b C)Call Area(m，n) D)Call Area a，b 8．能够实现从指定记录集里检索特定字段值的函数是。 A) Nz B) DSum C) DLookup D) Rnd

9．已知str1=\全国\计算机等级考试\，则函数len(strl)、len(str2)、len(str3)返回值分别为。

VBA理 论 练 习 题 第 39 页 共 42 页

A)1、11、0 B)0、13、0 C)0，13，10 D)1，13，10 10.以下是替换字符串中指定字符的函数过程

Function sReplace(SearchLine As String，SearchFor As String，

Replace With As String) As String

Dim vSearchLine As String,found As Integer found=InStr(Searchline，SearchFor) vSearchLine=SearchLine If found<>0 Then VsearehLine=＂＂

If Dim Presserve arr(arraycount)

vSearchLine=vSearchLine+Right$(SearchLine,Len(SearchLine)-Len(SearchFor)+1) End If

End lf

sReplace=vSearehLine End Function

过程中的空白处应该为。

A)ReDim arr(arraycount) B)Redim Presserve arr(arrycount) C)Dim art(arraycount) D)Dim Presserve arr(arraycount) 11．以下过程的功能是向数组中增加字符，则程序中空白处应为。

Private Sub AddToArray(alr$( )，arraycount％，ByVal charstring$) Dim i％，found As Boolean Found=False

For i=1 To arraycount

If Attay(i)=charstrlng Then Found=ture Next i

If Not Found Then

Arraycound=arraycount+1

ReDim Presserve art(arraycount)

arr(arraycount)=charstring

End lf End Sub

A)ReDim arr(arraycount) B)ReDim Presserve art(arraycount) C)Dim ag(arraycount) D)Dim Presservearr(arraycount) 12．以下是统计字符串中特定字符个数和的函数：

VBA理 论 练 习 题 第 40 页 共 42 页

Private Function CountOccurences％(ByVal Searchln$，ByValSearchFor$) Dim Number As Long，Pos As Long Pos=InStr(Searchln，SearchFof) Do While Pos<>0 Number=Number+1

Pos=InStr(Pos+1，Searchln，SearchFor) Loop

CountOecurences=Number End Function

程序中的两个空白处应分别为。

A)Pos<>0， Pos+1 B)Pos<>0， Poso-1 C)Pos=0， Pos+1 D)Pos=0， Pos-1 13．下面Main过程运行之后，则变量J的值为。 Private Sub MainSub( ) Dim J As Integer J=5

Call GetData(J) End Sub

Private Sub GetData(ByRef f As Integer) f=f*2+Sgn(-1) End Sub

A) 5 B) 7 C) 9 D) 10

14．假定窗体上有一个命令按钮(Commandl)，有如下事件过程： Private Sub Commandl_Chck( ) Dim x As InteSer x=1 n=0

Do While x<28 x=x*3 n=n+1 Loop

Msgbox x End Sub

程序运行后，单击按钮，输出结果为。 A) 81 B) 56 C) 28 D) 243

15．在窗体上画一个名称为Text1的文本框，一个名称为commandl的命令按钮，