2016
年
03
月全国计算机等级考试二级
《
ACCESS
》真题
(
总分
100,
考试时间
90
分钟
)
一、单选题
1.
在窗体中添加一个名称为
Commandl
的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click( )
MsgBox f(24,18)
End Sub
Public Function f(m As Integer, n As Integer) As Integer
Do While m
＜
＞
n
Do While m
＞
u
m=m-n
Loop
Do While m
＜
n
n=n-m
Loop
Loop
f=m
End Function
窗体打开运行后，单击命令按钮，则消息框的输出结果是
______
。
A 2
B 4
C 6
D 8
答案
:C
[
解析
]
函数过程
f
实现辗转相减法求最大公约数，用参数
m
和
n
中的较大数减较小数直到
m=n
，
输出
m
和
n
的最大公约数
m
。本题输出
24
和
18
的最大公约数
6
。
2.
在宏的参数中，要引用窗体
F1
上的
Text1
文本框的值，应该使用的表达式是
______
。
A [Forms]! [F1]! [Text1]
B Text1
C [F1]. [Text1]
D [Forms]_[F1]_[Text1]
答案
:A
[
解析
]
宏在输入条件表达式时可以引用窗体上的控件值，语法为：
Forms! [
窗体名
]! [
控件名
]
或
[Forms]! [
窗体名
]! [
控件名
]
。
3.
表达式
"B=INT(A+0.5)"
的功能是
______
。
A
将变量
A
保留小数点后
1
位
B
将变量
A
四舍五入取整
C
将变量
A
保留小数点后
5
位
D
舍去变量
A
的小数部分
答案
:B
[
解析
] INT(
表达式
)
返回表达式的整数部分。在表达式
A+0.5
中，若：①
A
的小数部分大于等于
0.5
，整数部分加
1
；②
A
的小数部分小于
0.5
时，整数部分不变。所以
INT(A+0.5)
的功能便是实现将
A
四舍五入取整。
4.
下列程序的功能是返回当前窗体的记录集：

(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为”打开文件”，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为”打开文件”；
②设置适当属性，使对话框的”文件类型”下拉式组合框中有两项可供选择：”文本文件”、”所有文件”(如图所示)，默认的类型是”所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为”移动本按钮”，，如图所示。
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
(1)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。
通用对话框是一种ActiveX控件，在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行”工程”菜单中的”部件”命令，打开”部件”对话框。在对话框中选择”控件”选项卡，然后在控件列表框中，选择”MicrosoftCommon
DialogControl6.0”。单击”确定”按钮，通用对话框立即被加到工具箱中，通用对话框的属性可以在属性窗口中直接设置。
当通用对话框显示为”打开”或”另存为”类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*.txt，表示显示所有的文本文件。语法为”对象名.Filter=”描述|文件扩展名”O 
打开顺序文件的基本格式为”Open
FileName For Mode As #FileNumber”.
FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。
 【操作步骤】
步骤1：新建一个窗体，在窗体中设置一个命令按钮和一个通用对话框。
在属性窗口中设置控件的属性，控件的属性见表3.14和3.15。
表3.14
控件命令按钮
 1 Name Caption 
设置值Command1打开文件
 表35
线 通对琵
 Nm： DahgTteFniz
 文本文中出文件
步骤2：编写程序代码。
参考答案
 Private Sub Command1_Click() 
CD1.ShowOpen 
 End Sub 
步骤3：调试并运行程序，保存工程，，设置工程文件名为sjt1.vbp，设置窗体文件名为 sjt1.frm. 
 【举一反三】可以通过第14套第一大题第二小题来进行同类知识点的练习。
 (2) 【解题思路】在VisualBasic中，按钮的标题由Caption属性设置。通过代码要使命令按钮向左移动100，须用到按钮的Left属性，使其值在每单击一次按钮时减去
100. 
 操作步骤】
步骤1：新建一个窗体，在窗体中添加一个命令按钮。命令按钮的属性见表3.16。
步骤2：编写程序代码。
参考答案
 Private Sub Command1_Click() 
 Command1.Left = Command1.Left - 100 End Sub 
步骤3：调试并运行程序，保存工程，，设置工程文件名为sjt2.vbp，设置窗体文件名为 sjt2.frm.
 【举一反三】可以通过第31套第一大题第二小题来进行同类知识点的练习。

在该工程中新建一个form，属性名称=frmplayVCD,caption=自动播放VCD
在窗体上添加一个mediaplayer控件，命名为mediaplayer1，previewMode 属性值为False、
在窗体上添加一个Timer控件，命名为Timer1
在窗体上 添加三command控件，caption属性值为关闭光驱，弹出光驱，和退出、
编写代码
在form的通用声明中添加：
     private declare Function mciSendString Lib "winmm.dll"Alia " mciSendStringA(ByVal lpsttrCommand As String,ByVals lpstrReturnString As String,ByVal uReturnLength  As long,ByVal hwndCallback As long) As Long 
     Dim result As Integer 
     Dim ReturnString As String *128
在Form的load事件中添加如下代码
frmPlayVCD.Caption="示例"
timer1.Enabled=True
Timer1.Interval=1000
在Timer1的timer事件添加
Dim fs, d, dc, sFile1, sFile2
Set fs =CreateObject("Scripting.FileSystemObject")
Set dc  =fs.Drives
For Each d In dc 
    If d.DriveType=4 Then 
         sFile = d.driveletter + "/mpegav/avseq01.dat"
         sFile = d.driveletter + "/mpegav/music01.dat"
         If d.Isready And fs.FileExists(sFilel) Then 
              
 
             Timer1.Enabled=False 
             frmPlayVCD.Caption ="示例-"+sFile2
             MediaPlayer1.FileName =sFilel
             MediaPlay1.Play 
        End If
        If d.Isready And fs .FilelExists(sFile2) Then
           Timer1.Enabled =False 
           frmPlayerVCD.Caption ="示例-"+sFile2
           MediaPlayer2.FileName =sFile2
           MediaPlay2.Play 
       End If
   End If
Next 
End Sub
在关闭的按钮控件的Click事件添加代码
 
 
on Error Resume next
result =mciSendString ("set cdaudio door closed ",ReturnString,127 ,0)
Timer1.Interval =1000
Timer1.Enable =True 
 
 
在弹出按钮添加
On Error Resume Next 
MediaPlayer1.Stop 
MediaPlayer1.FileName =" "
frmPlayVCD.Caption ="示例"
result = mciSendString("set cdaudio door open ",ReurnString ,127,0)
 
退出的Click事件添加
 
Unload Me 
end
 
 
 
 
 
运行程序后，将VCD盘放入光驱内单机关闭光驱即可播放