在窗体上画一个名称为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_M

题目

在窗体上画一个名称为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

Pdvate 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．无任何输出

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11

2.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer Cls x=x+5 y=y+3 Print x,y End Sub 程序运行时，两次单击命令按钮Command1后，窗体显示的结果是( )。A．10 6B．5 6C．5 3D．10 3

3.在窗体上画一个命令按钮，然后编写如下程序：Dim x As IntegerSub inc(a As Integer)x=x+aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Msgbox x；End Sub程序执行后，单击Command1命令按钮，消息框显示结果是【 】。

4.在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

更多“在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW As BooleanFunction func(X A ”相关问题

  • 第1题：

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

    Private Sub Commandl_Click( )

    Static X As Integer

    Static Y As Integer

    Cls

    Y=1

    Y=Y+5

    X=5+X

    Print X, Y

    End Sub

    程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。


    正确答案：15 6
    15 6 解析：在本题过程中使用了两个Static变量，其中的变量Y每次都被重新赋值，因此不管执行多少次，Y的结果只会是6；而变量X的值则一直累计，执行3次后，x为15。

  • 第2题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：程序运行后，如果单击命令按钮，则在面体上显示的内容是（ ）。


    正确答案：A
    A)    【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。

  • 第3题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．VVV

    B．Vis

    C．sic

    D．11


    正确答案：A
    解析：String返回n个字符。如果为字符串，则返回n个字符串的首字符。返回3个"VisualBasic”的首字母“V”。

  • 第4题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_ Click() Static x As Integer Static y As Integer Cls y=1 y=y+5 x=y +x Print x, yEnd Sub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。

    A．15 16

    B．15 6

    C．15 15

    D．5 6


    正确答案：B
    解析：本题的难点是Static变量在程序中的应用。Static指定过程中的局部变量为“静态”变量。在三次单击命令按钮的计算过程中，局部变量y的值每次都被1赋值，结果为6；而“静态”变量x的值在应用程序退出前，却一直保存在内存中，所以“x=5+5+5=15”。

  • 第5题：

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

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A．

    B．H

    C．

    D．


    正确答案：A
    【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。

  • 第6题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click（）

    x = -5

    If Sgn（x） Then

     y = Sgn（x ^ 2）

    Else

     y = Sgn（x）

    End If

    Print y

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．-5

    B．25

    C．1

    D．-1


    正确答案：C

相关内容