你可能感兴趣的试题

单项选择题
启动窗体时，系统首先执行的事件过程是______。
A.Load
B.Click
C.Unload
D.GotFocus
单项选择题
下列操作中，适宜使用宏的是______。
A.修改数据表结构
B.创建自定义过程
C.打开或关闭报表对象
D.处理报表中错误
单项选择题
为窗体或报表的控件设置属性值的正确宏操作命令是______。
A.Set
B.SetData
C.SetValue
D.SetWarnings
单项选择题
在设计条件宏时，对于连续重复的条件，要代替重复条件表达式可以使用符号______。
A....
B.：
C.!
D.=
单项选择题
在运行宏的过程中，宏不能修改的是______。
A.窗体
B.宏本身
C.表
D.数据库
单项选择题
在宏的参数中，要引用窗体F1上的Text1文本框的值，应该使用的表达式是______。
A.[Forms]![F1]![Text1]
B.Text1
C.[F1].[Text1]
D.[Forms]_[F1]_[Text1]
单项选择题
下列叙述中，错误的是______。
A.宏能够一次完成多个操作
B.可以将多个宏组成一个宏组
C.可以用编程的方法来实现宏
D.宏命令一般由动作名和操作参数组成
单项选择题
宏操作Quit的功能是______。
A.关闭表
B.退出宏
C.退出查询
D.退出Access
单项选择题
要限制宏命令的操作范围，可以在创建宏时定义______。
A.宏操作对象
B.宏条件表达式
C.窗体或报表控件属性
D.宏操作目标
单项选择题
不能够使用宏的数据库对象是______。
A.数据表
B.窗体
C.宏
D.报表
单项选择题
打开查询的宏操作是______。
A.OpenForm
B.OpenQuery
C.OpenTable
D.OpenModule
单项选择题
宏操作Set Value可以设置______。
A.窗体或报表控件的属性
B.刷新控件数据
C.字段的值
D.当前系统的时间
单项选择题
要将一个数字字符串转换成对应的数值，应使用的函数是______。
A.Val
B.Single
C.Asc
D.Space
单项选择题
下列变量名中，合法的是______。
A. 4A
B.A-1
C.ABC_1
D.private
单项选择题
若变量i的初值为8，则下列循环语句中循环体的执行次数为______。 Do While i＜=17 i=i+2 Loop
A.3次
B.4次
C.5次
D.6次
单项选择题
下列能够交换变量X和Y值的程序段是______。
A.Y=X:X=Y
B.Z=X:Y=Z:X=Y
C.Z=X:X=Y:Y=Z
D.Z=X:W=Y:Y=Z:X=Y
单项选择题
窗体中有命令按钮Command1，事件过程如下： Public Function f(x As Integer)As Integer Dim y As Integer x=20 y=2 f=x*y End Function Private Sub Command 1_Click() Dim y As Integer Static x As Integer x=10 y=5 y=f(x) Debug.Print x;y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是______。
A.10 5
B.10 40
C.20 5
D.20 40
单项选择题
窗体中有命令按钮command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod2=0 Then result=-True Else result=False End If End Function Private Sub Command1_Click() x=Val(InputBox("请输入一个整数")) If______Then Text1=str(x) &"是偶数" Else Text1=str(x) &”是奇数” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的空白处应填写______。
A.result(x)=“偶数”
B.result(x)
C.result(x)=“奇数”
D.NOT result(x)
单项选择题
窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： Private Sub Command1_Click() For i=1 To 4 x=3 Forj=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是______。
A.6
B.12
C.18
D.21
单项选择题
窗体中有命令按钮run34，对应的事件代码如下： Private Sub run34_Enter() Dim num As Integer，a As Integer，b As Integer，i As Integer For i=1 To 10 num=InputBox("请输入数据：","输入") If Int(num/2)=num/2 Then a=a+1 Else b=b+l End If Next i MsgBox(”运行结果：a="&Str(a)&’,b="&Str(b)) End Sub 运行以上事件过程，所完成的功能是______。
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据分别统计奇数和偶数的个数
D.对输入的10个数据分别统计整数和非整数的个数
单项选择题
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是______。 Private Sub Form_click() Dim sum As Integer，m As Integer sum=0 Do m=InputBox("输入m") sum=sum+m Loop Until m=0 MsgBox sum End Sub
A.0
B.17
C.20
D.21
单项选择题
如果x是一个正的实数，保留两位小数、将千分位四舍五入的表达式是______。
A.0.01*Int(x+0.05)
B.0.01*Int(100*(X+0.005))
C.0.01*Int(x+0.005)
D.0.01*Int(100*(X+0.005))
单项选择题
在模块的声明部分使用“OptionBasel”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为______。
A.20
B.24
C.25
D.36
单项选择题
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InPutBox{"y"} If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是______。
A.37 55 64 28 19 19
B.10 50 20
C.10 50 20 0
D.37 55 64 28 19
单项选择题
在调试VBA程序时，能自动被查出来的错误是______。
A.语法错误
B.逻辑错误
C.运行错误
D.语法错误和逻辑错误
单项选择题
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim x As Integer,y As Integer X=12：y=32 Call Proc(x，y) End Sub Public Sub Proc{h As Integer，ByVal m As Integer} n=nMod 10 m=mMod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是______。
A.2 32
B.12 3
C.2 2
D.12 32
单项选择题
由“For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行______。
A.0次
B.1次
C.4次
D.5次
单项选择题
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i,j,x For i=1 To 20 sep 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是______。
A.1
B.7
C.17
D.400
单项选择题
用于获得字符串S最左边4个字符的函数是______。
A.Left(S,4)
B.Left(S,1,4)
C.Leftstr(S,4)
D.Leftstr(S,0,4)
单项选择题
下列数据类型中，不属于VBA的是______。
A.长整型
B.布尔型
C.变体型
D.指针型
单项选择题
下列数组声明语句中，正确的是______。
A.Dim A[3,4] As Integer
B.Dim A(3,4)As Integer
C.Dim A[3;4]As Integer
D.Dim A(3;4)As Integer
单项选择题
在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer S=P(1)+P(2)+P(3)+P(4) debug.Print S End Sub Public Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是______。
A.15
B.20
C.25
D.35
单项选择题
在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 IfX＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是______。
A.1
B.2
C.3
D.4
单项选择题
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.value=str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是______。
A.6
B.12
C.18
D.21
单项选择题
在VBA中，下列关于过程的描述中正确的是______。
A.过程的定义可以嵌套，但过程的调用不能嵌套
B.过程的定义不可以嵌套，但过程的调用可以嵌套
C.过程的定义和过程的调用均可以嵌套
D.过程的定义和过程的调用均不能嵌套
单项选择题
在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是______。
A.DoCmd.OpenForm"学生信息录入"
B.OpenForm"学生信息录入"
C.DoCmd.OpenWindow"学生信息录入"
D.OpenWindow"学生信息录入"
单项选择题
下列四个选项中，不是VBA的条件函数的是______。
A.Choose
B.If
C.IIf
D.Switch
单项选择题
设有如下过程： x=1 Do x=x+2 Loop Until______ 运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是______。
A.x＜=7
B.x＜7
C.x＞=7
D.x＞7
单项选择题
要显示当前过程中的所有变量及对象的取值，可以利用的调试窗口是______。
A.监视窗口
B.调用堆栈
C.立即窗口
D.本地窗口
单项选择题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer,n As Integer)As Integer Do While m＜＞n Do While m＞n m=m-n Loop Do While m＜n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A.2
B.4
C.6
D.8
单项选择题
要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是______。
A.Sub Proc(x as Integer,y as Integer)
B.Sub Proc(ByVal x as Integer,y as Integer)
C.Sub Proc(x as Integer,ByVal y as Integer)
D.Sub Proc(ByVal x as Integer,ByVal y as Integer)
单项选择题
在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为______。
A.程序范围
B.全局范围
C.模块范围
D.局部范围
单项选择题
表达式Fix(-3.25)和Fix(3.75)的结果分别是______。
A.-3，3
B.-4，3
C.-3，4
D.-4，4
单项选择题
在VBA中，错误的循环结构是______。
A.Do While条件式循环体 Loop
B.Do Until条件式循环体 Loop
C.Do Until 循环体 Loop条件式
D.Do 循环体 Loop while条件式
单项选择题
在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolcan result=0 flag=True Do While flag result=Val(InputBox("请输入学生成绩:","输入")) If result＞=0 And result＜=100 Then ______ Else MsgBox "成绩输入错误，请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。
A.flag=False
B.flag=Not flag
C.flag=True
D.Exit Do
单项选择题
在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是______。
A.10
B.30
C.55
D.其他结果
单项选择题
InputBox函数的返回值类型是______。
A.数值
B.字符串
C.变体
D.视输入的数据而定
单项选择题
在过程定义中有语句：Private Sub GetData(ByVal data As Integer)，其中“ByVal”的含义是______。
A.传值调用
B.传址调用
C.形式参数
D.实际参数
单项选择题
能够实现从指定记录集里检索特定字段值的函数是______。
A.Nz
B.Find
C.Lookup
D.DLookup
单项选择题
下列程序段的功能是实现“学生”表中“年龄”字段值加1。 Dim Str As String Str="______" Docmd.RunSQL Str 空白处应填入的程序代码是______。
A.年龄=年龄+1
B.Update学生Set年龄：年龄+1
C.set年龄=年龄+1
D.Edit学生Set年龄：年龄+1
单项选择题
下列属于通知或警告用户的命令是______。
A.PrintOut
B.OutputTo
C.MsgBox
D.SetWarnings
单项选择题
下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.Recordset MsgBox______ End Sub 程序空白处应填写的是______。
A.Count
B.rs.Count
C.RecordCount
D.rs.RecordCount
单项选择题
能够实现从指定记录集里检索特定字段值的函数是______。
A.DCount
B.DLookup
C.DMax
D.DSum
单项选择题
在VBA中，实现窗体打开操作的命令是______。
A.DoCmd.OpenForm
B.OpenForm
C.Do.OpenForm
D.DoOpcn.Form
单项选择题
ADO的含义是______。
A.开放数据库互连应用编程接口
B.数据库访问对象
C.动态链接库
D.Active数据对象

