大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=______
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是（）。
A.
Recordset
B.
ME.Recordset
C.
RecordSource
D.
ME.RecordSource
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【单选题】2012年最受欢迎记录片《舌尖上的中国》带领观众“尝遍”全国地方美食。该片展现了劳动者如何加工、制作大自然馈赠的食材，以美食为窗口更多地展现中国各地人文精神。这说明（）
A.
人们的精神活动离不开物质活动，精神产品离不开物质载体
B.
文化具有非常丰富的形式，美食文化是中国最重要的文化
C.
文化就是人类创造的产品，就是劳动者制作的美食
D.
文化可以促进人与社会的全面健康发展
【单选题】下列关于房屋测量草图内容及记录的说法中错误的是()。
A.
住宅房号应注记在该户中间部位
B.
房屋外墙及内部分隔墙均用单实线显示
C.
房屋凸出墙体0.2米的烟道应予显示
D.
室内净空边长及墙体厚度均取自厘米
【单选题】在窗体上放置一个文本框Text1,编写下列事件过程: Private Sub Form Load() Text1 = "" Text1.SetFocus For i = 1 To 10 s = s + i Next i Text1 = s End Sub 程序运行时,( )。
A.
Text1中显示55
B.
Text1中显示空白
C.
Text1中显示“Text1”
D.
出错
【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub
A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用
【单选题】维修工作记录的内容包括（）。
A.
记载对航空器及其部件做具体维修工作的详细记录
B.
记载对计量器具所做的维修工作的详细记录
C.
记载对工具设备所做的具体维修工作的详细记录
D.
以上所有
相关题目：
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【单选题】2012年最受欢迎记录片《舌尖上的中国》带领观众“尝遍”全国地方美食。该片展现了劳动者如何加工、制作大自然馈赠的食材，以美食为窗口更多地展现中国各地人文精神。这说明（）
A.
人们的精神活动离不开物质活动，精神产品离不开物质载体
B.
文化具有非常丰富的形式，美食文化是中国最重要的文化
C.
文化就是人类创造的产品，就是劳动者制作的美食
D.
文化可以促进人与社会的全面健康发展
【单选题】下列关于房屋测量草图内容及记录的说法中错误的是()。
A.
住宅房号应注记在该户中间部位
B.
房屋外墙及内部分隔墙均用单实线显示
C.
房屋凸出墙体0.2米的烟道应予显示
D.
室内净空边长及墙体厚度均取自厘米
【单选题】在窗体上放置一个文本框Text1,编写下列事件过程: Private Sub Form Load() Text1 = "" Text1.SetFocus For i = 1 To 10 s = s + i Next i Text1 = s End Sub 程序运行时,( )。
A.
Text1中显示55
B.
Text1中显示空白
C.
Text1中显示“Text1”
D.
出错
【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub
A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用
【单选题】维修工作记录的内容包括（）。
A.
记载对航空器及其部件做具体维修工作的详细记录
B.
记载对计量器具所做的维修工作的详细记录
C.
记载对工具设备所做的具体维修工作的详细记录
D.
以上所有
参考解析：
题目纠错 0
发布
