请问如何做全局的循环计数

司空公子

如下：
Sub Main
   
    CallScript "1"
    CallScript "2"
    CallScript "3"
        
End Sub

我有三个脚本，每个里都设置了同样的一个变量x，希望从1到10循环。可是我只能分别在各脚本里设置循环，不能使得三个脚本都运行过后再循环。
我把下设成全局变量，可是必须在各脚本里定义下的初始值。如果设成
global const x as integer＝1， x就固定为1，无法x=x+1循环了。
如果设成这样，x的值又无法传进各脚本中。
Sub Main
    Dim x As Integer
    Dim y As Integer
    x=1

    for y=1 to 10
    CallScript "1"
    CallScript "2"
    CallScript "3"
    next y
End Sub

请问各位有什么办法，能够让各脚本执行一遍后再循环，如何让各脚本中的x值按照统一变量进行变化。否则我只好分别在各个脚本中进行设置，很麻烦。

司空公子

我现在想了个办法。在头文件里定义为
global const x as integer=1
然后到各脚本中再定义
dim y as integer
y=x
for y=x to 10
msgbox "Hello"
next y
这样我可以在头文件里修改x的值，在各脚本中以这个值为起始，分别循环。

pcl2004_27

这种问题可以用两种方式
外部保存（注册表，文件），保存当前数据，然后其他地方用的时候读取
头文件，全局变量，也就是你的解决方式