37. 在窗体中有一个命令按钮Command0,对应的事件代码如下: Private Sub Command0_Click() Dim J As Integer J=10 Call GetData(J+5) MsgBox J End Sub Private Sub GetData(ByRef f As Integer) f=f+20 End Sub 运行程序,输出结果是______。
A.30
B.15
C.10
D.35
A B C D
C
[解析] 在Command0_Click()事件过程中,利用Call GetData(J+5)语句来调用GetData过程,表达式J+5为实参,被调过程GetData(ByRef f As Integer)中的f为形参。实参可以是常量、变量或表达式三种方式之一,常量或表达式在传递时,形参即便是传址(ByRef)说明,实际传递的也只是常量或表达式的值,在这种情况下,过程参数“传址调用”的“双向”作用形式起不了作用,故本题在形参中尽管使用了ByRef,但是对形参的改变不会影响J的值。
38. 在窗体中有一个命令按钮Command0,两个文本框Text0和Text1。命令按钮的Click事件代码如下: Private Sub Command0_Click() x=Val(Me!Text1) If result(x)Then Text0=Str(x)& "是奇数." Else Text0=Str(x)&"是偶数." End If End Sub Function result(ByVal x As Integer)As Boolean result=False End Function 程序运行时,在Text1中输入21,单击命令按钮后Text0中显示“21是奇数”。则程序空白处应填写的语句是______。
A.If x Mod 2=0 Then result=True End If
B.If x Mod 2=1 Then result=True End If
C.If x Mod 10<>0 Then result=True End If
D.If x Mod 10=0 Then result=True End If
A B C D
B
[解析] 在If—Then语句中,如果条件为真,即result(x)为真,返回‘True,则x是奇数。因此,在result()函数中,根据x的奇偶性给result赋值,x Mod 2=1表示x为奇数,则result=True。
39. VBA语句“Dim NewArray(20)As Integer”的含义是______。
A.定义20个整型数构成的数组NewArray
B.定义21个整型数构成的数组NewArray
C.定义1个值为整型数的变量NewArray(20)
D.定义1个值为20的变量NewArray
A B C D
B
[解析] 数组是在有规则的结构中包含一种数据类型的一组数据,也称为数组元素变量。数组变量由变量名和数组下标构成,通常用Dim语句来定义数组,定义格式:Dim数组名([下标下限to]下标上限),缺省情况下,下标下限为0,数组元素从“数组名(0)”至“数组名(下标上限)”;如果使用to选项,则可以安排非0下限。本题Dim NewArray(20)As Integer等价于Dim NewArray(0 to 20)As Integer,定义了一个一维整型数组,数组名为NewArray,该数组共有21个数组元素,分别是NewArray(0)、NewAray(1)、NewArray(2)、NewArray(3)、...、NewArrayr(20)。
40. 数据库中有数据表“Emp”,包括“Eno”“Ename”“Eage”“Esex”“Edate”“Eparty”等字段。 下列程序段的功能:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作。 Private Sub btnDelete_Click()'单击"删除"按钮 Dim strSQL As String '定义变量 strSQL="delete from Emp" '赋值SQL基本操作字符串 '判断窗体年龄条件值无效(空值或非数值)的处理 If IsNull(Me!tValue)=True Or IsNumeric(MekValue)=False Then MsgBox"年龄值为空或非有效数值!",vbCritieal. "Error" '窗体输入焦点移回年龄输入的文本框"tValue"控件内 Me!tValue.SetFocus Else '构造条件删除查询表达式 strSQL=strSQL&"where Eage="&Me!tValue '消息框提示"确认删除?(Yes/No)”,选择”Yes”实施删除操作 IfMsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认")=vbYes Then '执行删除查询 DoCmd.______strSQL MsgBox”completed!”,vblnformation,”Msg” End If End If End Sub 按照功能要求,在空白处应填写的是______。