标题: 请问如何做全局的循环计数 [打印本页] 作者: 司空公子 时间: 2004-8-10 15:27 标题: 请问如何做全局的循环计数 如下：
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值按照统一变量进行变化。否则我只好分别在各个脚本中进行设置，很麻烦。作者: 司空公子 时间: 2004-8-11 09:31
我现在想了个办法。在头文件里定义为
global const x as integer=1
然后到各脚本中再定义
dim y as integer
y=x
for y=x to 10
msgbox "Hello"
next y
这样我可以在头文件里修改x的值，在各脚本中以这个值为起始，分别循环。作者: pcl2004_27 时间: 2004-8-11 19:37
这种问题可以用两种方式
外部保存（注册表，文件），保存当前数据，然后其他地方用的时候读取
头文件，全局变量，也就是你的解决方式