计算机二级
|在窗体上有一个命令按钮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过程调用与参数传递1A.2 32B.12 3C.2 2D.12 32
题目
|在窗体上有一个命令按钮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
相似问题和答案
第1题：
在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private SuB commandl_Click()
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
OeBug.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
解析：参数有两种传递方式：传址传递ByRef和传值传递ByVal。如果没有说明传递类型，则默认为传址传递。在函数．Proc(n As Integer，ByVal m As Integer)参数中，形参n默认为传址传递，形参的变化将会返回到实参，即形参n mod 10(12 rood 10)得到的结果2将返回给实参x，即x=2；而y为传值类型，不为形参的变化而变化，所以输出的x和y应为2和32。
第2题：
在窗体上有一个命令按钮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。
第3题：
（ 31 ）在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ，编写事件代码如下：
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = 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
第4题：
在窗体上有～个命令按钮Commandl和一个文本框Textl，编写事件代码如下 Private Sub Commandl_Click（ ） Dim i，j，XFori=I T0 20 step 2x=OForj=i T0 20 step 3x=x+lNextjNextiTextl．Value=Str（x）End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。【考点4 VBA流程控制语句】
A.1
B.7
C.17
D.400
外循环每次循环都将X重置为0，所以只看外循环的最后一次(即i=20时)，此时内循环j=i=20开始以步长为2递增，递增一次执行x=x+l=O+l=1后便结束循环，所以最后文本框显示的结果为l。
第5题：
在窗体上有一个命令按钮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。【解析】由于外层循环体中有语句x=0所以无论内循环结束时X为多少，它都将被重新赋值0，所以只有最后一次i=19，j=19此时x值为l，由于i的步长为2，21不符循环条件，退出整个循环。故文本框中的结果为l。
第6题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A. 1
B. 2
C. 3
D. 4
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小于70，所以不执行x=2；再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的X值为4。
第7题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A)1
B)2
C)3
D)4
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。
第8题：
在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
Private SuB cormmandl_Click()
Dim i,j,x
For i=i To 20 step 2
x=0
For j=1 To 20 step 2
x=x+1
Next j
Next i
Text1.Value=Str(x)
End SuB
打开窗体运行后，单击命令按钮，文本框中显示的结果是
A．1
B．7
C．17
D．400
解析：本题是一个双重循环，外循环中每循环一次，x的值都是从0开始累计，所以外循环中到最后一次循时，x的值是0，而内循环中的最后一次循环是j=20 to 20step 3所以此时内循环只循环一次，x的值为x=0+1=1，所以本题答案为A)。
第9题：
在窗体中添加一个名称为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
暂无解析，请参考用户分享笔记
第10题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
暂无解析，请参考用户分享笔记