国家二级（ACCESS）笔试模拟试卷153

有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4，3个按钮分别为：清除(名为 G1)、计算(名为C2)和退出(名为C3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Wext1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中；单击“退出”按钮则退出程序。依据上述功能，请将下列程序补充完整。

 Private Sub C1 Click()

 Me!Text1＝""

 Me!Text2＝""

 Me!Text3＝""

 Me!Text4＝""

 End Sub

 Private Sub C2 Click()

 IfMe!Text1＝""Or Me!Text2＝""Or Me!Text3＝""Then

 MsgBox"三个文本框都要输入值!"

 ______

 Me!Text4＝(Val(Me!Text1)+Val(Me!Text2)+______)

 End If

 End Sub

 Private Sub C3 Click()

 Docmd.

 End Sub

有如下程序：

 Option Base 1

 Private Sub Form_Click()

 Dim arr,sum

 Sum＝0

 arr＝Array(1,3,5,7,9,11,13,15,17,19)

 For i＝1 TO 10

 If arr(i))3＝arr(i)\3 Then

 Sum＝Sum+arr(i)

 End If

 Next i

 MsgBox Sum

 End Sub

 程序运行后，单击窗体，消息框的输出结果为______。

在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式(作图)计算，在窗体上设计3个文本框，名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请在空白处填入适当语句使程序完整。

 Prvate Sub Command1_C1ick()

 Dimr As Integer,n As Integer

 n＝Text1

 r＝TeXt2

 Text3＝fun(n))(______))fun(r)

 End Sub

 Function fun(n As Integer)As long

 Dim t AS Long

 For k＝1 To n

 t＝t*k

 Next k

 fun＝t

 End Function

某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为

 Private Sub Form_Click()

 a＝1

 i＝1

 Do Until i＞10

 a＝a+2

 i＝i+3

 Loop

 MsgBox a

 End Sub

函数Mid("计算机等级考试"，4,2)的执行结果是______。

一般用于存放供其他Access数据库对象使用的公共过程称为______。

假定窗体的名称为Form1，则把窗体的标题设置为“Access模拟”的语句是______。

执行以下程序段后，变量c的值为______。

 a＝"Visual Basic Programming"

 b＝"Quick"

 c＝b & UCase(Mid(a,7,6)& Right(a,12))

软件是程序、数据和______的集合。

在报表设计中，可以通过添加______控件来控制另起一页输出显示。