• 2021-04-14 问题

    执行下列事件过程,b的值是()。Private Sub Fo... a - 1 End IfEnd Sub

    执行下列事件过程,b的值是()。Private Sub Fo... a - 1 End IfEnd Sub

  • 2021-04-14 问题

    运行以下程序后,输出的内容是()。Dim x As Integer, y As..."$$$"End IfEnd Sub

    运行以下程序后,输出的内容是()。Dim x As Integer, y As..."$$$"End IfEnd Sub

  • 2022-05-31 问题

    C语言需要使用_____命令,将标准库函数的头文件包含在程序里。 A: #define B: #ifelse C: #ifend D: #include

    C语言需要使用_____命令,将标准库函数的头文件包含在程序里。 A: #define B: #ifelse C: #ifend D: #include

  • 2022-06-07 问题

    中国大学MOOC: 如果在北京时间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 IfEnd Sub

    中国大学MOOC: 如果在北京时间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 IfEnd Sub

  • 2022-06-03 问题

    以下程序实现每次单击按钮Command1时,标签在窗体Form1上向右移动100特维,当标签移动出窗体右边界时,再次单击按钮标签将回到窗体的左边界,请填空。Private Sub Command1_Click() If Label1.Left > Form1.Width Then Label1.Left=0 Else __________________________ End IfEnd Sub

    以下程序实现每次单击按钮Command1时,标签在窗体Form1上向右移动100特维,当标签移动出窗体右边界时,再次单击按钮标签将回到窗体的左边界,请填空。Private Sub Command1_Click() If Label1.Left > Form1.Width Then Label1.Left=0 Else __________________________ End IfEnd Sub

  • 2022-10-30 问题

    运行下面程序后,正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x >6 then Print "x>6": Else if x <8 then Print "x<8"; Else if x = 6 then Print "x=6": End if End if End ifEnd Sub A: x<8 x=6 B: x<8 C: x=6 D: x<8或x=6

    运行下面程序后,正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x >6 then Print "x>6": Else if x <8 then Print "x<8"; Else if x = 6 then Print "x=6": End if End if End ifEnd Sub A: x<8 x=6 B: x<8 C: x=6 D: x<8或x=6

  • 2022-06-07 问题

    如果在北京时间7点50分运行以下代码,程序的输出是Sub Procedure( ) If Hour(Time( )) >= 8 And Hour(Time( )) &#91; 12 Then Debug.Print "上午好!" ElseIf Hour(Time( )) &#93;= 12 And Hour(Time( )) < 18 Then Debug.Print "下午好!" Else Debug.Print "欢迎下次光临!" End IfEnd Sub A: 欢迎下次光临! B: 上午好! C: 下午好! D: 无输出

    如果在北京时间7点50分运行以下代码,程序的输出是Sub Procedure( ) If Hour(Time( )) >= 8 And Hour(Time( )) &#91; 12 Then Debug.Print "上午好!" ElseIf Hour(Time( )) &#93;= 12 And Hour(Time( )) < 18 Then Debug.Print "下午好!" Else Debug.Print "欢迎下次光临!" End IfEnd Sub A: 欢迎下次光临! B: 上午好! C: 下午好! D: 无输出

  • 2022-06-07 问题

    如果在北京时间18点20分运行以下代码,程序的输出是Sub Procedure( ) If Hour(Time( )) >= 8 And Hour(Time( )) &#91;12 Then Debug.Print "上午好!" ElseIf Hour(Time( )) &#93;= 12 And Hour(Time( )) <18 Then Debug.Print "下午好!" Else Debug.Print "欢迎下次光临!" End IfEnd Sub A: 欢迎下次光临! B: 上午好! C: 下午好! D: 无输出

    如果在北京时间18点20分运行以下代码,程序的输出是Sub Procedure( ) If Hour(Time( )) >= 8 And Hour(Time( )) &#91;12 Then Debug.Print "上午好!" ElseIf Hour(Time( )) &#93;= 12 And Hour(Time( )) <18 Then Debug.Print "下午好!" Else Debug.Print "欢迎下次光临!" End IfEnd Sub A: 欢迎下次光临! B: 上午好! C: 下午好! D: 无输出

  • 2021-04-14 问题

    中国大学MOOC: 在窗体上添加一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click() a = Val(InputBox(请输入分数:, 计算的等级, 60)) If a < 0 Or a > 100 Then Print 输入错误 ElseIf a < 60 Then Print 不合格 ElseIf a < 80 Then Print 合格 Else Print 优秀 End IfEnd Sub运行时,单击按钮,在输入对话框中直接按Enter键,显示的结果为( )。

    中国大学MOOC: 在窗体上添加一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click() a = Val(InputBox(请输入分数:, 计算的等级, 60)) If a < 0 Or a > 100 Then Print 输入错误 ElseIf a < 60 Then Print 不合格 ElseIf a < 80 Then Print 合格 Else Print 优秀 End IfEnd Sub运行时,单击按钮,在输入对话框中直接按Enter键,显示的结果为( )。

  • 2022-06-06 问题

    在窗体上画一个名称为Text1的文本框,然后编写以下事件过程:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If _________________ Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub要求程序运行时,若输入焦点在Text1上,按下组合键Ctrl+A可以选取Text1内所有的文本,则在横线处应填入的表达式是________。 A: KeyCode = "A" And Shift = "Ctrl" B: KeyCode = 65 And Shift = 2 C: Text1.KeyCode = 65 And Text1.Shift = 2 D: Text1.KeyCode = "A" And Text1.Shift = "Ctrl"

    在窗体上画一个名称为Text1的文本框,然后编写以下事件过程:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If _________________ Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub要求程序运行时,若输入焦点在Text1上,按下组合键Ctrl+A可以选取Text1内所有的文本,则在横线处应填入的表达式是________。 A: KeyCode = "A" And Shift = "Ctrl" B: KeyCode = 65 And Shift = 2 C: Text1.KeyCode = 65 And Text1.Shift = 2 D: Text1.KeyCode = "A" And Text1.Shift = "Ctrl"

  • 1 2