在窗体上有一个命令按钮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.232B.
题目
在窗体上有一个命令按钮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。【解析】由程序可知proc过程作用是将参数的个位求出并赋给本身。它的第一个参数是默认按地址传递，所以它可以改变实参的值，而第二个是按值传递，形参的改变对实参无影响。于是当Callproc(x，y)后X由12变为2，而y仍为32。
更多“在窗体上有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim X As ”相关问题
-
第1题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1
B. 2
C. 3
D. 4
正确答案：A
本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。 -
第2题：
在窗体中添加一个名称为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
暂无解析，请参考用户分享笔记 -
第3题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
正确答案：C
暂无解析，请参考用户分享笔记 -
第4题：
在窗体上有一个命令按钮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。 -
第5题：
|在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl_Click（ ） Dim X As Integer，Y As Integerx=12：y=32Call Proc（x，y）EndSubPublic Sub Proc{n As Integer，ByVM mAs mteger}n=nMod l0m=mModl0EndSub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。l考点5过程调用与参数传递1
A.2 32
B.12 3
C.2 2
D.12 32
正确答案：A
在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用ByRef声，说明此参数为传址调用，此时形参的变化将会返回到实参；若没有说明传递类型，则默认为传址传递。因此调用函数实参x是传址方式传递，实参Y为传值方式传递，调用函数后X值在函数中随形参改变，即x=xroodl0=12modl0=2，而Y不随之改变。 -
第6题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
Dim x As Integer,y As Integer
x=12：y=32
Call p(x,y)
MsgBox x*y
End Sub
Public Sub p(n As Integer,By Val m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
正确答案：64
64 解析：子过程p有两个参数m和n，参数m，n是整型，而通过“ByVal”可知，参数m是按值传递的参数。由于在过程定义时未做参数说明的情况下，默认为传址调用，所以参数n是按址传递。(按址传递的过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性。)在命令按钮单击事件过程中，程序通过两个实参x，y为形参m，n赋值，“n=n Mod 10”表示12与10取余，结果为2，由于n是传址调用，所以返回实参的结果：x=2，而形式参数m因为被“ByVal”修饰，所以过程调用只是将实参y的值“单向”传送给形参 m处理，而被调用过程内部对形参m的取余操作引起的形参值的变化均不会反馈、影响实参y的值，也就是说实参y=32，通过语句“MsgBox x*y”，可以得出：x*y=2*32=64，也就是窗体打开运行后，单击命令按钮，则消息框的输出结果为64。