谁能告诉我~
Private Sub cmd1_Click()
no = Text1.Text
na = Text2.Text
Write #2, no, na
Close #2
End Sub
Private Sub Form_Load()
Open "c:\a.txt" For Output As #2
End Sub
出什么毛病了~
...全文
743打赏收藏
谁可以告诉我~
谁能告诉我~ Private Sub cmd1_Click() no = Text1.Text na = Text2.Text Write #2, no, na Close #2 End Sub Private Sub Form_Load() Open "c:\a.txt" For Output As #2 End Sub 出什么毛病了~
Private Sub cmd1_Click()
Dim no As String, na As String
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #2
Print #2, no & vbCrLf & na
Close #2
End Sub