Question

在VB中如何将所有变量重新设为初始值？

我在vb中声明了很多变量，Integer、String、Bollean等等各种都有，我想做一个过程，将所有变量的值设成初始值，即Integer的变成0，String的变成""，Bollean的变成False。
因为定义的变量过多，一个个设太麻烦，请问有没有一种简便的方法可以实现？
这个我知道，我的意思是经过中途各种赋值后，重新将所有变量变回到初始值，这该怎样办？
变量声明位于模块中，为全局变量。

zhmj_xsl，你的那句“BuildInsertFieldsStr = strWholeResult”什么意思？

Answer 1

如果定义的变量过多，一个个设置赋值就太麻烦了也不现实，很容易遗漏。建议使用VarType函数，根据变量类型设置初始化的值。
你设想的变量恢复初始值是不可能有这个功能的。变量类型里还有var型，以及部分定值。那个功能会造成混乱。
strValueType = VarType(varValue)
Select Case strValueType
Case vbInteger, vbLong, vbSingle, vbDouble
Case vbString ', vbDate
Case vbDate
Case vbBoolean
Case Else
BuildInsertFieldsStr = strWholeResult
Exit Function
End Select

Answer 2

'只能一个个赋值,不过如果你聪明一点,可以放在过程中
'把变量放在全局位置

Public iInteger As Integer, dDouble As Double, ... , sString As String

Public Sub InitVariable()
iInteger = 0
dDouble = 0
lLong = 0
sString = ""
...
End Sub

'在需要重设的地方调用该过程,如
Private Sub Command1_Click()
Call InitVariable
End Sub

Answer 3

“我想做一个过程，将所有变量的值设成初始值，即Integer的变成0，String的变成""，Bollean的变成False。”
就应该这样，在需要时调用这个过程就可以。没有其他简洁的办法。
你的变量在模块中，不能使用重新启动当前窗体来初始化，如果容许，可以重新启动工程，这样也可以初始化。
最好的方法还是定义一个过程，使其全部初始化。

Answer 4

应该没有，自己定义的变量就应该自己初始化，否则以后会有很多麻烦

Answer 5

问题补充：
这个我知道，我的意思是经过中途各种赋值后，重新将所有变量变回到初始值，这该怎样办？
变量声明位于模块中，为全局变量。

针对这种特殊情况，只能自己建立一个过程，将需要清零的变量放在该清零函数中，需要清零的时候调用该函数即可！

Public Sub InitVariable()
iInteger = 0
dDouble = 0
lLong = 0
sString = ""
...
End Sub

'在需要重设的地方调用该过程,如
Private Sub Cmd_Click()
Call InitVariable
End Sub