如何在VBScript中增加变量值

我想在VBScript中每次执行子脚本时增加一个数字。例如：

子增量（）
X=200
端接头

---

在执行sub时第一次使用

X

（200）的值后，下次执行sub时该值无效。下次执行sub时，我需要使用x=201。如何在每次执行sub时设置X=201、X=202、X=203等等

正如@GSerg所建议的，在Sub之外声明X变量：

' Declare and Initalize X
Dim X
X = 200

Sub Increment()
    X = X + 1
End Sub

您的问题中

X

的范围仅限于所使用的过程，因为它没有在任何地方声明。您希望在模块级别声明变量。看看这篇微软关于变量范围的文章，它有一个非常相似的例子：。即使它适用于VBA，它也适用于VBScript

使用相同概念的另一种方法是将

增量

作为一个函数：

Function Increment(p_iValue)
    Increment = p_iValue + 1
End Function

这将是等效代码：

' Declare and Initalize X
Dim X
X = 200

' Do this whenever you need a new value for X
X = Increment(X)

---

正如@GSerg所建议的，在Sub之外声明X变量：

' Declare and Initalize X
Dim X
X = 200

Sub Increment()
    X = X + 1
End Sub

您的问题中

X

的范围仅限于所使用的过程，因为它没有在任何地方声明。您希望在模块级别声明变量。看看这篇微软关于变量范围的文章，它有一个非常相似的例子：。即使它适用于VBA，它也适用于VBScript

使用相同概念的另一种方法是将

增量

作为一个函数：

Function Increment(p_iValue)
    Increment = p_iValue + 1
End Function

这将是等效代码：

' Declare and Initalize X
Dim X
X = 200

' Do this whenever you need a new value for X
X = Increment(X)

---

将

dim x

放在子模块之前？将

dim x

放在子模块之前？感谢您的回复。我对VBScript真的很陌生。此代码如何在每次执行sub时增加X的值？我会再试一次，把我的问题解释清楚。我需要将X的值从200设置为201，从201设置为202，从202设置为203，然后打开。因为我的应用程序中的字段不会接受以前的值，每次都需要一个新的数字。希望这有意义。每次调用

Increment

时，X都会递增（因为

X=X+1

行）。X初始化为200（

X=200

line）。如果您发布整个脚本，也许我们可以更好地帮助您，但这段代码向您展示了如何声明一个变量，该变量将在

Increment

sub中重用。感谢您的回复。我对VBScript真的很陌生。此代码如何在每次执行sub时增加X的值？我会再试一次，把我的问题解释清楚。我需要将X的值从200设置为201，从201设置为202，从202设置为203，然后打开。因为我的应用程序中的字段不会接受以前的值，每次都需要一个新的数字。希望这有意义。每次调用

Increment

时，X都会递增（因为

X=X+1

行）。X初始化为200（

X=200

line）。如果您发布整个脚本，也许我们可以更好地帮助您，但是这段代码向您展示了如何声明一个变量，该变量将在

Increment

sub中重用。