如果在北京时间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 - 柠檬试题库

首页计算机公务员驾照关于

如果在北京时间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.无输出

热度🔥507

参考答案：A

解析：

【解析】本题考查的是if语句的执行。程序中，time（）函数可返回当前的时间，此时返回的时间为18:20。因此If语句的前俩个条件都不成立，所以执行if语句的最后一句，即Debug.Print "欢迎下次光临!"。因此，本题应选择A选项。

复制题目向AI提问

扫码免费计算机二级刷题

2025年计算机等级考试题库

推荐在计算机指令中，规定其所执行操作功能的部分称为（）。某人编写了向随机文件中写一条记录的程序，代码如下：Type RType Name As String * 10 Tel As String * 20End TypePrivate Sub Command1_Click() Dim p As RType p.Name＝InputBox("姓名") p.Tel＝InputBox("电话号") Open "Books.dat" For Random As #1 Put #1，， p Close #1End Sub该程序运行时有错误，修改的方法是( )。A)在类型定义“Type RType”之前加上“Private”B)Dim p As RType必须置于窗体模块的声明部分C)应把Open语句中的For Random 改为 For OutputD)Put语句应该写为Put #1，p.Name ， p.Tel(36)有如下程序：Private Sub Form_Click()Dim s As Integer， p As Integerp＝1For i＝1 To 4 For j＝1 To is＝s＋j Next j p＝p * sNext iPrint pEnd Sub程序运行后，单击窗体，则输出结果是( )。下面关于嵌入式系统中使用的触摸屏的叙述中，错误的是（）。在Excel中希望为若干个同类型的工作表标签设置相同的颜色，最优的操作方法是（）。小马在PowerPoint演示文稿中插入了一幅人像图片，现需要将该图片中的浓重背景删除，最优的操作方法是（）。

标签

二级ACCESS

if

time

print

debug.print