内容发布更新时间 : 2024/11/15 7:05:07星期一 下面是文章的全部内容请认真阅读。
D、初值必须大于终值 20、下列关于Do···Loop语句的叙述不正确的是（ ）。 A、Do···loop语句采用逻辑表达式来控制循环体执行的次数 B、当Do while···Loop或Do until···Loop语句中while或until后的表达式的值为true或非零时，循环继续 C、Do···Loop while语句与Do···Loop until语句都至少执行一次循环体 D、Do while···Loop语句与Do until···Loop语句可能不执行循环体 21、Inputbox函数返回值的类型是（ ）。 A、数值 B、字符串
C、变体 D、数值或字符串（视输入的数据而定） 22、使文本框获得焦点的方法是（ ）。
A、Chang B、Gotfocus C、Setfocus D、Lostfocus
23、语句Dim a(-3 to 5) as integer所定义的数组的元素个数是（ ）。 A、6 B、7 C、8 D、9
24、Sub过程和Function过程最根本的区别是（ ）。
A、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 B、Sub过程可以使用Call语句或直接使用过程名，而Function过程不能 C、两种过程参数的传递方式不同
D、Function过程可以有参数，Sub过程不能有参数 25、用一个对象来表示“一只白色的足球被踢进球门”，那么“白色”，“足球”，“踢”，“进球门”分别对应的是（ ）。
A、属性对象方法事件 B、属性对象事件方法 C、对象属性方法事件 D、对象属性事件方法 26、下列给出的选项中，非法的变量名是（ ）。 A、Sum B、Integer_2 C、Rem D、Form1
27、下列关于对象“更新前”事件的叙述中，正确的是（ ）。 A、在控件或记录的数据变化后发生的事件 B、在控件或记录的数据变化前发生的事件 C、当窗体或控件接受到焦点时发生的事件 D、当窗体或控件失去了焦点时发生的事件
28、若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为（ ）。
A、Form_Click（）和Command1_Click（） B、Frm1_Click（）和Command1_Click（） C、Form_Click（）和Cmd1_Click（） D、Frm1_Click（）和Cmd1_Click（） 29、如果X是一个正的实数，保留两位小数，将千分位四舍五入的表达式是（ ）。 A、0.01*Int(X+0.05) B、0.01*lnt(100*(X+0.005)) C、0.01*Int(X+0.005) D、0.01*Int(100*(X+0.05))
30、在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i,J,x
For i=1 To 20 step 2 x=0
For j=i to 20 step 3
x =x+1
Next j Next i
Text1.Value=str(x) End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ） A、1 B、7 C、17 D、400 31、在已建窗体中有一命令按钮（名为Command1），该按钮的单击事件对应的VBA代码为： Private Sub Command1_Click()
SubT.Form.RecordSource=”select * From 雇员” End Sub
单击该按钮实现的功能是（ ）
A、使用select命令查找“雇员”表中的所有记录。
B、使用select命令查找并显示“雇员”表中的所有记录。 C、将subT窗体的数据源设置为一个字符串。 D、将subT窗体的数据源设置为“雇员”表。
32、因修改文本框中的数据而触发的事件是（ ）。 A、Chang B、Edit C、Getfocus D、Lostfocus 33、在窗体中有一个文本框Text1，编写的事件代码如下： Private Sub Form_Click()
X=val(inputbox(“输入X的值”)) Y=1
If x<>0 then y=2 Text1.value=y End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（ ） A、1 B、2 C、3 D、4
34、在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() For i=1 To 4 x=3
For j=1 to 3 For k=1 to 2 x=x+3 Next k
Next j Next i
Text1.value=str(x) End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是( ) A、6 B、12 C、18 D、21
35、窗体上有命令按钮Command1，事件的过程如下： Private Function f (x as integer) as integer Dim y as integer X=20
Y=2 F=x*y End Function
Private Sub Command1_Click() Dim y as integer Static x as integer X=10 Y=5 Y=f(x)
Debug.print x;y End Sub
运行程序，单击命令按钮，则窗口中显示的内容是（ ） A、10 5 B、10 40 C、20 5 D、20 40 36、在窗体上有命令按钮Command1，事件的过程如下： Private Sub Command1_Click() Dim s as integer
S=p(1)+p(2)+p(3)+p(4) Debug.print s End Sub
Public Function p (N as integer) Dim sum as integer Sum=0 For i=1 to N
Surn=sum+i Next i P=sum End Function
打开窗体运行后，单击命令按钮，输出结果是（ ） A、15 B、20 C、25 D、35
37、下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。 Sub GetRecNum() Dim rs as Object Set rs=Me.Recordset Msgbox [ ] End Sub
程序括号内应填入的是（ ）
A、Count B、rs.Count C、RecordCount D、rs.RecordCount 38、Access的“切换面板”归属的对象是（ ） A、表 B、查询 C、窗体 D、页
39、在代码中引用一个窗体控件时，应使用的空件属性是（ ） A、Caption B、Name C、Text D、Index
40、在定义过程时，系统将形式参数类型默认为（ ） A、值参 B、变参 C、数组 D、无参
41、如果A为“Boolean”型数据，则下列赋值语句正确的是（ ） A、A=”true” B、A＝true C、A=#True# D、A=3<4 42、编写如下窗体事件过程：
Private Sub Form_MouseDown(Button As Integer,shift As Integer ,X As Single,Y As Single) If Shift=6 And Button=2 then Msgbox“Hello” End if End sub
程序运行后，为了在窗体上消息框中输出“Hello”信息，在窗体上应执行的操作是（ ） A、同时按下Shift键和鼠标左键 B、同时按下Shift键和鼠标右键 C、同时按下Ctrl、Alt键和鼠标左键 D、同时按下Ctrl、Alt键和鼠标右键 43、运行下列程序，显示的结果是（ ） A=instr(5，”Hello!Beijing.”,”e” B=sgn(3>2) C=A+B Msgbox C
A、1 B、3 C、7 D、9
44、为窗体每隔5秒钟激发一次计时器（Timer）事件，应将其Timer Interval属性值设置为（ ）
A、5 B、500 C、300 D、5000
45、如果要在文本框中输入字符时达到密码显示效果，如星号（*），应设置文本框的属性是（ ）
A、Text B、Caption C、InputMask D、Password Char 46、在VBA中，能自动检查出来的错误是（ ）。
A、语法错误 B、逻辑错误 C、运行错误 D、注释错误 47、表达式“B=INT (A+0.5)”的功能是（ )。
A、将变量A保留小数点后1位 B、将变量A四舍五入
C、将变量A保留小数点后5位 D、舍去变量A的小数部分 48、运行下列程序段，结果是（ ）。 For m=10 to 1 step 0 k=k+3 Next m
A、形成死循环 B、循环体不执行即结束循环 C、出现语法错误 D、循环体执行一次后结束循环 三、填程序
1、以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出。 Private Sub Cornmand1_Click() X = Val(Text1.Text)
If Then
Msgbox X End If End Sub
2、以下程序实现计时功能，补充完善程序