单击命令按钮，并在对话框内输入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

题目

单击命令按钮，并在对话框内输入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.打开一个工作簿文件的操作步骤是()。A.执行“插入→文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[确定]按钮B.执行“插入→文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮C.执行“文件→打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮D.执行“文件→打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[打开]按钮

2.在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。

3.在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：Privme Sub Commandl_Click()Dim intNum As IntegerintNum＝InputBox(“请输入：”)MsgBox f(intNum)End SubFunction f(X As Integer) As Integerf＝IIf (X<10,X,X+5)End Function运行程序，单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

4.单击命令按钮，并在对话框内依次输入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

更多“单击命令按钮,并在对话框内输入6,下列程序段的执行结果为______。Private Sub Command1_Click()Di ”相关问题

  • 第1题：

    单击命令按钮，并在对话框内依次输入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


    正确答案：C

  • 第2题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。

    A. 输出0

    B. 输出25

    C. 输出45

    D. 无任何输出


    正确答案：D
    D)    【解析】本题考查VB程序的执行特点。程序执行时，布尔型变量SW默认为False，单击命令按钮后弹出对话
    框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无
    任何输出。

  • 第3题：

    在窗体上画一个命令按钮，然后编写如下程序： 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


    C 因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。

  • 第4题：

    单击命令按钮时，下列程序段的执行结果为（ ）。

    A.8

    B.6

    C.4

    D.2


    正确答案：B
    B)【解析】本题考查循环程序的分析。在函数Funcl中，程序主要由一条嵌套的循环语句构成，如果m<>n，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。

  • 第5题：

    在窗体上有一个命令按钮，然后编如下事件过程：

    程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。


    正确答案：
    -1的平方根是一个虚数
    【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。

相关内容