如果在北京时间18点20分运行以下代码，程序的输出是 Sub Procedure( ) If Hour(Time( )) >= 8 And Hour(Time( )) <12 Then Debug.Print "上午好！" ElseIf Hour(Time( )) >= 12 And Hour(Time( )) <18 Then Debug.Print "下午好！" Else Debug.Print "欢迎下次光临!" End If End Sub
- A.欢迎下次光临!
- B.上午好！
- C.下午好！
- D.无输出
热度🔥571
参考答案：A
解析：
【解析】本题考查的是if语句的执行。程序中，time（）函数可返回当前的时间，此时返回的时间为18:20。因此If语句的前俩个条件都不成立，所以执行if语句的最后一句，即Debug.Print "欢迎下次光临!"。因此，本题应选择A选项。
【解析】本题考查的是if语句的执行。程序中，time（）函数可返回当前的时间，此时返回的时间为18:20。因此If语句的前俩个条件都不成立，所以执行if语句的最后一句，即Debug.Print "欢迎下次光临!"。因此，本题应选择A选项。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
数据库中有"Emp"，包括"Eno"、"Ename"、"Eage"、"Esex"、"Edate""Eparty"等字段。下面程序段的功能是：在窗体文本框"tValue"内输入年龄条件，单击"删除"按钮完成对该年龄职工记录信息的删除操作。
Private Sub btnDelete_Click() ' 单击"删除"按钮
Dim strSQL As String ' 定义变量
strSQL＝"delete from Emp" ' 赋值SQL基本操作字符串
' 判断窗体年龄条件值无效(空值或非数值)处理
If IsNull(Me!tValue)＝True Or IsNumeric(Me!tValue)＝False Then
MsgBox "年龄值为空或非有效数值！"，vbCritical，"Error"
' 窗体输入焦点移回年龄输入的文本框"tValue"控件内
Me!tValue.SetFocus
Else
' 构造条件删除查询表达式
strSQL＝strSQL & " where Eage＝" & Me!tValue
' 消息框提示"确认删除？(Yes/No)"，选择"Yes"实施删除操作
If MsgBox("确认删除？(Yes/No)"， vbQuestion+vbYesNo， "确认")＝ vbYes Then
' 执行删除查询
DoCmd. strSQL
MsgBox "completed！"， vbInformation， "Msg"
End If
End If
End Sub
按照功能要求，下划线处应填写的是( )。
下列不能建立索引的数据类型是
对于故障管理，下列说法正确的是（）
以下关于ARM处理器CPSR寄存器说法错误的是（ ）。
