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

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

Set ADOrs.ActiveConnection=ADOcn ADOrs.Open＂Select学号From Stud Where学号=＇＂+tNo+＂＇＂ If Not ADOrs.EOF Then MsgBox＂你输入的学号已存在,不能新增加!” Else StrSQL=＂Insert Into stud(学号,姓名,性别,籍贯)＂ StrSQL=strSQL+＂Values(＇＂，+tNo +＂＇，＇＂+tName+＂＇，＇＂+tSex+tRes+＂＇)＂ ADOrs.Execute StrSQL MsgBox ＂添加成功，请继续!＂ End If ADOrs.Close Set ADOrs=Nothing End Sub Private Sub Command2_Click( ) Docmd.Close End Sub 16．已经设计出一个表格式表单窗体，可以输出教师表的相关字段信息。请按照以下功能要求补充设计：改变当前记录，消息框弹出提示“是否删除该记录?”， VBA理 论 练 习 题 第 12 页 共 42 页

单击“是”，则直接删除该当前记录；单击“否”，则什么都不做。其效果图如下： ’单击“退出”按钮，关闭窗体。 Private Sub btnCaneel_Ctick( ) DoCmd．Close End Sub ’表格式表单窗体当前记录变化时触发 Private Sub Form_Current( ) If MsgBox(＂是否删除该记录?＂，vbQuestion+vbYesNo，＂确认＂) =6(或vbYes)Then Me.Recordset.Delete End lf End Sub 17．已经完成一个窗体的部分设计。请按照以下功能要求补充设计： (1)原始文本处的文本框只接受英文大小写字符和汉字，其他字符输入一律忽略； (2)单击“复制”按钮，可将原始文本框的选择内容追加到目标文本框内； (3)目标文本框内字符数超过50，则清空。 其效果图如下： 代码如下：

Dim strTemp AsString ’存放原始文本框选择文本 ’单击“复制”按钮，实施复制操作

PrivateSub tCopy_Click( )

Me!tDestText：Nz(Me!tDestText)十strTemp strTemp =””

If Len(Me!tDestText)>50 Then Me!tDestText=Null End Sub

’原始文本框接受英文大小字母和汉字输入

Private Sub tSourceText_KeyPress(KeyAscii AsInteger)

If(KeyAscii>=Ase(＂A＂) And KeyAscii<=Ase(＂Z＂)) Or (KeyAscii >=Asc(＂a＂) And KeyAscii<=Asc(＂２＂)) Then Else

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

’输入其他字符，忽略 KeyAscii=0 End If

End Sub

’返回原始文本框选择文本

Private Sub tSourceText LostFocus( ) If Me!tSourceText．SelLength>0 Then

strTemp = Me!tSourceText.SelText

(或Mid(Me!tSourceText, Me!tSourceText.SelStart+1, Me!tSourceText.SelLength)) Else

strTemp=＂＂ End If

End Sub

18．Nz函数主要用于处理Null值时的情况；Dlookup函数的功用是从指定记录集里检索特定字段的值。

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

第三部分（经典题解） 一、选择题（1～33）

1．假定有以下循环结构(2005年9月) Do Until条件 循环体 Loop

则正确的叙述是。

A)如果“条件”值为0，则一次循环体也不执行 B)如果“条件”值为0，则至少执行一次循环体 C)如果“条件”值不为0，则至少执行一次循环体 D)不论“条件”是否为“真”，至少要执行一次循环体

解析：Do…Until。．．Loop循环结构中，当条件值为假时，重复执行循环体,直至条件值为真，结束循环。因此，如果条件值为0，则至少执行一次循环体。 2．窗体上添加有3个命令按钮，分别命名为Commandl、Command2和Command3。编写Commandl的单击事件过程，完成的功能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。以下正确的是。(2005年9月)

A)Private Sub Commandl_Click() Command2.Visible=True Command3.Visible=False End Sub

B)PrivateSub Commandl_Click() Command2.Enabled=true Command3.Enabled=False End Sub

C)Private Sub Commandl_Click() Command2.Enabled=True Command3.Visible=False

End Sub

D)Private SubCommandl_Click() Command2.Visible=True Command3.Enabled=False

End Sub 解析：Enabled属性用于判断控件是否可用，而Visible属性用于判断控件是

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

否可见。题目中要求Command2可用，而Command3不可见，则必须设置Command2的Enabled为True，并且设置Command3的Visible为False 3．假定有以下程序段：(2005年9月) n=0

for i=1 to 3 forj=-4 to -1 n=n+1 next j next i

运行完毕后，n的值是

A) 0 B) 3 C) 4 D) 12

解析：本题中，外层循环从1到3，要执行3次，而内层循环从-4到-1，执行4次，所以一共执行了4*3=12次循环。而每执行一次循环n就加1，所以最后n的值为12。

4．下列逻辑表达式中，能正确表示条件“x和Y都是奇数”的是。(2005年9月) A) x Mod 2=1 Or y Mod 2=1 B) x Mod 2=0 Or y Mod 2=0 C)x Mod 2=1 And y Mod 2=1 D)x Mod 2=0 And y Mod 2=0 解析：要使x和y都是奇数，则x和y除以2的余数都必须是1。

5．VBA程序的多条语句可以写在一行中，其分隔符必须使用符号。(2006年4月) A)： B)’ C)； D)，

解析：VBA程序在一行上写多个语句时用冒号“：”作分隔符． 6．VBA表达式3*3＼3／3的输出结果是。(2006年4月) A) 0 B) 1 C) 3 D) 9

解析：VBA的表达式运算符优先级顺序“*”和“/”高于“\\”。此表达式先计算3*3=9和3/3=1，最后计算9＼1=9。

7．现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开tEmployee表，如果采用VBA代码完成，下面语句正确的是。(2006年4月) A)docmd.openform＂tEmployee＂ B)docmd.openview＂tEmployee＂ C)docmd.Opentable＂tEmployee＂ D)docmd.Openreport＂tEmployee＂

解析：docmd.openform使用openForm操作，可以从“窗体”视图、窗体“设计”视图、“打印预览”或“数据表”视图中打开一个窗体，可以选择窗体的数据