、
Private Sub Commandl_C1ick()
Command2.Visible=True
Command3.Visible=FalSe
End Sub
、
Private Sub Commandl_Click()
Command2.Enabled=True
Command3.Enabled=False
End Sub
、
Private Sub Commandl_Click()
Command2.Enabled=True
Command3.Visible=False
End Sub
、
Private Sub Commandl_Click()
Command2.Visible=True
Command3.Enabled=False
End Sub
答案：
27、【
单选题
】 用于获得字符串S最左边4个字符的函数是（ ）。
[2分]
、
Left(S,4)
、
Left(S,1,4)
、
Leftstr(S,4)
、
Leftstr(S,0,4)
答案：
28、【
单选题
】 窗体Caption属性的作用是（ ）。
[2分]
、
确定窗体的标题
、
确定窗体的名称
、
确定窗体的边界类型
、
确定窗体的字体
答案：
29、【
单选题
】 下列叙述中，错误的是（ ）。
[2分]
、
宏能够一次完成多个操作
、
可以将多个宏组成一个宏组
、
可以用编程的方法来实现宏
、
宏命令一般由动作名和操作参数组成
答案：
30、【
单选题
】 下列数据类型中，不属于VBA的是（ ）。
[2分]
、
长整型
、
布尔型
、
变体型
、
指针型
答案：
31、【
单选题
】 下列数组声明语句中，正确的是（ ）。
[2分]
、
Dim A[3,4] As Integer
、
Dim A(3,4) As Integer
、
Dim A[3;4] As Integer
、
Dim A(3;4) As Integer
答案：
32、【
单选题
】 在窗体中有一个文本框Textl，编写事件代码如下：
Private Sub Form_Click()
X=val(Inputbox("输入x的值"))
Y=1
If X<>0 Then Y=2
Textl.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。
[2分]
、
1
、
2
、
3
、
4
答案：
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
Textl.value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Textl输出的结果是（ ）
[2分]
、
6
、
12
、
18
、
21
答案：
34、【
单选题
】 在窗体中有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_Click()
Dim s As Integer
S=P(1)+P(2)+P(3)+P(4)
debug.Print S
End Sub
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是（ ）。
[2分]
、
15
、
20
、
25
、
35
答案：
35、【
单选题
】 下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。
Sub GetRecNum()
Dim rs As Object
Set rs=Me.Recordset
MsgBox ___________
End Sub
程序空白处应填写的是（ ）。
[2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00