vb,vbs写入txt数据

vb:

1）

Dim i As Integer
Private Sub command1_click()
    i = i + 1
    Open "c:\1.txt" For Append As #1
        Print #1, i
    Close #1
End Sub