（11）运行下列程序，窗体中的显示结果是：x= 【11】 。Option Compare DatabaseDim x As IntegerPrivate Sub Form_Load()x=3End SubPrivate Sub Command11_Click()Static a As IntegerDim b As Integerb=x^2fun1 x,bfun1 x,bMsgBox "x="xEnd SubSub fun1(ByRef y As Integer,ByVal z As Integer）y=y+zz=y-zEnd Sub
（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
相关考题：
下列程序运行时输出的结果是( )。 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)； NextIA．3 7 11 45 19B．17 13 9 5 1C．1 3 5 7 9D．不确定的值
在窗体上画一个名称为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．8B．2C．5D．11
下列程序运行时输出的结果是( )。 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 SubA．36B．25C．1D．出错信息
下列程序运行后，单击命令按钮，窗体显示的结果为( )。 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．23B．19C．21D．22
在窗体上画一个名称为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 6B．5 6C．5 3D．10 3
在窗体上画一个命令按钮(名称为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.10B.0C.11D.21
在窗体上画一个名称为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 10B．30 30 30C．30 30 10D．10 30 30
在窗体上画一个名称为 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．5B．6C．8D．11
在窗体上画—个命令按钮(名称为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．10B．0C．11D．21
下列程序运行时输出的结果是 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 SubA．3 7 11 45 19B．19 15 11 7 3C．1 3 5 7 9D．不确定的值
运行下列程序，窗体中的显示结果是：x= 。Option Compare DatabaseDim x As IntegerPrivate Sub Form_Load（）x=3End SubPrivate Sub Commandll_ Click()Static a As IntegerDim b As Integerb=x^2funl x，bfunl x，bMsgBox〝x=〞xEnd SubSub funl（ByRef y As Integer，ByVal z As nteger）y=y+zz=y-zEnd Sub
设有如下程序：Prirate Sub Form_Click()Dim a As Integer,b AS Integera=20:b=50p1 a,bp2 a,bp3 a,bPrint"a="；a,"b=";bEnd SubSub p1(x As Integeh By Val y As Integer)x=x+10y=y+20End SubSub p2(ByVal x As Integer,y As Integer)x=x+10y=y+20End SubSub p3 (ByVal x As Integer,ByVal y As Integer)x=x+10y=y+20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a= ______ 和b= _____。
以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c，b，A)End SubA．19B．21C．22D．23
以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End SubA．30 50B．30 30C．20 20D．10 20
运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End SubA.x=3B.x=2C.x=21D.x=12
下列程序运行时输出的结果是 Option Base 1Private Sub Form_Click()Dim x(10) As Integer，y(5) As IntegerFor i=1 to 10x(i) =10-i+1NextFor i=1 to 5y(i)=x(2*i-1)+x(2*i)NextFor i=1 to 5Print y(i)NextEnd SubA．3 7 11 45 19B．19 15 11 7 3C．1 3 5 7 9D．不确定的值
运行下列程序，窗体中的显示结果是：（ ）。OptionCompare DatabaseDim X AsIntegerPrivateSub Form_Loadx=3EndSubPrivate Sub Commandll_clickStatic aAs IntegerDim b AsIntegerb=x^2funl x，bfunl x．bMsgBox”x=‘’xEnd SubSubfunl(ByRef Y As Integer，ByVal z AS Integer)y=y+zz=y-zEnd SubA.x=3B.x=2C.x=21D.x=12
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 3 5 7B．2 8 14 53C．0 3 21 45D．0 5 11 34
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(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 sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．8B．2C．5D．11
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
以下程序运行后，单击按钮输出结果是 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End SubA．6 6 12 7 11 11B．8 5 10 5 11 11C．9 6 12 9 10 15D．8 10 10 5 9 10
在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：Function Fun1(ByVa1 a As Integer，b As Integer)As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1Click（ ）Dim X As Integerx=10Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)End Sub程序运行后，单击命令按钮，输出结果是（ ）。A.10B.0C.11D.21
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．34B．4C．35D．3
单击按钮时，以下程序运行后的输出结果是 Private Sub Commandl_Click( ) Dim X As Integer，y As Integer，z As Integer x=1：y=2： Z=3 Call God(x，x，z) Print x；x；z Call God(x，y，y) Print X；y；y End Sub Private Sub God(x As Integer，y As Integer，z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End SubA．6 6 12 7 11 11B．8 5 10 5 11 11C．9 6 12 9 10 15D．8 10 10 5 9 10
下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubA、X+Y=11B、5+6=11C、11D、True