2007年9月全国计算机等级考试二级ACCESS笔试试题(2)

打开窗体后单击命令按钮，屏幕显示 A）

B）

C）

D）

（33）在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：

Option Compare Database Dim a As String * 10

Private Sub Command1_Click() a = "1234" b = Len(a)

Me.Lb1.Caption = b End Sub

打开窗体后单击命令按钮，窗体中显示的内容是 A）4 C）10

（34）下列不是分支结构的语句是

A）If ... Then ... EndIf C）If ... Then ... Else ... EndIf

B）While ... Wend

D）Select ... Case ... End Select B）5 D）40

（35）在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：

Private Sub run_Click( ) result = ""

For i = 1 To Me!n For j = 1 To Me!n

result = result + "*" Next j

result = result + Chr(13) + Chr(10)

简2005年9月全国计算机等级考试二级ACCESS笔试试题

MsgBox result End Sub

打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是 A） * * * *

* * * * * * * * * * * *

C） * * * *

* * * * * * * * * * * * * * * * * * * * * * * *

二、填空题（每空2分，共30分）

请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性，其中最重要

的是 【1】 。

（2）在两种基本测试方法中， 【2】 测试的原则之一是保证所测模块中每一个独立路径至少要执行一

次。

（3）线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是

队列的 【3】 存储结构。

（4）对下列二叉树进行中序遍历的结果为 【4】 。

B） *

* * * * * * * * * * * * * * *

D） * * * *

* * * * * * * * * * * *

（5）在E-R图中，矩形表示 【5】 。

（6）在关系运算中，要从关系模式中指定若干属性组成新的关系，该关系运算称为

。

（7）在Access中建立的数据库文件的扩展名是 【7】 。

（8）在向数据表中输入数据时，若要求所输入的字符必须是字母，则应该设置的输入掩码是 【8】 。 （9）窗体由多个部分组成，每个部分称为一个 【9】 。 （10）用于执行指定SQL语句的宏操作是 【10】 。 （11）在VBA中双精度的类型标识是 【11】 。

（12）在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：

Private Sub test_Click() y = 0

For i = 0 To Me!x y = y + 2 * i + 1 Next i

MsgBox y

简2005年9月全国计算机等级考试二级ACCESS笔试试题

End Sub

打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】 。

（13）在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：

Private Sub run13_Click() If Me!num1 >= 60 Then result = "及格"

ElseIf Me!num1 >= 70 Then result = "通过"

ElseIf Me!num1 >= 85 Then result = "合格" End If

MsgBox result End Sub

打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。

（14）现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如

果在20秒内没有完成登录操作，则倒计时到达0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的文本框Itime。事件代码如下，要求填空完成事件过程。

Option Compare Database Dim flag As Boolean Dim i As Integer

Private Sub Form_Load( ) flag = Me.TimerInterval = 1000 i = 0 End Sub

Private Sub Form_Timer( )

If flag = True And i < 20 Then Me!ITime.Caption = 20 - i i = Else

DoCmd.Close End If End Sub

Private Sub OK_Click( ) ′ 登录程序略

′ 如果用户名和密码输入正确，则：flag = False End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说高考高中2007年9月全国计算机等级考试二级ACCESS笔试试题(2)在线全文阅读。