题目内容
（请给出正确答案）
[单选题]
下列程序的运行结果为（）。 a = 75 If a ＞ 60 Then i = 1 ElseIf a ＞ 70 Then i = 2 ElseIf a ＞ 80 Then i = 3 ElseIf a ＞ 90 Then i = 4 End If Print "i="; i
A.i=1
B.i=2
C.i=3
D.i=4
提问人：网友icetree
发布时间：2022-01-07
如搜索结果不匹配，请 
A、1
B、2
C、3
D、4
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“下列程序的运行结果为（）。 a = 75 If a ＞ 60…”相关的问题
第2题
下列程序段的执行结果为 a=75 If a ＞ 60 Then Score=1 If a ＞ 70 Then Score=2 If a ＞ 80 Then Score=3 If a ＞ 90 Then Score=4 Print "Score= "；Score
点击查看答案
A．Score=1
B．Score=2
C．Score=3
D．Score=4
第3题
在窗体上添加一个命令按钮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 If End Sub 运行时，单击按钮，在输入对话框中直接按Enter键，显示的结果为（ ）。
A、输入错误
B、不合格
C、合格
D、优秀
第4题
有如下程序： Private Sub Command1_Click() xcase = 1 t = InputBox("请输入一个数：") Select Case t Case Is > 0 y = xcase + 1 Case Is = 0 y = xcase + 2 Case Else y = xcase + 3 End Select Print xcase; y End Sub 程序运行时，在对话框中输入-1，则显示的结果为（ ）。
A、1 4
B、1 3
C、1 2
D、1 1
第5题
下列程序段的运行结果为（ ）。 Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select
A、不及格
B、良好
C、及格
D、优秀
第6题
下列程序的输入值为5，运行结果为（ ）。 Private Sub Command1_Click() Dim a As Integer a = InputBox("请输入a的值") Select Case a Case 1 To 4 Print "D" Case 5 To 10 Print "C" Case 11 To 14 Print "B" Case Else Print "A" End Select End Sub
A、A
B、B
C、C
D、D
第7题
在窗体中添加一个命令按钮Command1，编写如下代码： Private Sub Command1_Click() x = 6 If x > 6 Then If x = 6 Then Print "a" Else Print "b" End If Else If x < 8 Then Print "c" Else If x = 6 Then Print "d" End If End If End If End Sub 运行后，单击命令按钮，则在窗体上显示的是（ ）。
A、a
B、b
C、c
D、d
第9题
下列（ ）语句使复选框Check1变成灰色。
A、Check1.Value = 0
B、Check1.Value =1
C、Check1.Value = 2
D、Check1.Style = 0
