运行下列程序，窗体中的显示结果是：（ ）。 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

题目

运行下列程序，窗体中的显示结果是：（ ）。 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

相似考题

1.窗体上有一个名称为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

2.下面程序的运行结果是在窗体中显示的：运行后窗体上显示的是______。

3.在窗体上画一个名称为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

4.运行下列程序，窗体中的显示结果是：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

参考答案和解析
正确答案：C
flag函数第一个参数是ByRef传递参数，所以实参也会被改变，而第二个参数是ByVal形式传递参数，不会改变实参的值，因此经过两次调用funl函数后，X的值为21，而b的值9不会改变。
更多“运行下列程序,窗体中的显示结果是:( )。 OptionCompare Database Dim X AsInteger PrivateSub F ”相关问题

  • 第1题：

    运行下列程序：

    Private Sub Form_Click( )

    a$ = 2

    b$ = 1

    Call abcd(a, b, c$, d$)

    Print c; d

    End Sub

    Private Sub abcd(x$, y$, z$, s$)

    z = x + y

    s = x - y

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.3 1

    B.1 3

    C.211

    D.显示出错信息


    正确答案：C

  • 第2题：

    运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x

    运行下列程序：

    Private Sub Form_Click( )

    Dim y As Integer, x As Integer

    Do Until x > 20

    x = x + 10

    y = y + x

    If x > 20 Then Exit Do

    Loop

    Print x, y

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.10 20

    B.30 60

    C.10 30

    D.20 60


    正确答案：B

  • 第3题：

    （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


    正确答案：
    （11）21

  • 第4题：

    运行下列程序：

    Private Sub form_Click( )

    x = 8: y = 2

    Call fun1((x), y)

    Print x, y

    End Sub

    Private Sub fun1(x, y)

    s = x

    x = s / y

    y = s Mod y

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.4 2

    B.8 2

    C.8 0

    D.2 4


    正确答案：C

  • 第5题：

    在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As Integer

    Private Sub Command1_Click()

    Dim y As Integer

    x=10 : y=5

    Call f(x, y)

    Print x; y

    End Sub

    Private Sub f(x1 As Integer, y1 As Integer)

    x1=x+2

    y1=y+2

    End Sub

    程序运行后,单击命令按钮,在窗体上显示的内容是( )。

    A. 10 5

    B. 12 7

    C. 12 2

    D. 以上都不对


    正确答案：C

相关内容