单击命令按钮，并在对话框内输入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 SubA．错误!请重新输入日期!B．江苏C．浙江D．双休日
单击命令按钮，并在对话框内输入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．双休日
相关考题：
打开一个工作簿文件的操作步骤是()。 A.执行“插入文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[确定]按钮B.执行“插入文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮C.执行“文件打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮D.执行“文件打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[打开]按钮
单击命令按钮，并在对话框内依次输入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 SubA．25B．74C．85D．110
在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：Privme Sub Commandl_Click()Dim intNum As IntegerintNum＝InputBox(“请输入：”)MsgBox f(intNum)End SubFunction f(X As Integer) As Integerf＝IIf (X10,X,X+5)End Function运行程序，单击命令按钮，在输入对话框中输入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 SubA．4:99,88B．4;99,73C．4:99,73D．4;99,88
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无任何输出
在窗体上画一个命令按钮，然后编写如下程序： 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．3B．4C．5D．6