要将一个数字字符串转换成对应的数值，应使用的函数是______。

你可能感兴趣的试题

启动窗体时，系统首先执行的事件过程是______。

下列操作中，适宜使用宏的是______。

为窗体或报表的控件设置属性值的正确宏操作命令是______。

在设计条件宏时，对于连续重复的条件，要代替重复条件表达式可以使用符号______。

在运行宏的过程中，宏不能修改的是______。

在宏的参数中，要引用窗体F1上的Text1文本框的值，应该使用的表达式是______。

下列叙述中，错误的是______。

宏操作Quit的功能是______。

要限制宏命令的操作范围，可以在创建宏时定义______。

不能够使用宏的数据库对象是______。

打开查询的宏操作是______。

宏操作Set Value可以设置______。

要将一个数字字符串转换成对应的数值，应使用的函数是______。

下列变量名中，合法的是______。

若变量i的初值为8，则下列循环语句中循环体的执行次数为______。 Do While i＜=17 i=i+2 Loop

下列能够交换变量X和Y值的程序段是______。

窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： Private Sub Command1_Click() For i=1 To 4 x=3 Forj=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是______。

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是______。 Private Sub Form_click() Dim sum As Integer，m As Integer sum=0 Do m=InputBox("输入m") sum=sum+m Loop Until m=0 MsgBox sum End Sub

