运行下列程序，窗体中的显示结果是：（ ）。 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
运行下列程序，窗体中的显示结果是：（ ）。 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 Sub
A.x=3
B.x=2
C.x=21
D.x=12
相关考题：
窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下： Private Sub Command1 Click（ ） Dim n As Integer n=add(5，10) Print n End Sub Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer If Not IsMissing(v3)Then add=v1+v2+v3 Else add=v1+v2 End If End Function 运行程序，单击命令按钮，以下叙述中正确的是（ ）。A.程序不能正常运行，因为函数add的参数定义有错B.程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C.程序能正常运行，结果是在窗体上显示15D.程序能正常运行，结果是在窗体上显示510v3
运行下列程序，窗体中的显示结果是：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
在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A．10 5B．12 5C．10 7D．12 7
运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息
运行下列程序：Private Sub form_Click( )x = 8: y = 2Call fun1((x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4
运行下列程序: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
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As IntegerPrivate Sub Command1_Click()Dim y As Integerx=10 : y=5Call f(x, y)Print x; yEnd SubPrivate Sub f(x1 As Integer, y1 As Integer)x1=x+2y1=y+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是( )。A. 10 5B. 12 7C. 12 2D. 以上都不对
（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