Access第八章VBA.docVIP

2011年3月 　（23）下列表达式中,能正确表示条件“x和y都是奇数”的是　　A）x Mod 2=0 And y Mod 2=0B）x Mod 2=0 Or y Mod 2=0　　C）x Mod 2=1 And y Mod 2=1D）x Mod 2=1 Or y Mod 2=1 （24）若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是 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+0.5)”的功能是　　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 to 1 step 0　　k=k+3　　Next m　　A）形成死循环?????????????? B）循环体不执行即结束循环　　C）出现语法错误???????????? D）循环体执行一次后结束循环 　　（32）运行下列程序，结果是　　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 　　（33）有如下事件程序，运行该程序后输出结果是　　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=25C）x=5,y=30????D）输出其他结果 　　（34）下列程序的功能是计算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　　MsgBox Sum=sum　　End Sub　　为保证程序正确完成上述功能，空白处应填入的语句是　　A）m+1??? B）m+2C）t+1???D）t+2 （35）下列程序的功能是返回当前窗体的记录集　　Sub GetRecNum()　　Dim rs As Object　　Set rs=______　　MsgBox rs.RecordCount　　End Sub　　为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是　　A）Recordset??? 　B）Me.Recordset 　C）RecordSource??? D）Me.RecordSource（9）在VBA中要将数值表达式的值转换为字符串，应使用函数str() 。 　　（10）运行下列程序，输入如下两行： 　　Hi, 　　I am