vba上课习题.docx

1、vba上课习题1现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是A docmd.openform tEmployeeB docmd.openview tEmployeeC docmd.opentable tEmployeeD docmd.openreport tEmployee2表达式Val(.123E2CD)的值是（val 函数作用就是数字类型和字符类型混合时，把字符类型去掉）A.123 B 12.3C 0 D .123E2CD3在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand，并编

2、写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是A Private Sub bCommand_Click( ) Caption = 计算机等级考试 End SubB Private Sub tText_Click( ) bCommand.Caption = 计算机等级考试 End SubC Private Sub bCommand_Change( ) Caption = 计算机等级考试 End SubD Private Sub tText_Change( ) bCommand.Caption = 计算机等级考试

3、End Sub4表达式1.5+322 Or 7 Mod 360 Then k = 1 ElseIf a70 Then k = 2 ElseIf a80 Then k = 3 ElseIf a90 Then k = 4 EndIf MsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A. 1 B. 2C. 3 D. 4A7有如下程序段： Dim I As Integer IInt（3.25） 执行后，I的返回值是A3 B4 C3 D3.258设有如下窗体单击事件过程：Private Sub Form_Click() a = 1 For i = 1 To 3 Selec

4、t Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出的结果是A. 3 B. 4C. 5 D. 69下列代码中（ ）可以使控件TxtBox获得焦点。A）set TxtBox.focus B）set TxtBox.Focus=TrueC）TxtBox.SetFocus D）TxtBox.SetFocus=True10VBA中不能进行错误处理的语句结构是A On Error Then标号B On Error Goto标号C On Error Resu

5、me NextD On Error Goto 0A11在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(Keyascii As Integer) . End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A 单击鼠标 B 双击文本框C 鼠标滑过文本框 D按下键盘上的某个键12VBA程序的多条语句可以写在一行中，其分隔符必须使用符号A : B C ; D , 13在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click()a=0 : b=5 : c

6、=6MsgBox a=b+cEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A l1 B a=11C 0 D False14定义了二维数组A(2 to 5,5)，该数组的元素个数为A 20 B 24C 25 D 3615使用Function语句定义一个函数过程，其返回值的类型A 只能是符号常量B 是除数组之外的简单数据类型C 可在调用时由运行过程决定D 由函数定义时As子句声明16以下可以得到2*5=10结果的VBA表达式为A 2*5 & = & 2*5B 2*5 + = + 2*5C 2*5 & = & 2*5D 2*5 + = + 2*517下列关于VBA面向对象程序设

7、计中的“方法”说法正确的是A 方法是属于对象的B 方法是独立的实体C 方法也可以由程序员定义D 方法是对事件的响应18在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A 1 B 2C 3 D 419下列Case语句中错误的是A Case 0 To 10B Case Is10C Case Is10 An

8、d Is1020在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array(北京,上海,天津,重庆) Print city(1) End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A 空白 B 错误提示C 北京 D 上海21以下程序段运行后，消息框的输出结果是a=sqr(3)b=sqr(2)c=abMsgbox c+2A -1 B 1C 2 D 出错22设有如下声明： Dim X As Integer如果Sgn(X)的值

9、为-1，则X的值是A 整数B 大于0的整数C 等于0的整数D 小于0的数23在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Public x As IntegerPrivate Sub Command1_Click( ) x = 10 Call s1 Call s2 MsgBox xEnd SubPrivate Sub s1( ) x = x + 20End SubPrivate Sub s2( ) Dim x As Integer x = x + 20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为A 10 B 30C 40 D 50 24设有如下程序：P