如果x是一个正的实数，保留两位小数、将千分位四舍五入的表达式是______。

在模块的声明部分使用“OptionBasel”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为______。

在调试VBA程序时，能自动被查出来的错误是______。

由“For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行______。

用于获得字符串S最左边4个字符的函数是______。

下列数据类型中，不属于VBA的是______。

下列数组声明语句中，正确的是______。

在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 IfX＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是______。

在VBA中，下列关于过程的描述中正确的是______。

在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是______。

下列四个选项中，不是VBA的条件函数的是______。

设有如下过程： x=1 Do x=x+2 Loop Until______ 运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是______。

要显示当前过程中的所有变量及对象的取值，可以利用的调试窗口是______。

要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是______。

在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为______。

表达式Fix(-3.25)和Fix(3.75)的结果分别是______。

在VBA中，错误的循环结构是______。

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是______。

InputBox函数的返回值类型是______。

在过程定义中有语句：Private Sub GetData(ByVal data As Integer)，其中“ByVal”的含义是______。

能够实现从指定记录集里检索特定字段值的函数是______。

下列程序段的功能是实现“学生”表中“年龄”字段值加1。 Dim Str As String Str="______" Docmd.RunSQL Str 空白处应填入的程序代码是______。

下列属于通知或警告用户的命令是______。

下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.Recordset MsgBox______ End Sub 程序空白处应填写的是______。

能够实现从指定记录集里检索特定字段值的函数是______。

在VBA中，实现窗体打开操作的命令是______。

ADO的含义是______。

设有如下过程： x=1 Do x=x+2 Loop Until 运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是。

下列程序段的功能是实现“学生”表中“年龄”字段值加1。 Dim Str As String Str="" Docmd.RunSQL Str 空白处应填入的程序代码是。

下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.Recordset MsgBox End Sub 程序空白处应填写的是。