单击命令按钮,并在对话框内输入6,下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is <= 0 n=InputBox("错误!请重新输入日期!") Case Is>7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End Sub
A.错误!请重新输入日期!
B.江苏
C.浙江
D.双休日
第1题:
在窗体上画一个命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim Arr(10) As Integer For i = 1 To 10 Arr(i) = 11 - i Next i x = InputBox("输入一个整数(3~10)") Print Arr(2 + Arr(x)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入7,则输出结果为_______________。
A.3
B.4
C.5
D.6
第2题:
在窗体上有一个命令按钮,然后编如下事件过程:
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。
第3题:
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是( )。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
第4题:
单击命令按钮时,下列程序段的执行结果为( )。
A.8
B.6
C.4
D.2
第5题:
单击命令按钮,并在对话框内依次输入99,73,84,88,-1,下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S>=0 If S>max Then max=S End If If S < min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub
A.4:99,88
B.4;99,73
C.4:99,73
D.4;99,88
第6题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:
Privme Sub Commandl_Click()
Dim intNum As Integer
intNum=InputBox(“请输入:”)
MsgBox f(intNum)
End Sub
Function f(X As Integer) As Integer
f=IIf (X<10,X,X+5)
End Function
运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。
第7题:
在窗体上画一个命令按钮,然后编写如下程序:
Dim k As Long
k=1
Do While num
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
MsgBox r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为( )。
第8题:
单击命令按钮,并在对话框内依次输入5,7,6下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n AS Integer, a As Integer, b As Integer, c As Integer n = 0 For i = 1 To 3 a = InputBox ("请输入数字") n = n+a*a If n > 50 Then GoTo ex End If Next i ex: Print n End Sub
A.25
B.74
C.85
D.110
第9题:
A.执行“插入→文件”菜单命令,在对话框的“文件名”输入框中选择需要打开的工作簿,单击[确定]按钮
B.执行“插入→文件”菜单命令,在对话框的“文件名”输入框中选择需要打开的工作簿,单击[取消]按钮
C.执行“文件→打开”菜单命令,在“打开”对话框的“文件名”输入框中选择需要打开的工作簿,单击[取消]按钮
D.执行“文件→打开”菜单命令,在“打开”对话框的“文件名”输入框中选择需要打开的工作簿,单击[打开]按钮