10、rivate Sub Command1_Click( Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x=n/i n=n+1 sum=sum+x Next iEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是A 1+1/2+2/3+3/4+4/5B 1+1/2+1/3+1/4+1/5C 1/2+2/3+3/4+4/5D 1/2+1/3+1/4+1/525下列可作为VBA变量名的是A A#AB 4AC ?xyD constA26在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Comm

11、and1_Click( Dim a( a=Array(1,3,5,7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub程序运行后，输出结果为A 135B 357C 531D 75327在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Click() a = 1234 b = Len(a) Me.Lb1.Caption = bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A 4 B 5

12、C 10 D 4028使用VBA的逻辑值进行算术运算时，True值被处理为A -1 B 0C 1 D 任意值29在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) Dim a(10,10 For m=2 To 4 For n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5)End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A 22 B 32C 42 D 5230以下程序段运行结束后，变量x的值为x = 2y = 4Do x = x*

13、y y = y+1Loop While y关系运算符连接运算符B算术运算符连接运算符逻辑运算符C连接运算符算术运算符关系运算符D逻辑运算符关系运算符算术运算符37有如下语句：s=Int(100*RnD）执行完毕后，s的值是 A0,99的随机整数 B0,100的随机整数 C1,99的随机整数 D1,100的随机整数38.InputBox函数的返回值类型是 A.数值 B.字符串 C.变体 D.数值或字符串（视输入的数据而定）39.在过程定义中有语句：Private Sub GetData ( ByRef f As Integer )其中“ByRef”的含义是 A.传值调用 B.传址调用C.形式参数

14、 D.实际参数40.在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码Private Sub Command1_Click() Dim a, b, c, s a = 5: b = 7 s = (a b) + 5 MsgBox sEnd Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为 A.4 B.5C.6 D.出错42.在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码Private Sub Command1_Click() Dim a, b, c, s a = 5: b = 7: s = 0 s = 5 + 8 MsgBox s = 5 +

15、8End Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A.-1 B.1 C.13 D.True43.在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码Private Sub Command1_Click() Dim a, b, c, s a = 5: b = 7: s = 0 s = 5 and 8 MsgBox s End Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A.-1 B.0 C.13 D.True44.窗体打开运行后，如果单击命令按钮，则消息框的输出结果为在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Priv

16、ate Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为 A.l1 B.a=11C. 0 D.False45.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) s=ABBACDDCBA For I=6 To 2 Step 2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MsgBox zEnd Sub窗体打开运行后，单击命令按钮，则

17、消息框的输出结果是 A. AABAAB B. ABBABA C. BABBA D. BBABBA46.于获得字符串Str从第2个字符开始的3个字符的函数是 A.Mid(Str,2,3) B. Middle(Str,2,3) C.Right(Str,2,3) D. Left(Str,2,3)47.假定有如下的Sub过程：Sub sfun ( x As Single, y As Single )t = xx = t/yy = t Mod yEnd Sub在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim a as

18、singleDim b as singlea = 5b = 4sfun a,bMsgBox a & chr(10)+chr(13) & bEnd Sub打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为 A.1和1 B.1.25和1 C.1.25和4 D.5和448Select CaseEnd Select结构与下列（ ）语句结构可以实现同样的功能。 A）ifthenend if B）ForNeXt C）DoLoop D）WhileWend49当X=3时，执行下面的程序后，txt文本框的结果是（ ）。 Select Case x Case 1，3，5 Txt.Text=“结果 1” Ca

19、se 1 to 4 Txt.Text=“结果 2” Case IS6 Txt.Text“结果 3” Case 3 Txt.Text=“结果4” End SelectA）结果 1 B）结果 2 C）结果 3 D）结果 450根据下列程序段，运算结果正确的是（ ）。 Dim x As Single Dim y As Single If x 0 then y = 3 ElseIf x 1 Then y = 2 * x Else y = 4 * x + 6End IfA）当 x = 2时，y 2 B）当 x = 一1时，y = 一7C）当x = 05时，y = 4 D）当x 25时，y = 1151下

20、面程序的结果是（ ）。 il j0DO j = j十i ii十1Loop Until i5A）0 B）1 C）4 D）552执行语句c=IIf（0，3，2）后，c的值为（ ）。A）0 B）3 C）2 D）Null53语句c=Swith（x0，x5，x=0，x2，x0，x2），当x3时，c的值为（ ）。A）2 B）3 C）5 D）954语句 c=Choose（x，x-3，-x，x2），当 x=3时，c的值为（ ）。A） 0 B） 3 C）-3 D） 555VBA中用于验证变量是否己经初始化的函数是（ ）。A）IsNumeric B）IsNull C）IsEmpty D）IsErro56下列说法正

21、确的是（ ）。A）VBA和宏都可以对错误进行处理B）宏参数不是固定的，可以在运行宏时更改C）宏不支持嵌套的If Then结构D）将窗体或报表导入到其他数据库中时，同时导入它们的宏57下面（ ）方式不能打开VBA编辑器。A）通过对象属性表的事件标签页B）在数据库窗口的“模块”对象列表中双击一个模块C）单击“工具”|“宏”|“Visual Basic编辑器”命令D）AltF258在Access下，打开VBA的快捷键是（ ）。A）F5 B）AltF4 C） AltFll D） AltF1259在VBA编辑器中打开立即窗口的命令是（ ）。A）Ctrl+G B）Ctrl+V C）Ctrl+C D）Ctr

22、l+R60在VBA编辑器中，能够在中断模式下安排一些调试语句并显示其值变化的窗口是 （ ）。A）本地窗口 B）立即窗口 C）监视窗口 D）快速监视61声明子程序以（ ）关键字开头。A）Sub B）End Sub C）Function D）End Function62输入Shift键时，触发了（ ）事件。A）KeyUp B）KeyPress C）KeyDown D）Click63标准模块和类模块的主要区别是（ ）。A）只是作用范围 B）只是生命周期C）作用范围和生命周期 D）以上都不对64函数过程不能用（ ）来调用执行。A）Dim B）main C）Public D）Call65下列不属于鼠标事

23、件的是（ ）。A）Click B）DbClick C）Open D）MouseMove66当用户在系统双击时间限度内，在一个对象上按下并释放鼠标左键两次，（ ）事件发生。A）Click B）DblClick C）MouseUp D）MouseDown67当用户（ ）鼠标时，会发生MouseMove事件。A）双击 B）按下 C）释放 D）移动68（ ）事件在打开、调整或关闭窗体或报表时发生。A）键盘 B）鼠标 C）窗口 D）操作69下列关于窗口事件叙述中，正确的是（ ）。A）当窗体已打开，但第1条记录未显示时，将触发Close事件B）当窗体或报表被关闭并从屏幕删除时，将触发Close事件C）窗体

24、打开并且显示其中记录时，将触发Unload事件D）Load事件发生在窗体被关闭之后70在窗体打开后，只窗体大小有更改，则发生（ ）事件。A）Open B）Close C）Load D）Resize71当文本框或组合框的文本部分的内容更改时，将发生（ ）事件。A）Change B）Current C）GotFocus D）LostFocus72下列（ ）情况不需要使用VBA代码。A）创建用户自定义函数 B）复杂程序处理C）添加字段 D）使用ActiveX控件和其他应用程序对象73在创建Function或Sub过程时，如果想在调用它们时为过程提供信息，可声明（ ）。A）程序 B）语句 C）方法 D）参数74（ ）是Visual Basic程序设计的核心。A）对象B）属性 C）事件 D）方法75已定义好有参函数f(m)，其中形参m是整型量，下面调用该函数，传递实参为5，将返回的函数值赋给变量t。以下正确的是（ ）。A）t=f(M) B）t=Callf(m)C）t=cal