• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

运行下列程序，显示的结果是 Private Sub Command34_Click() i=0 Do i=i+1 Loop While i<10 MsgBox i End Sub

A．0
B．1
C．10
D．11
题目列表

你可能感兴趣的试题

单项选择题

若有如下sub过程： Sub sfun(x As Single，Y As Single) t=x：x=t／y y=t Mod y End Sub 在窗体中添加一个命令按钮command33，对应的事件过程如下： Private Sub Command33 Click() Dim aAs Single，b As Single a=5：b=4 sfun(a，b) MsgBox a&chr(10)+chr(13)＆b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为

A．1和1
B．1．25和1
C．1．25和4
D．5和4
单项选择题

运行下列程序，显示的结果是 Private Sub Command34_Click() i=0 Do i=i+1 Loop While i<10 MsgBox i End Sub

A．0
B．1
C．10
D．11
单项选择题

运行下列程序，在立即窗口显示的结果是 Private Sub Command0_．Click() Dim IAs Integer,JAs Integer For I=2 T0 10 For J=2 To 1／2 IfI mod J=0 Then ExitFor Next J IfJ＞sqr(I)Then Debug．Print I； Next 1 End Sub

A．1 5 7 9
B．4 6 8
C．3 5 7 9
D．2 3 5 7
单项选择题

运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是 Sub p10 Dim ij，arr(1 1)As Integer k=1 While k<=10 arr(k)=Val(InputBox(“请输入第”＆k&”个数： “，”输入窗口”)) k=k+1 Wend For i=1 To 9 j=i+1 If arr(i)>arr(j)Then temp=arr(i)=arr(i)=arr(j)：arr(j)=temp End If Debug．Print arr(i) Next i End Sub

A．无序数列
B．升序数列
C．降序数列
D．原输入数列
单项选择题

下列程序的功能是计算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。 Private Sub Command34 Click() t=0；m=0：sum=0 Do t=t+m：sum=sum+t m=____________ Loop While m<41 MsgBox“sum=”&sum End Sub 空白处应该填写的语句是

A．t+2
B．t+1
C．m+2
D．m+1
单项选择题

在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Commandl Click() Dim m(10) For k=1 To 10 m(k)=1 1-k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是

A．2
B．3
C．4
D．5
单项选择题

在窗体中有一个名为run34的命令按钮，事件代码如下： Private Sub run34 Click() f1=1：f2=1 For n=3 To 7 f=f1+f2 ：m f1=f2：f2=f Next n MsgBox f End Sub 打开窗体，单击命令按钮，消息框的输出结果是

A．8
B．13
C．21
D．其他结果
单项选择题

假定有如下的Sub过程： Sub sfun(x As Single，Y As Single) t=x：x=t／y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程： Private Sub Command l—Click() Dim a as single，b as single a=5：b=4 sfun a,b MsgBox a&chr(10)+chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为

A．1和1
B．1．25和1
C．1．25和4
D．5和4
单项选择题

Sub过程与Function过程最根本的区别是

A．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
B．Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
C．两种过程参数的传递方式不同
D．Function过程可以有参数，Sub过程不可以
单项选择题

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public x As IntegerPrivate Sub Command l_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．30
C．40
D．50
单项选择题

在过程定义中有语句：Private Sub GetData(ByRef f As Integer)其中“ByRef”的含义是

A．传值调用
B．传址调用
C．形式参数
D．实际参数
单项选择题

若要在子过程Procl调用后返回两个变量的结果，下列过程定义语句中有效的是

A．Sub Proc 1(n，m)
B．Sub Procl(ByVal n，m)
C．Sub Procl(n，BYVal m)
D．Sub Procl(ByVal n，ByVal m)
单项选择题

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

A．传值调用
B．传址调用
C．形式参数
D．实际参数
单项选择题

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

A．Sub Proc(x as Integer，y as Integer)
B．Sub Proc(ByVal z as Integer，y as Integer)
C．Sub Proc(x as Integer，ByVal y as Integer)
D．Sub Proc(ByVal z as Integer，ByVal y as Integer)
单项选择题

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

