23、【
单选题
】 在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
Private Sub Commandl_Click()
subT.Form.RecordSource = "select * from雇员"
End Sub
单击该按钮实现的功能是
[2分]
、
使用select命令查找“雇员”表中的所有记录
、
使用select命令查找并显示“雇员”表中的所有记录
、
将subT窗体的数据来源设置为一个字符串
、
将subT窗体的数据来源设置为“雇员”表
答案：
24、【
单选题
】 在报表设计过程中，不适合添加的控件是
[2分]
、
标签控件
、
图形控件
、
文本框控件
、
选项组控件
答案：
25、【
单选题
】 下列关于对象“更新前”事件的叙述中，正确的是
[2分]
、
在控件或记录的数据变化后发生的事件
、
在控件或记录的数据变化前发生的事件
、
当窗体或控件接收到焦点时发生的事件
、
当窗体或控件失去了焦点时发生的事件
答案：
26、【
单选题
】 下列属于通知或警告用户的命令是
[2分]
、
PrintOut
、
OutputTo
、
MsgBox
、
RunWarnings
答案：
27、【
单选题
】 能够实现从指定记录集里检索特定字段值的函数是
[2分]
、
Nz
、
Find
、
Lookup
、
DLookup
答案：
28、【
单选题
】 如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是
[2分]
、
0.01*Int(x+0.05)
、
0.01*Int(100*(X+0.005))
、
0.01*Int(x+0.005)
、
0.01*Int(100*(X+0.05))
答案：
29、【
单选题
】 在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为
[2分]
、
20
、
24
、
25
、
36
答案：
30、【
单选题
】 由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行
[2分]
、
0次
、
1次
、
4次
、
5次
答案：
31、【
单选题
】 在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = To 20 step 3
x = x + 1
Next j
Next i
Textl.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是
[2分]
、
1
、
7
、
17
、
400
答案：
32、【
单选题
】 在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_Click()
Dim y As Integer
y = 0
Do
y = InputBox("y=")
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
Loop Until y = 0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是
[2分]
、
37 55 64 28 19 19
、
10 50 20
、
10 50 20 0
、
37 55 64 28 19
答案：
33、【
单选题
】 在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是
[2分]
、
2 32
、
12 3
、
2 2
、
12 32
答案：
34、【
单选题
】 在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_Click()
Dim d1 As Date
Dim d2 As Date
dl = #12/25/2009#
d2 = #1/5/2010#
MsgBox DateDiff(” ww”, d1, d2)
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是
[2分]
、
1
、
2
、
10
、
11
答案：
35、【
单选题
】 下列程序段的功能是实现“学生”表中“年龄”字段值加1
Dim Str As String
Str=" "
Docmd.RunSQL Str
空白处应填入的程序代码是
[2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00