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

题目

在窗体中添加一个命令按钮，并编写如下程序： 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

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

相似问题和答案

第1题：

在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Functionfun(xAsInteger)Staticzy=y＋1:z=z＋1fun=x＋y＋zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后,如果单击命令按钮,窗体中显示的内容是( )

A、33

B.34

C.3

D.3

正确答案：D

第2题：

在窗体中添加一个名称为Command1命令按钮和一个名称为text1的文本框，然后编写如下程序：

PrivateSubCommand1_Click()

Dimx,y,zAsInteger

x=5:y=7:z=0

Text1.Text=""

Callp1(x,y,z)

Text1.Text=Str(z)

EndSub

Subp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)

c=a+b

EndSub

程序运行后，如果单击命令按钮，文本框中显示的是( )

A、0

B.12

C.Str(z)

D.没有显示

正确答案：B

第3题：

在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End Sub

A．19

B．21

C．42

D．19

正确答案：C
解析：InputBox()函数的功能是在一个对话框中提示用户输入信息，在确认(即单击“确定”按钮)之后将输入的内容以字符串形式返回，在程序中使用InputBox()函数分别为x、y和z变量赋值，当变量2的值不等于5的时候，结束循环，将得到的x、y、2的值进行运算(x+y+2z)，在窗体上打印(Print)输出运算结果。程序运行后，前两次输入的2值都是5，所以程序不会跳出循环，当第3次输入时，得到的x、y、z值分别为12、6、12，此时的2值不为5，程序结束循环并输出运算结果：12+6+2*12＝42。

第4题：

在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) TextText＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub

A．0

B．12

C．Str(z)

D．没有显示

正确答案：B
解析：本题主要是对调用Sub过程的考查。调用过程P1时，实参x，y，z的值分别传递到形参a，b，c。执行过程内的语句得 z=x+y即z=5+7。题中a，b参数是按值传送的，参数c是按址传送的，传值调用不影响实际参数，传址调用影响实际参数。故执行过程内的语句后z的值变为12而不是0。z是整型变量，可以使用Str函数将其转换为字符类型，然后赋给文本框的Text属性，使其在文本框中显示。

第5题：

在窗体上画一个名称为Command1的命令按钮和一个名称为Tcxt1的文本框，然后编写如下程序：Private Sub Command1_ Click Dim x, y, z As Integer x = 5: y = 7: z =0 Text1. Text = " " Call p1(x, y, z) Text1.Text = Str (z)End SubPrivate Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a+ bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是______。

A．0

B．12

C．Str(z)

D．没有显示

正确答案：B
解析：本题的难点是按地址传递(传址)参数的概念。变量x和y是按值传递参数，变量z默认用“ByRef”替代，则表明参数是按地址传递(传址)参数，所以z将变量c的值12传回，并转变成字符串赋值给文本框Text1。

第6题：

在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Texttext = " " Call P1 (x,y,z) TextText = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，在文本框中显示的内容是 ______。

A．0

B．12

C．Str(z)

D．没有显示

正确答案：B
解析：在Visual Basic中，进行函数调用时，形式参数默认的是按传地址ByRef的方式进行传递，如果要传值调用，必须用ByVal指明。本题中a和b为传值调用，即先将x和y的值传递给a和b，然后通过c传地址调用，将a和b之和传递给主调函数的变量z，因此z的值为12，

第7题：

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

Private Sub Command_Click()

Dim x AS Integer， y As Integer， z As Integer

x=5:y=7:z=0

Me!Textl=””

Call pl(x，y，z)

Me!Text1=z

End Sub

Sub pl(a As Integer，b As Integer，c As Integer)

C=a+b

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是【】。

正确答案：12
12 解析：本题考查考生阅读VBA程序的能力。程序中调用p1(x,y,z)函数来将z的值交给文本框Text1，p1(x,y,z)函数实现将x与y相加，然后赋给z的功能。所以在文本框中显示的内容是12，是5+7的结果。

第8题：

在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后，输出的结果是______。

A．3

B．0

C．2

D．1

正确答案：C
解析：变量中的数据为最后一次赋的值。

第9题：

有如下程序段：

intx=1，y=2，z=3；

x=x^z：

y=y^z；

z=x^y：

cout＜＜x＜＜y＜＜z；

这个程序段的输出结果是______。

正确答案：213
213

在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_CliCk()X=1∶Y=2∶Z=3X=Y∶Y=Z∶Z=X

题目

相似问题和答案

相关内容