请问如何设置初始值

Question

我做了一个计算用的工具，每次计算前要输入数值，但默认的是没有数值的，需要手动输入，现在想让它有个初始值，并且这个数值也可以修改，请问改如何实现

Answer 1

设在文本框里输入，在 Form_Load 时加一句 Text1.Text = 5 就行了

Answer 2

使用文本保存数据，在窗体加载时初始化数据：
Private Sub Form_Load()
On Error GoTo uerror
Open "c:\ldgz\data.txt" For Input As #1
Input #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
Close
TxtgbwdS = TxtgbwdS_sj
Txtgbwdx = Txtgbwdx_sj
TxtZpwds = TxtZpwds_sj
TxtZpwdx = TxtZpwdx_sj
TxtPsqwds = TxtPsqwds_sj
Txtpsqwdx = Txtpsqwdx_sj
TxtGxzkd = TxtGxzkd_sj
TxtPsqzk = TxtPsqzk_sj
TxtBszkSet = TxtBszkSet_sj
TxtGxzkSet = TxtGxzkSet_sj
zhenkong = Left(TxtGxzkSet, 3) & Right(TxtGxzkSet, 1)
TxtBswdSet = TxtBswdSet_sj
alame_sj(0) = Val(TxtgbwdS)
alame_sj(1) = Val(Txtgbwdx)
alame_sj(2) = Val(TxtZpwds)
alame_sj(3) = Val(TxtZpwdx)
alame_sj(4) = Val(TxtPsqwds)
alame_sj(5) = Val(Txtpsqwdx)
alame_sj(6) = Val(TxtGxzkd)
alame_sj(7) = Val(TxtPsqzk)
alame_sj(8) = Val(TxtBszkSet)
alame_sj(9) = Val(TxtGxzkSet)
alame_sj(10) = Val(TxtGxzkSet)
alame_sj(11) = Val(TxtBswdSet)
uerror:
End Sub
Private Sub cmdExit_Click()
TxtgbwdS_sj = TxtgbwdS
Txtgbwdx_sj = Txtgbwdx
TxtZpwds_sj = TxtZpwds
TxtZpwdx_sj = TxtZpwdx
TxtPsqwds_sj = TxtPsqwds
Txtpsqwdx_sj = Txtpsqwdx
TxtGxzkd_sj = TxtGxzkd
TxtPsqzk_sj = TxtPsqzk
TxtBszkSet_sj = TxtBszkSet
TxtGxzkSet_sj = TxtGxzkSet
TxtBswdSet_sj = TxtBswdSet
Open "c:\ldgz\data.txt" For Output As #1
Write #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
Close
alame_sj(0) = TxtgbwdS
alame_sj(1) = Txtgbwdx
alame_sj(2) = TxtZpwds
alame_sj(3) = TxtZpwdx
alame_sj(4) = TxtPsqwds
alame_sj(5) = Txtpsqwdx
alame_sj(6) = TxtGxzkd
alame_sj(7) = TxtPsqzk
alame_sj(8) = TxtBszkSet
zhenkong = Left(TxtGxzkSet, 3) & Right(TxtGxzkSet, 1)
alame_sj(9) = Val(TxtGxzkSet)
alame_sj(10) = TxtGxzkSet
alame_sj(11) = TxtBswdSet
End Sub