如何用VB把一数字写进一txt里

新建一个工程；在窗体中建立两个按钮控件，名称分别为cmdInput和cmdOutput，然后再建立一个txt控件，名称为txtShow，再写入以下程序即可实现。 （第一次运行的时候，可能要在你工程存储的目录中先新建一个名为1的txt文件，不然会出错）

Option Explicit

'程序路径、Txt文件路径
Dim My_ProPath As String, TxtName As String

'Txt文件读入的信息、输出的信息变量
Dim k As Byte
Dim In_Text As String

'读取1.txt文件中的文本
Private Sub cmdInput_Click()
Open TxtName For Input As #1 ' 打开文件。
In_Text = ""
Do While Not EOF(1) ' 循环至文件尾。
In_Text = In_Text & Input(1, #1) ' 读入一个字符。
Loop
Close #1 ' 关闭文件。

txtShow.Text = In_Text
End Sub

'将变量k写入1.txt
Private Sub cmdOutput_Click()
k = "2"

Open TxtName For Output As #1
Print #1, k
Close #1
End Sub

Private Sub Form_Load()
My_ProPath = App.Path

TxtName = My_ProPath & "\1.txt"
End Sub

兄弟，你也不送点分意思意思