有如下函数过程: Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 reminder=x Mo

admin2010-09-11  30

问题 有如下函数过程:    Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer         Do While y <> 0              reminder=x Mod y               x=y              y=reminder         Loop         fun1=x    End Function  在下列按钮单击事件中调节器用该函数,则该程序的运行结果是(    )。   Private Sub Command1_Click()   Dim a As Integer   Dim b As Integer         a=100         b=25         x=fun1(a,b)Print x   End Sub

选项 A、0
B、25
C、5O
D、100

答案B

解析 可以通过两种方式来传递参数,即按值传递参数和按地址传递参数。按值传递参数时,传递的只是变量的副本。如果过程改变了这个值,则所作变动只影响副本而不会影响变量本身.用ByVel关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容,在将变量传递给过程时,通过过程可,永远改变变量值.默认时是按地址传递参数。题中fun1函数的参数都是按值传送的,函数使用“过程名=表达式”的形式获得函数的返回值,如愿中“fun1=x”语句。调用函数“x=fun1(s,b)”后,x=25。
转载请注明原文地址:https://jikaoti.com/ti/VIg0FFFM
0

最新回复(0)