如果在北京时间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.无输出
热度🔥540
参考答案：A
解析：
【解析】本题考查的是if语句的执行。程序中，time（）函数可返回当前的时间，此时返回的时间为18:20。因此If语句的前俩个条件都不成立，所以执行if语句的最后一句，即Debug.Print "欢迎下次光临!"。因此，本题应选择A选项。
【解析】本题考查的是if语句的执行。程序中，time（）函数可返回当前的时间，此时返回的时间为18:20。因此If语句的前俩个条件都不成立，所以执行if语句的最后一句，即Debug.Print "欢迎下次光临!"。因此，本题应选择A选项。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
对话框在关闭前，不能继续执行应用程序的其他部分，这种对话框称为( )。
教师管理数据库有数据表"teacher"，包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是：通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为：tNo、tName、tSex和tTitles。当单击窗体上的"增加"命令按钮(名称为Command1)时，首先判断编号是否重复，如果不重复，则向"teacher"表中添加教师记录；如果编号重复，则给出提示信息。
有关代码如下：
Private ADOcn As New ADODB.Connection
Private Sub Form_Load()
'打开窗口时，连接Access本地数据库
Set ADOcn＝
End Sub
Private Sub Command0_Click()
'追加教师记录
Dim strSQL As String
Dim ADOcmd As New ADODB.Command
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection＝ADOcn
ADOrs.Open "Select 编号 From teacher Where 编号＝'" ＋ tNo ＋ "'"
If Not ADOrs.EOF Then
MsgBox "你输入的编号已存在，不能新增加！"
Else
ADOcmd.ActiveConnection ＝ ADOcn
strSQL＝"Insert Into teacher(编号，姓名，性别，职称)"
strSQL＝strSQL ＋ "Values('" ＋ tNo ＋ "'，'" ＋ tname ＋ "'，'" ＋ tsex ＋ "'，'" ＋ ttitles ＋ "')"
ADOcmd.CommandText＝strSQL
ADOcmd.Execute
MsgBox "添加成功，请继续！"
End If
ADOrs.Close
Set ADOrs＝Nothing
End Sub
按照功能要求，在横线上应填写的是( )。
下列关于SQL命令的叙述中，正确的是( )。
在Excel工作表单元格中输入公式时，F$2的单元格引用方式称为（ ）。
刘秘书利用Word 2010对一份报告默认的字体、段落、样式等格式进行了设置，她希望这组格式可以作为标准轻松应用到其他类似的文档中，最优的操作方法是（ ）。
