在窗体中添加一个命令按钮Command1和一个文本框Text1,编写如下代码: Private Sub Command1_Click() Dim x As Integer,y As Integer,z As Integer a=5,

admin2013-05-12  67

问题 在窗体中添加一个命令按钮Command1和一个文本框Text1,编写如下代码:
    Private Sub Command1_Click()
    Dim x As Integer,y As Integer,z As Integer
    a=5,b=10,c=0
    Me!Text1=""
    Call p1(a,b,c)
    Me! Text1=c
    End Sub
    Sub p1(x As Integer,y As Integer,z As Integer)
    z=x+y
    End Sub
    程序运行后,文本框中应显示的内容为_________。

选项

答案15

解析 由于在VBA中默认情况下,参数是按地址传递(ByRef),对形参的改变会影响到实参。本题中z的值等于a+b,这个z值会返回给实参c,所以文本框显示的内容为15。
转载请注明原文地址:https://kaotiyun.com/show/BUrp777K
0

最新回复(0)