niusouti.com

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

题目

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

A. 输出0

B. 输出25

C. 输出45

D. 无任何输出

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer) As IntegerIf X＜20 ThenY=XElseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)SW=FalseEnd SubPdvate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)SW=TrueEnd SubPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("")If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A．输出0B．输出25C．输出45D．无任何输出

2.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func（X As Integer） As IntegerIf X < 20 ThenY = XElseY = 20 + XEnd Iffunc = YEnd FunctionPrivate Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）SW = FalseEnd SubPrivate Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）SW = TrueEnd SubPrivate Sub Command1_Click（）Dim intNum As IntegerintNum = InputBox（""）If SW Then Print func（intNum）End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（ ）。A．输出0B．输出25C．输出45D．无任何输出

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.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End FunctiOn Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Phvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single) SW=Tree End Sub Pdvate Sub Commandl-Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为______。A． 输出0B．输出25C．输出45D．无任何输出

更多“ 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下时间过程（ ）。程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是

    A. 579

    B. 123

    C. 456

    D. 123456


    正确答案：D
    D)    【解析】InputBox函数返回的是字符串格式的用户输入的数据，因此本题中，最后变a和变量b中存储的是字符串’456’和’123’，因此表达式b+a，就是将这两个字符串连接起来，称为字符串’123456’。

  • 第2题：

    在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

    Dim SW As Boolean

    Function func(X As Integer)As Integer

    If X<20 Then

    Y=X

    Else

    Y=20+X

    End If

    func=Y

    End Function

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SW=False

    End Sub

    Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SW=True

    End Sub

    Private Sub Command1_Click()

    Dim intNum As Integer

    intNum=InputBox("")

    If SW Then

    Print func(intNum)

    End If

    End Sub

    程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为

    A．输出0

    B．输出25

    C．输出45

    D．无任何输出


    正确答案：C
    解析：本题考查的是鼠标事件,当压下鼠标左键(发生MouseDown时),SW的值为False,当松开鼠标左键(触发MouseUp时),SW的值为True。

  • 第3题：

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

    程序运行后，单击命令按钮，在输入对话框内输入-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函数输出。

  • 第4题：

    在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

    A．输出0

    B．输出25

    C．输出45

    D．无任何输出


    正确答案：C
    解析：本题考查的是鼠标事件，当压下鼠标左键(发生MouseDown时)SW的值为False，当松开鼠标左键(触发MouseUp时)SW的值为True。

  • 第5题：

    在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

    A．输出0

    B．输出2

    C．输出45

    D．无任何输出


    正确答案：D
    解析：上述程序由一个通用过程和3个事件过程组成，在命令按钮事件过程中调用通用过程，并把一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体层的Boolean变量SW的值必须为True，否则不能调用。而为了使SW的值为True，必须执行Form_MouseUp事件过程，这只能通过单击窗体来实现。单击窗体时，单击鼠标左键执行Form_MouseDown事件过程，使得SW=False。松开鼠标后执行Form_MouseUp事件过程，使得SW=True。程序运行后，由于没有执行Form_MouseUp事件过程，直接单击命令按钮，因而SW的值为False，这样不会调用通用过程，也就不会输出任何信息。

相关内容