下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+...+(1+...

单项选择题

运行下列程序，结果是______。
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k＜=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox"f="&f
End Sub

A．f=5
B．f=-7
C．f=-8
D．f=13

单项选择题

有如下事件程序，运行该程序后输出结果是______。
Private Sub Command33_Click()
Dim x As Integer,y As Integer
x=1:y=0
Do Until y＜=25
y=y+x*x
x=x+1
Loop
MsgBox"x="&x&",y="&y
End Sub

A．x=1，y=0
B．x=4，y=25
C．x=5，y=30
D．输出其他结果

单项选择题

下列程序的功能是计算
sum=1+(1+3)+(1+3+5)+...+(1+3+5+...+39)
private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=
Loop While m＜=39
NsgBox"Sum="∑
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是。

A．m+1
B．m+2
C．t+1
D．t+2

单项选择题

下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=
MsgBOx rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是。

A．Recordset
B．Me.Recordset
C．RecordSource
D．Me.RecordSource

单项选择题

在报表中，改变一个节的宽度将改变______。

A．只改变这个节的宽度
B．只改变报表的页眉、页脚宽度
C．改变整个报表的宽度
D．因为报表的宽度是确定的，所以不会有任何改变

单项选择题

用于查找满足条件的下一条记录的宏命令是

A．FindNext
B．F=indRecord
C．GoToRecord
D．Requery

单项选择题

在宏的表达式中还可能引用到窗体或报表上控件的值。引用窗体控件的值可以用表达式

A．Form!窗体名!控件名
B．Form!控件名
C．Form!窗体名
D．窗体名!控件名

单项选择题

当在一个报表中列出学生3门课a，b，c的成绩时，若要对每位学生计算3门课的平均成绩，只要设置新添计算控件的控制源为______。

A．“=a+b+c/3”
B．“(a+b+c)/3”
C．“=(a+b+c)/3”
D．以上表达式均错

单项选择题

在参数函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是______。

A．ByVal
B．ByRef
C．Qptional
D．ParamArray

下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+...+(1+3+5+...+39) private Sub Command34_Click() t=0 m=1 sum=0 Do t=t+m sum=sum+t m=______ Loop While m＜=39 NsgBox"Sum="∑ End Sub 为保证程序正确完成上述功能，空白处应填入的语句是______。

你可能感兴趣的试题

下列关于栈叙述正确的是______。

下列叙述中正确的是______。

在软件开发中，需求分析阶段产生的主要文档是______。

结构化程序所要求的基本结构不包括

下面描述中错误的是______。

数据库中查询操作的数据库语言是______。

某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为(假设根结点在第1层)______。

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是

定义无符号整数类为Uint，下面可以作为类UInt实例化值的是______。

有三个关系R、S和T如下： 则由关系R和S得到关系T的操作是______。

在学生表中要查找所有年龄大于30岁姓王的男同学，应该采用的关系运算______。

下列可以建立索引的数据类型是______。

下列关于字段属性的叙述中，正确的是______。

查询“书名”字段中包含“等级考试”字样的记录，应该使用的条件是______。

在Access中对表进行“筛选”操作的结果是

在学生表中使用“照片”字段存放相片，使用向导为该表创建窗体，照片字段使用的默认控件是______。

下列表达式计算结果为日期类型的是

若要将“产品”表中所有供货商是“ABC”的产品单价下调50，则正确的SQL语句是______。

若查询的设计如下，则查询的功能是

在教师信息输入窗体中，为职称字段提供“教授”、“副教授”、“讲师”等选项供用户直接选择，应使用的控件是______。

在报表中要显示格式为“共N页，第N页”的页码，正确的页码格式设置是______。

某窗体上有一个命令按钮，要求单击该按钮后调用宏打开应用程序Word，则设计该宏时应选择的宏命令是______。

下列表达式中，能正确表示条件“x和y都是奇数”的是______。

若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是

若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为______。

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

下列给出的选项中，非法的变量名是______。

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

表达式“B=INT(A+0.5)”的功能是______。

VBA语句“Dim NewArray(10)as Integer”的含义是______。

运行下列程序段，结果是______。 For m=10 to 1 step 0 k=k+3 Next m

运行下列程序，结果是______。 Private Sub Command32_Click() f0=1:f1=1:k=1 Do While k＜=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox"f="&f End Sub

有如下事件程序，运行该程序后输出结果是______。 Private Sub Command33_Click() Dim x As Integer,y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox"x="&x&",y="&y End Sub

下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+...+(1+3+5+...+39) private Sub Command34_Click() t=0 m=1 sum=0 Do t=t+m sum=sum+t m=______ Loop While m＜=39 NsgBox"Sum="∑ End Sub 为保证程序正确完成上述功能，空白处应填入的语句是______。

下列程序的功能是返回当前窗体的记录集 Sub GetRecNum() Dim rs As Object Set rs=______ MsgBOx rs.RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是______。

在报表中，改变一个节的宽度将改变______。

用于查找满足条件的下一条记录的宏命令是

在宏的表达式中还可能引用到窗体或报表上控件的值。引用窗体控件的值可以用表达式

当在一个报表中列出学生3门课a，b，c的成绩时，若要对每位学生计算3门课的平均成绩，只要设置新添计算控件的控制源为______。

在参数函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是______。

下列程序的功能是计算
sum=1+(1+3)+(1+3+5)+...+(1+3+5+...+39)
private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=
Loop While m＜=39
NsgBox"Sum="∑
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是。

有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是______。

运行下列程序段，结果是______。
For m=10 to 1 step 0
k=k+3
Next m

运行下列程序，结果是______。
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k＜=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox"f="&f
End Sub

有如下事件程序，运行该程序后输出结果是______。
Private Sub Command33_Click()
Dim x As Integer,y As Integer
x=1:y=0
Do Until y＜=25
y=y+x*x
x=x+1
Loop
MsgBox"x="&x&",y="&y
End Sub

下列程序的功能是计算
sum=1+(1+3)+(1+3+5)+...+(1+3+5+...+39)
private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=
Loop While m＜=39
NsgBox"Sum="∑
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是。

下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=
MsgBOx rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是。