2016版信息中职高考3+X书后练习题(Access含答案) 下载本文

内容发布更新时间 : 2024/12/23 22:21:27星期一 下面是文章的全部内容请认真阅读。

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、以下程序实现计时功能,补充完善程序