189 8069 5689
如果定义的变量过多，一个个设置赋值就太麻烦了也不现实，很容易遗漏。建议使用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
你可以在窗体的Load事件中给x赋初始值：
Private Sub Form_Load()
x = 10
End Sub
如果是模块中的全局变量，而且启动对象设为Sub Main，则可以在Main过程赋初始值：
Sub main()
x = 10
End Sub
也可以在使用x的时候，先检测x，如果是空值，就赋初始值：
If IsEmpty(x) Then x = 10
还有一种方法，可以把x定义为常量，这样就可以在定义时直接赋初始值：
Const x = 10
如果你的这个x是固定数值的话，建议你用最后一种方法。如果x是需要变化的，就只能用前面三种了。
0(零)
未赋值的变量，如果是数值型，则初始值为零；如果是字符串型，初始值为空字符串""。如果是Variant可变类型，则初始值为VBEMPTY。
提示表明你的textbox未实例化，你要么直接在窗口上创建一个textbox控件textbox1，要么使用代码动态创建：
dim tx as Textbox
set tx=new Textbox()
大概是这个代码，未测试。这样创建之后就可以使用它了。比如 original=textbox1.text 或者 original=tx.text