VB文件如何处理方面的问题

Question

今天，我在查看回复的时候发现一个急用的提问没有有效的回答，能帮忙解决一下吗？谢谢
网址：https://ask.csdn.net/questions/8004546?spm=1001.2014.3001.5501

Answer 1

程序有明显的错

删除或注释多余的2行就可以了

Dim a As Integer
Dim b As Integer
 
Private Sub Command1_Click()
a = 100
Open "C:\a.txt" For Output As #1
'Close 这两行去掉就可以了
'Open "C:\a.txt" For Input As #1
Write #1, a
Close
Open "C:\a.txt" For Input As #1
Input #1, a
MsgBox (a)
End Sub