计算机二级考试题目2010,2010下半年全国计算机二级access考试真题

2010下半年全国计算机二级access考试真题

(21>在成绩中要查找成绩≥80且成绩≤90的学生，正确的条件表达式是

A)成绩Between 80 And 90

B)成绩Between 80 To 90

C)成绩Between 79 And 91

D)成绩Between 79 To 91

(22)“学生表”中有“学号”、“姓名”、“性别”和“入学成绩”等字段。执行如下SQL命令后的结果是

Select avg(入学成绩)From学生表Group by性别

A)计算并显示所有学生的平均入学成绩

B)计算并显示所有学生的性别和平均入学成绩

C)按性别顺序计算并显示所有学生的平均入学成绩

D)按性别分组计算并显示不同性别学生的平均入学成绩

(23)若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是

A)Forms.[销售总数].[订货总数]

B)Forms![销售总数l.[订货总数]

C)Forms.[销售总数]![订货总数]

D)Forms![销售总数]![订货总数]

(24)因修改文本框中的数据而触发的事件是

A)Change

B)Edit

C)Getfocus

D)LostFocus

(25)在报表中，要计算“数学”字段的最低分，应将控件的“控件来源”属性设置为

A)=Min([数学])

B)=Min(数学)

C)=Min[数学]

D)Min(数学)

(26)要将一个数字字符串转换成对应的数值，应使用的函数是

A)Val

B)Single

C)Asc

D)Space

(27)下列变量名中，合法的是

A)4A

B)A-1

C)ABC_1

D)private

(28)若变量i的初值为8,则下列循环语句中循环体的执行次数为

Do While i<=17

i=i+2

Loop

A)3次

B)4次

C)5次

D)6次

(29)InputBox函数的返回值类型是

A)数值

B)字符串

C)变体

D)视输入的数据而定

(30)下列能够交换变量X和Y值的程序段是

A)Y=X:X=Y

B)Z=X:Y=Z:X=Y

C)Z=X:X=Y:Y=Z

D)Z=X:W=Y:Y=Z:X=Y

(31)窗体中有命令按钮Commandl,事件过程如下：

Public Function f(x As Integer) As Integer

Dim y As Integer

x=20

y=2

f=x*y

End Function

Private Sub Commandl_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

(32)窗体中有命令按钮Commandl和文本框Text1,事件过程如下：

Function result(ByVal x As Integer)As Boolean

If ×Mod 2=0 Then

result=True

Else

result=False

End If

End Function

Private Sub Commandl_Click()

x=Val(InputBox(“请输入一个整数”))

If______ Then

Text1=Str(x)&“是偶数.”

Else

Text1=Str(x)&“是奇数.”

End If

End Sub

运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的.空白处应填写

A)result(x)=“偶数”

B)result(x)

C)resuIt(x)=“奇数”

D)NOT result(x)

(33)窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：

Private Sub Commandl_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

运行以上事件过程，文本框中的输出是

A)6

B)12

C)18

D)21

(34)窗体中有命令按钮run34,对应的事件代码如下：

Private Sub run34_Enter()

Dim num As Integer,a As Integer,b As Integer,i As Integer

For i=1 To 10

num=InputBox(“请输入数据：”,“输入”)

If Int(num/2)=num/2 Then

a=a+1

Else

b=b+1

End If

Next i

MsgBox(“运行结果：a=”&Str(a)&“,b=”&Str(b))

End Sub

运行以上事件过程，所完成的功能是

A)对输入的10个数据求累加和

B)对输入的10个数据求各自的余数，然后再进行累加

C)对输入的10个数据分别统计奇数和偶数的个数

D)对输入的10个数据分别统计整数和非整数的个数

(35)运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是

Private Sub Form _click()

Dim sum AsInteger,m As Integer

sum=0

Do

m=InputBox(“输入m”)

sum=sum+m

Loop Until m=0

MsgBox sum

End Sub

A)0

B)17

C)20

D)21