如何在vb中保存text中的数字.第二次打开时还显示那个数字的

VB可使用Write # 语句语句保存文本框的数据到文本顺序文件。再次运行程序上用Input # 语句从原保存的文本文件加载数据到原文本框。

• Write # 语句，将数据写入顺序文件。

• Input # 语句，从已打开的顺序文件中读出数据并将数据指定给变量。

• 通常用 Input # 从文件读出 Write # 写入的数据。

• Open 语句，能够对文件输入/输出 (I/O)。

• 保存数据代码：

  Private Sub cmdExit_Click()

      TxtgbwdS_sj = TxtgbwdS

      Txtgbwdx_sj = Txtgbwdx

      TxtZpwds_sj = TxtZpwds

      TxtZpwdx_sj = TxtZpwdx

      Open App.Path & "\data\data.txt" For Output As #1
  

          Write #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj       

      Close #1

  End Sub

• 加载代码

  Private Sub Form_Load()

      On Error GoTo uerror

      Open App.Path & "\data\data.txt" For Input As #1

          Input #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj

      Close #1

      TxtgbwdS = TxtgbwdS_sj

      Txtgbwdx = Txtgbwdx_sj

      TxtZpwds = TxtZpwds_sj

      TxtZpwdx = TxtZpwdx_sj

  uerror:

  End Sub

答案补充：你倒是试试啊，没有尝试完所有的答案，补充什么啊？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
打开，随便在Text1中输入什么东西，关闭，再打开，看看效果。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "settings", "text1.text")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "settings", "text1.text", Text1.Text
End Sub

不太明白楼主这个”第二次打开“是什么意思

如果是关闭应用程序，然后再打开应用程序的话，那可以将数字写入文件中，打开后再去读取文件中的值，或者写入注册表中，从注册表中读出也可

如果是关闭当前窗口，然后再第二次打开的话，那将数字放入一个全局变量就可以了