（ 33 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A

题目

（ 33 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 12: y = 32

Call Proc(x, y)

Debug.Print x; y

End Sub

Public Sub Proc(n As Integer, ByVal m As Integer)

n = n Mod 10

m = m Mod 10

End Sub

打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A ） 2 32

B ） 12 3

C ） 2 2

D ） 12 32

相似考题

1.（ 31 ）在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ，编写事件代码如下：Private Sub Command1_Click()Dim i,j,xFor i = 1 To 20 step 2x = 0For j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是A ） 1B ） 7C ） 17D ） 400

2.在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim x As Integer,y As Integerx=12:y=32Call Proc(x,y)OeBug.Print x;yEnd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10End SuB打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A．2 32B．12 3C．2 2D．12 32

3.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1B. 2C. 3D. 4

4.在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private SuB cormmandl_Click()Dim i,j,xFor i=i To 20 step 2x=0For j=1 To 20 step 2x=x+1Next jNext iText1.Value=Str(x)End SuB打开窗体运行后，单击命令按钮，文本框中显示的结果是A．1B．7C．17D．400

更多“( 33 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()Dim x ”相关问题

  • 第1题：

    在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim X As Integer，Y As Integer x=12：y=32 Call Proc(x，Y) Debug．Print X；Y End Sub Public Sub proc(n As Integer，ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。

    A.232

    B.123

    C.22

    D.1232


    正确答案：A
    A。【解析】由程序可知proc过程作用是将参数的个位求出并赋给本身。它的第一个参数是默认按地址传递，所以它可以改变实参的值，而第二个是按值传递，形参的改变对实参无影响。于是当Callproc(x，y)后X由12变为2，而y仍为32。

  • 第2题：

    在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Commandl一Click（ ）Dim i，j，X For i=1 TO 20 step 2 X=0 For j=i TO 20 step 3 X=X+1 Next j Next i．Textl．Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。

    A.1

    B.7

    C.17

    D.400


    正确答案：A
    A。【解析】由于外层循环体中有语句x=0所以无论内循环结束时X为多少，它都将被重新赋值0，所以只有最后一次i=19，j=19此时x值为l，由于i的步长为2，21不符循环条件，退出整个循环。故文本框中的结果为l。

  • 第3题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案：C
    暂无解析，请参考用户分享笔记

  • 第4题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

    窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

    A)1

    B)2

    C)3

    D)4


    正确答案：D
    本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。

  • 第5题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码。 Public x As IntegerPrivate SUb Commandl_Click（ ） x=10Call slCall s2MsgBoxXEndSubPrivate Sub sl（ ） x=x+20EndSubPrivate Sub s20Dim xAs IntegerX=x+20EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

    A.10

    B.30

    C.40

    D.50


    正确答案：B
    暂无解析，请参考用户分享笔记

相关内容