Access第八章VBA.doc

2011 年3月( 23 )下列表达式中, 能正确表示条件“x和y 都是奇数”的是 A)x Mod 2=0 And y Mod 2=0 B)x Mod 2=0 Ory Mod 2=0 C)x Mod 2=1 And y Mod 2=1 D)x Mod 2=1 Ory Mod 2=1 ( 24 )若在窗体设计过程中,mand0 的事件属性设置如下图所示,则含义是 A )只能为" 进入" 事件和" 单击" 事件编写事件过程 B )不能为" 进入" 事件和" 单击" 事件编写事件过程 C)“进入”事件和“单击”事件执行的是同一事件过程 D )已经为“进入”事件和“单击”事件编写了事件过程( 25) 若窗体 Frm1 中有一个命令按钮 Cmd1 , 则窗体和命令按钮的 Click 事件过程名分别为 A) Form_Click() Command1_Click() B) Frm1_Click() Command1_Click() C) Form_Click() Cmd1_Click() D) Frm1_Click() Cmd1_Click() ( 26 )在 VBA 中,能自动检查出来的错误是 A )语法错误 B )逻辑错误 C )运行错误 D )注释错误( 27 )下列给出的选项中,非法的变量名是 A) Sum B) Integer_2 C) Rem D) Form1 ( 28) 如果在被调用的过程中改变了形参变量的值; 但又不影响实参变量本身, 这种参数传递方式称为 A )按值传递 B )按地址传递 C) ByRef 传递 D )按形参传递( 29 )表达式“ B=INT(A+) ”的功能是 A )将变量 A 保留小数点后 1位B )将变量 A 四舍五入取整 C )将变量 A 保留小数点后 5位D )舍去变量 A 的小数部分( 30) VBA 语句“ Dim NewArray(10) as Integer ”的含义是 A )定义 10 个整型数构成的数组 NewArray B )定义 11 个整型数构成的数组 NewArray C )定义 1 个值为整型数的变量 NewArray(10) D )定义 1 个值为 10 的变量 NewArray ( 31 )运行下列程序段,结果是 For m=10 to1 step 0 k=k+3 Next mA )形成死循环 B )循环体不执行即结束循环 C )出现语法错误 D )循环体执行一次后结束循环( 32 )运行下列程序,结果是 Private mand32_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 ( 33 )有如下事件程序,运行该程序后输出结果是 Private mand33_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 )输出其他结果( 34 )下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+ ……+(1+3+5+ ……+39) Private mand34_Click() t=0 : m=1 : sum=0 Do t=t+m sum=sum+t m=______ Loop While m<=39 MsgBox "Sum="&sum End Sub 为保证程序正确完成上述功能,空白处应填入的语句是 A) m+1 B) m+2 C) t+1 D) t+2 ( 35 )下列程序的功能是返回当前窗体的记录集 Sub um() Dim rs As Object Set rs=______ MsgBox End Sub 为保证程序输出记录集(窗体记录源)的记录数,空白处应填入的语句是 A) Recordset B) C) RecordSource D) (9 )在 VBA 中要将数值表达式的值转换为字符串,应使用函数 str() 。( 10 )运行下列程序,输入如下两行: Hi, I am here . 弹出的窗体中的显示结果是 Hi, 。 Private mand11_Click() Dim abc As String, sum As string sum="" Do abc=InputBox(" 输入 abc") If Right(abc,1)="."