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

(11)运行下列程序,窗体中的显示结果是:x= 【11】 。Option Compare DatabaseDim x As Integer Priv

题目

（11）运行下列程序，窗体中的显示结果是：x= 【11】 。

Option Compare Database

Dim x As Integer

Private Sub Form_Load()

x=3

End Sub

Private Sub Command11_Click()

Static a As Integer

Dim b As Integer

b=x^2

fun1 x,b

fun1 x,b

MsgBox "x="&x

End Sub

Sub fun1(ByRef y As Integer,ByVal z As Integer）

y=y+z

z=y-z

End Sub

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

第1题：

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

A．36

B．25

C．1

D．出错信息


正确答案：D

第2题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer Cls x=x+5 y=y+3 Print x,y End Sub 程序运行时，两次单击命令按钮Command1后，窗体显示的结果是( )。

A．10 6

B．5 6

C．5 3

D．10 3


正确答案：B

第3题：

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI

A．3 7 11 45 19

B．17 13 9 5 1

C．1 3 5 7 9

D．不确定的值


正确答案：B

第4题：

在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。

A．10

B．0

C．11

D．21


正确答案：B
解析：ByVal表示所声明的参数是按值传递的。因此参数值的变化只在被调用的函数或过程中有效，即只是形参的值有变化，而实参不受影响。ByRef表示所声明的参数是按地址传递的，形参值的变化都会反映在实参上。如果形参名前面缺省修饰词，默认为ByRef形式。
  程序声名了一个拥有两个形参变量的函数Fun1()，形参变量a按值传递参数，变量b按地址传递参数。执行命令按钮Command1的Click事件后，三次调用函数Fun1()，程序执行的过程如下：
1、首先调用最里面一层的Fun1函数Fun1(x，x-1)，此时，a=10，b=9，t=10-9=1，b=t+ a=1+10=11，Fun1=t+ b=12，所以第一个Fun1返回值为12。
2、接着调用中间一层Fun1函数Fun1(x，(Fun1(x，x-1))，因为形参变量a按值传递参数，形参的变化并不影响实参，所以x的值仍为10，Fun1(x，x-1)得到的返回值为12，此时，a=10，b=12，t=10-12=-2，b=t+ a=-2+10=8，Fun1=-2+8=6，所以中间一层的Fun1返回值为6。
3、最后调用最外一层Fun1(Fun1(x，(Fun1(x，x-1)))，x-1)，Fun1(x，(Fun1(x，x-1)))的返回值为6，x-1=9，此时a=6，b=9，t=10-9=-3，b=t+ a=3+6=3，Fun1=3+3=0，所以最后的值为0。

第5题：

在窗体上画一个名称为Command1的命令按钮和3个名称分别为Labe11、Labe12、 Labe13的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() State y As Integer Dim z As Integer n = 10 z = n+z y = y+z x = x+z Labe11.Caption = x Labe11.Caption = y Labe11.Caption = z End Sub程序运行后，连续3次单击命令按钮，则3个标签框中显示的内容分别是______。

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30


正确答案：C

第6题：

下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()

A．23

B．19

C．21

D．22


正确答案：A

第7题：

在窗体上画一个命令按钮(名称为Command1)，并编写下列代码： Function Fun1(ByVa1 a As Integer，b As Integer)As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End Function Private Sub Command1Click（ ） Dim X As Integer x=10 Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1) End Sub 程序运行后，单击命令按钮，输出结果是（ ）。

A.10

B.0

C.11

D.21


正确答案：B
B。【解析】在VisualBasic中，参数通过两种方式传送，即传地址和传值。其中，传地址习惯上称为引用，当通过引用来传送实参时，可以改变传送给过程的变量值；传值就是把需要传送的变量复制到一个临时的单元中，然后把该临时单元的地址传送给被调用的通用过程，它不会改变原来变量的值，所有的变化都是在变量的副本上进行的。本题自定义函数Fun1的第1个参数按值传递，第2个参数虽然按址传递，但调用该函数时第2个参数均为表达式，因此变量x的值不受调用函数的影响。第1次调用Funl函数时，Fun1(10，9)=12；第2次调用Fun1函数时，Fun1(10，12)：16；第3次调用Fun1函数时，Fun1(6，9)=0。

第8题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。

A．8

B．2

C．5

D．11


正确答案：A
解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。

第9题：

在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．5

B．6

C．8

D．11


正确答案：D
解析：上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量x的计算过程为：x=1、2、3、2、1、4、3、2、1，表达式n-k的计算过程为：n-k=4、3、2、2、2、1、1、1、1。其中有14、23、21这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即sum=1+2+1+3+3+1=11。

第10题：

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer，y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub

A．3 7 11 45 19

B．19 15 11 7 3

C．1 3 5 7 9

D．不确定的值


正确答案：B

更多相关问题
相关内容