违法和不良信息举报 联系客服
免费注册 登录

在窗体上有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim X As

题目

在窗体上有一个命令按钮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

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上有一个命令按钮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


正确答案：A
解析：本题是一个双重循环，外循环中每循环一次，x的值都是从0开始累计，所以外循环中到最后一次循时，x的值是0，而内循环中的最后一次循环是j=20 to 20step 3所以此时内循环只循环一次，x的值为x=0+1=1，所以本题答案为A)。

第2题：

在窗体中添加一个名称为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。

第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


正确答案：A

第4题：

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

A.机床

B.车床

C.钻床

D.轴承


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

第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
暂无解析，请参考用户分享笔记

第6题：

在窗体上有一个命令按钮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


正确答案：A
解析：参数有两种传递方式：传址传递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。

第7题：

在窗体上有一个命令按钮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。

第8题：

（ 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


正确答案：A

第9题：

|在窗体上有一个命令按钮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不随之改变。

第10题：

在窗体中添加一个名称为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。

相关内容