A．过程的定义可以嵌套，但过程的调用不能嵌套
B．过程的定义不可以嵌套，但过程的调用可以嵌套
C．过程的定义和过程的调用均可以嵌套
D．过程的定义和过程的调用均不能嵌套
单项选择题

在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub CommandI_Click() Dim x As Integer,y As Integer x=12：y=32 Call Proc(x，y)End SubPublic Sub Proc{h As Integer,ByVal m As Integer} n=n Mod 10 m=m Mod 10End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A．2 32
B．12 3
C．2 2
D．12 32
单项选择题

窗体中有命令按钮Commandl，事件过程如下：Public Function f(x As Integer)As Integer Dim yAs Integer x=20：y=2 f=x*y End FunctionPrivate Sub Command l Click() Dim y As Integer Static x As Integer x=10：y=5 y=f(x) Debug．Print x；yEnd Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是

A．10 5
B．10 40
C．20 5
D．20 40
单项选择题

不属于VBA提供的程序运行错误处理的语句结构是

A．On Error Then标号
B．On Error Goto标号
C．On Error Resume Next
D．On Error Goto 0
单项选择题

如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为

A．按值传递
B．按地址传递
C．ByRef传递
D．按形参传递
单项选择题

在代码中定义了一个子过程： Sub P(a，b) End．sub下列调用该过程的形式中，正确的是

A．P(10，20)
B．Call P
C．Call P 10，20
D．Call p(10，20)
单项选择题

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

A．语法错误
B．逻辑错误
C．运行错误
D．语法错误和逻辑错误
单项选择题

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

A．PrintOut
B．OutputTo
C．MsgBox
D．Set Warnings
单项选择题

在VBA中，能自动检查出来的错误是

A．语法错误
B．逻辑错误
C．运行错误
D．注释错误
单项选择题

在代码调试时，使用Debug．Print语句显示指定变量结果的窗口是

A．立即窗口
B．监视窗口
C．本地窗口
D．属性窗口
单项选择题

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

A．监视窗口
B．调用堆栈
C．立即窗口
D．本地窗口
单项选择题

现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是

A．docmd．openform“tEmployee”
B．docmd．openview“tEmployee”
C．docmd．opentable“tEmployee”
D．docmd．openreport“tEmployee”
单项选择题

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

A．DoCmd．OpenForm
B．OpenForm
C．Do．OpenForm
D．DoOpcn．Form
单项选择题

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

A．Count
B．rs．Count
C．RecordCount
D．rs．RecordCount
单项选择题

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

A．DoCmd．openForm”学生信息录入”
B．OpenForm“学生信息录入”
C．DoCmd．openWindow”学生信息录入”
D．OpenWindow“学生信息录入”
单项选择题

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

A．年龄=年龄+1
B．Update学生Set年龄=年龄+1
C．Set年龄=年龄+1
D．Edit学生Set年龄=年龄+1
单项选择题

下列程序的功能是返回当前窗体的记录集 Sub GetRecNum0 Dim rsAs Object Set rS= MsgBox r8．RecordC0unt End Sub 为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是

A．Recordset
B．Me．Recordset
C．RecordSource
D．Me．RecordSource
单项选择题

在Access中，DA0的含义是

A．开放数据库互连应用编辑接口
B．数据库访问对象
C．Active数据对象
D．数据库动态链接库
单项选择题

ADO的含义是

A．开放数据库互连应用编程接口
B．数据库访问对象
C．动态链接库
D．Active数据对象
单项选择题

利用ADO访问数据库的步骤是：④定义和创建ADO对象实例变量；②设置连续参数并打开连接；③设置命令参数并执行命令；④设置查询参数并打开记录集；⑤操作记录集；⑥关闭、回收有关对象。这些步骤的执行顺序应该是

A．①④③②⑤⑥
B．①③④②⑤⑥
C．①③④⑤②⑥
D．①②③④⑤⑥
单项选择题

ADO对象模型包括5个对象，分别是Connection、Command、Field．Error和

A．Database
B．Workspace
C．RecordSet
D．DBEngine
单项选择题

DAO层次对象模型的项层对象是

A．DBEngine
B．Workspace
C．Database
D．RecordSet
微信扫码免费搜题