编写如下程序： Private Sub Commandl—Click() Dim x As Integer，y As Integer x=10 y=20 Call funl(x，y) Print x；y End Sub Pr

admin2017-12-13 73

问题编写如下程序：
Private Sub Commandl—Click()
Dim x As Integer，y As Integer
  x=10
  y=20
  Call funl(x，y)
  Print x；y
End Sub
Private Function funl(ByVal nl As Integer，11 As Integer)As Integer
m=m*m
n =n+n
End Funetion
程序运行后，单击命令按钮Command1，输出结果为( )。

选项 A、10 25
B、10 40
C、100 25
D、100 40

答案B

解析函数funl(ByVal m As Integer，n As Integer)中m通过ByVal指定为值传递，n为引用传递。传递给该函数的实参会被改变。选B)。

转载请注明原文地址:https://www.kaotiyun.com/show/ZUID777K

本试题收录于：二级VB题库NCRE全国计算机二级分类