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

单项选择题

窗体中有命令按钮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("请输入一个整数")) IfThen 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 程序空白处应填写的是。