易语言子程序间如何传递变量值

你不要设置局部变量，设置成程序集变量

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 Y, 整数型

.程序集变量 X, 整数型

.子程序 公用代码

.局部变量 返回文本, 文本型, , "0"

.如果真 (X ≥ 0 或 Y ≥ 0)

.如果真结束

模拟鼠标点击 (X ＋ 10, Y ＋ 10, )

......

.子程序 移动物品

.局部变量 返回文本, 文本型, , "0"

X ＝ 30

Y ＝ 40

公用代码 ()

X ＝ 50

Y ＝ 60

公用代码 ()

有两种方法可以实现将子程序中的值传递出来。

（1）利用模块级或全局变量。例如

Option Explicit

' r是一个模块级变量

Dim r As Integer

Sub Add(ByVal x As Integer, ByVal y As Integer)

    '将计算结果存放到 r

    r = x + y

End Sub

Private Sub Form_Click()

    '调用子程序Add

    Call Add(10, 20)

    '获取计算结果并打印

    Print r

End Sub

（2）用 ByRef 参数实现计算结果回传。 例如

Option Explicit

'Add子程序利用 ByRef r As Integer 回传值

Sub Add(ByRef r As Integer, ByVal x As Integer, ByVal y As Integer)

    r = x + y

End Sub

Private Sub Form_Click()

    Dim r As Integer

    '调用子程序Add，计算结果回传到变量 r

    Call Add(r, 10, 20)

    '打印结果

    Print r

End Sub

---