itgle.com

给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If y．Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是A．退出For Each…Next循环的条件是x=TrueB．退出For Each…Next循环的条件是x=FalseC．程序检查y对象的Text属性，等于“”时退出For Each…Next循环D．程序逐一查找在z中的对象，不确

题目

给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If y．Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是

A．退出For Each…Next循环的条件是x=True

B．退出For Each…Next循环的条件是x=False

C．程序检查y对象的Text属性，等于“”时退出For Each…Next循环

D．程序逐一查找在z中的对象，不确切并判断其Text属性，文本框中的内容等于“Hello”时退出For Each…Next循环

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。A．8B．2C．5D．11

2.下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息

3.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Y as StringX=5Y=X & Space(3) & XPrint X；Print Trim(Y)；Len(Trim(Y))End Sub该程序的执行结果是【 】。

4.单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End SubA．21B．19C．17D．34

参考答案和解析
正确答案：D
解析：ForEach…Next的语法格式为：ForEachelementIngroup[statements][ExitFor][statements]Next[element]其中element用来反复装载group对象集合数组中的对象，直到遍历group数组中的所有对象。
更多“给出下面程序:Private Sub Command1_Click() Dim x,y,z X=False For Each y In 2If y.Text="Hell ”相关问题

  • 第1题：

    单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub

    A． 12 34

    B．2 34

    C．2 3

    D．12 3


    正确答案：B

  • 第2题：

    单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，A)End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End Function

    A．20

    B．25

    C．37

    D．32


    正确答案：C
    解析：此题程序代码中用了两层调用，我们对样的问题要多加小心，不能掉以轻心，千万不要把实参和相对应的形参弄混淆。主调过程Commandl_Click；输出的是SecProc(c,b,A)返回值，调用过程SecProc时，主调过程分别把实参c、b、a地址传给形参x、y、z，此时在过程SecProc中，SecProc(a，C.B)+7。由此看出，程序段执行此语句时，将调用过程FirProe。把实参a，c，b的地址分别传给形参x、y、z，，此时在过程FirProe中，Firproc=2*x+y+3*z+2，所以FirProc(a，c，B)=6+4+15+2=27，SecProc(a，c，B)=27+3+7=37。注意：过程的定义和调用。

  • 第3题：

    单击按钮时，以下程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub

    A．6 6 12 `

    B．9 5 10 6101051010

    C．9 6 12

    D．9 10 10 910155410


    正确答案：A
    解析：从整体上看，可得主调过程将两次调用过程Proc1后，实参的值将随形参变化而变化，现在分析一下这两次调用实参和形参是怎么变化的。第一次调用被调过程proc1，主调过程把实参x，x，z的地址分别传给形参x，y,z，此时形参x，y，z值分别为1，1，3，执行语句x=3*z后，形参x值变为9，此时相对应的实参x也变为9，执行语句y=2*z后，形参y值变为6，则相对应的实参x值变为6。执行x=x+y后，形参z值应为12，当然这次调用后，程序代码输出的数值为6，6，12；第二次调用被调过程proc1，主调过程把实参x，x，z的地址分别传给形参x，y，z。我们应注意一下，此时实参x的值为6而不是1，所以此时形参x，y，z值分别为6，2和2，执行语句x=3*z后，形参x值为6，相对实参x值也相应的变为6。执行语句y=2*z后，形参y值变为4，相应的实参y值也变为4，执行z=x+y后，形参z值变为10，相应的实参y的值变为10，而形参y和x的地址相同，最后它们值都应为10，所以此次调用后，程序代码将输出的数值为6，10和10。

  • 第4题：

    下列程序的功能是:当x<50时,y =0.8 xx;当50≤x≤100时,y=0.7 xx;当x>100时, Private Sub Command1_

    下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,

    Private Sub Command1_Click()

    Dim x As Single

    x = InputBox("请输入x的值" )

    Select Case x

    Case Is＜50

    y=0.8 * x

    Case 50 To 100

    y=0.7 * x

    【 】

    Print "输入数据出界!"

    End Select

    Print x, y

    End Sub


    正确答案：Case Else
    Case Else 解析：阅读程序后，在Select Case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将 x的值分为3种情况，空白处应该填写Case Else语句。

  • 第5题：

    单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub

    A．1 2 3 30 39 72

    B．1 2 3 1 2 3

    C．30 39 72 1 2 3

    D．30 39 72 30 39 72


    正确答案：D

  • 第6题：

    单击命令按钮执行下列程序，其输出结果是( )。

    Private Sub Command1_Click()

    Dim a As Integer,b As Integer,c As Integer

    a=3

    b=4

    c=5

    Prim SecProc(c,b,A)

    End Sub

    Function FirProc(x As Integer,y As Integer,z As Integer)

    FirProc=2*x+y+3*z

    End Function

    Function SecProc(x As Integer,y As Integer,z As Integer)

    SecProc=FirProc(z,x,y)+x

    End Function

    A．20

    B．22

    C．28

    D．30


    正确答案：C
    解析：本题是在Command1过程中调用SecProc函数，而在SecProc函数中又调用了FirPmc函数。函数调用时，实参和形参要一一对应传递。程序运行过程是：①Ptint SecProc(c,b,s)→Print SecProc(5,4,3)；②Sec Proc=FinProc(z,x,y)+x→SecProc=FirProc(3,5,4)+5；③FirProc=2*x+y+3*z→FirProz=3*3+5+3*4=23；④SecProc=28→Print SeProc(c,b,A)→Print28。形参是在被调用的Sub、Function过程中定义的参数名；实参则是在调用的Sub或Function过程中定义的参数名。

  • 第7题：

    有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。

    A．1

    B．3

    C．16

    D．9


    正确答案：C

  • 第8题：

    下面程序： Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 CallPI(x,y,z) Print Str(z) End Sub SubP1(By Val a As Integer, By Val b As Integer, c As Integer) C=a+b End Sub 运行后的输出结果为______。

    A．0

    B．12

    C．Str(z)

    D．显示错误信息


    正确答案：B
    解析：在本题中，用Call过程名的方法调用过程P1，在P1中，将参数C的值改变为12。因为参数C是按地址传送(默认为按地址传送，即ByRed，故x的值变为12了，所以输出值为12。

  • 第9题：

    在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。

    A．3

    B．0

    C．2

    D．1


    正确答案：C

  • 第10题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．8

    B．2

    C．5

    D．11


    正确答案：A
    解析：因为sub1过程的形参都是传值传送，所以在其内的所有计算结果都将不返回，并不影响对应的实参值，变量a的值并没有改变，仍旧是8。

  • 第11题：

    在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer) z=x^3*y^3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2，3，m) Print m End Sub

    A．216

    B．0

    C．35

    D．程序不能运行


    正确答案：B
    解析：当发生了Command1．的单击事件时，调用fun过程，把常量2、3和变量m按值传给形参x、y和z，在过程fun中把表达式“x^3*y^3”的值赋给z，z的值为316。过程调用返回后，由于m是值传递，所以对z的修改并没有改变它的值，m依旧保留原来的值是0。

  • 第12题：

    单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub

    A．6 6 12 6 6 10

    B．9 5 10 5 10 10

    C．9 6 12 9 10 15

    D．9 5 10 5 4 10


    正确答案：A
    解析：从整体上看，主调过程将两次调用过程Proc1后，实参的值将随形参变化而变化，现在分析一下这两次调用实参和形参是怎么变化的。第一次调用被调过程proc1，主调过程把实参x，x，z的地址分别传给形参x，y，z，此时形参x，y，z值分别为1，1，3，执行语句x=3*z后，形参x值变为9，此时相对应的实参，也变为9，执行语句y=2*z后，形参y值变为6，则相对应的实参x值为6。执行z=x+y后，形参。值应为12，当然这次调用后，程序代码输出的数值为6，6，12。第二次调用被调过程proc1，主调过程把实参x，x，x的地址分别传给形参x，y，z。我们应注意一下，此时实参x的值为6而不是1，所以此时形参x，y，z值分别为6，2和2，执行语句x=3*z后，形参x值为6，相对实参x值也相应的变为6。执行语句y=2*z后，形参y值变为4，相应的实参y值也变为4，执行z=x+y后，形参z值就为10，相应的实参Y的值变为10，而形参y和。的地址相同，最后它们值都应为10，所以此次调用后，程序代码将输出的数值为6，10和10。

  • 第13题：

    单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A)End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End Function

    A．21

    B．19

    C．17

    D．34


    正确答案：A
    解析：对于多个过程或函数依次调用和处理与简单过程调用处理一样，本题先调用函数P2，而函数P2又调用函数P1，结果返回的顺序是从P1到P2，P2计算后输出到调用的地方。

  • 第14题：

    Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。

    A．6, 8

    B．10, 10

    C．10, 8

    D．6, 10


    正确答案：D
    解析：事件发生时，首先定义两个变量X，Y并给他们赋值6和8。然后调用过程ABC，在过程ABC中有两个形参X，Y。X是按值传递，Y是按地址传递，所以在ABC过程中，对形参x的修改并不影响对应的实参x，但对形参Y的修改将影响到相应的实参Y。所以过程调用后，输出的X、Y值分别为6、100。

  • 第15题：

    有如下过程：

    Sub SS(ByVal X，ByRef Y，Z)

    X=X + 1

    Y=Y + 1

    Z=Z + 1

    End Sub

    执行该过程的事件过程如下：

    Private Sub Command1_Click()

    A = 1

    B = 2

    C = 3

    Call SS(A，B，C) Print A；B；C

    End Sub

    则该程序的执行结果是【 】。


    正确答案：1 3 4
    1 3 4

  • 第16题：

    有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

    A．0 0

    B． 1 1

    C．2 2

    D．1 2


    正确答案：B
    解析：考查考生对调用通用过程的掌握情况。
      [解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
      [错解分析] 调用通用过程可以返回多个参数值。
      [考点链接] 过程调用、参数传递。

  • 第17题：

    阅读下列程序： 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 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为

    A．0

    B．20

    C．40

    D．无任何输出


    正确答案：C
    解析：上述程序由一个通用过程和3个事件过程组成，在命令按钮事件过程中调用通用过程，并将一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体的Boolean变量SW的值必须为True，否则不能调用。而为了使SW的值为True，必须执行Form.MouseUp事件过程，这只能通过单击窗体来实现。单击窗体时，按下鼠标左键执行FormMouseDown事件过程，使得SW=False，松开鼠标后执行Form.MouseUp事件过程，使得=True。程序运行后，由于单击了一次窗体，执行了Form_Mouseup事件过程，再单击命令按钮，因而SW的值为True，调用通用过程后，在窗体上显示的内容是40。若没有事先单击窗体，而直接单击按钮，窗体上就没有任何内容输出。

  • 第18题：

    单击命令按钮时,下列程序的执行结果是

    Private Sub Command1_Click()

    Dim a As Integer, b As Integer, c As Integer

    a=3∶b=4∶c=5

    Print SecProc(c, b, a)

    End Sub

    Function FirProc(x As Integer, y As Integer, z As Integer)

    FirProc=2 * x + y + 3 * z+2

    End Function

    Function SecProc(x As Integer, y As Integer, z As Integer)

    SecProc=FirProc(z, x, y)+ x+7

    End Function

    A．20

    B．25

    C．37

    D．32


    正确答案：C
    解析：此题程序代码中用了嵌套调用,我们对这样的问题要多加小心,不能掉以轻心,千万不要把实参和相对应的形参弄混淆。主调过程Command1_Click输出的是SecProc(c,b,a)的返回值，调用过程SecProc时，主调过程分别把实参数c,b,a地址传给形参想，x,y,z,此时在过程SecProc中，SecProc=FirProc(a,c,b)+7。由此看出，程序段执行此语句时，将调用过程FirProc。把实参啊，a,b,c地址分别传给形参x,y,z,此时在过程FirProc中，FirProc=2*x+y+3*z=2,所以FirProc(a,c,b)=6+4+15+2=27,SecProc(a,c,b)=27+3+7=37。

  • 第19题：

    单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End Function

    A．20

    B．22

    C．28

    D．30


    正确答案：C
    解析：本题是在Command1过程中调用SecProc函数，而在SecProc函数中又调用了FirProc函数。函数调用时，实参和形参要一一对应传递．程序运行过程如下：①PrintSecProc(c,b,A)→PrintSecProc(5,4,3)；②SecProc=FirProc(z,x,y)+x→SecProc=FirProc(3,5,4)+5；③FirProc=2*x+y+3*z→FirProc=2*3+5+3*4=23；④SecProc=28→PrintSecProc(c,b,A)→Print28。形参是在被调用的Sub，Function过程中定义的参数名；实参则是在调用的Sub或Function过程中定义的参数名。

  • 第20题：

    有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．0

    B．1

    C．3

    D．4


    正确答案：B
    解析：Left(x$，3)的返回值为“Nan”，Right(y$，4)的返回值为“jing”，InStr("Nanjing"，z$)的返回值为1。

  • 第21题：

    阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．

    A．16

    B．21

    C．26

    D．31


    正确答案：D
    解析：过程Func有两个参数，使用的是引用方式，参数和返回值均为整型，在命令按钮事件过程的For循环中调用Func过程，共循环6次，每次循环调用一次。两个过程中使用的变量(包括参数)基本相同，但由于是局部变量，不会发生冲突。无论在事件过程还是通用过程中，y的值始终保持不变，总等于1。在Func过程中，DoLoop循环共执行5次，通过变量n控制(从0～4)，每次都执行x=x+1，因此，每调用一次Func过程，都使得x=x+5，并将返回值赋给事件过程中的变量z。6次调用中，循环变量n的计算过程为：1、2、3、4、5、6：返回值z的结果为：6、11、16、21、26、31。

  • 第22题：

    以下程序运行后，单击按钮输出结果是 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub

    A．6 6 12 7 11 11

    B．8 5 10 5 11 11

    C．9 6 12 9 10 15

    D．8 10 10 5 9 10


    正确答案：A
    解析：第一次调用被调过程Gopd，主调过程把实参x，x，z的地址分别传给形参x，y，z，此时形参x，y，z值分别为4，4和3，执行语句x=3*z+1后，形参x值变为10，此时相对应的实参x也变为10执行语句y=2*z后，形参y值变为6，则相对应的实参x值变为6；执行z=x+y后，形参z值应为12，当然这次调用后，程序代码输出的数值为6，6，12；第二次调用被调过程Gopd，主调过程把实参x，x，z的地址分别传给形参x，y，z，此时实参x的值为6而不是1，所以此时形参x，y，z值分别为6，2和2，执行语句x=3*z+1后，形参x值为7，相对实参x值也相应的变为7；执行语句y=2*z后，形参y值变为4，相应的实参y值也变为4；执行x=x+y后，形参z值变为11，相应的实参y的值变为11，而形参y和z的地址相同，最后它们值都应为11，所以此次调用后，程序输出的数值为7，11和11。

  • 第23题：

    在窗体上画一个名称为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，这样不会调用通用过程，也就不会输出任何信息。

相关内容