关于操作文本文件的问题，在线等候您的帮助。

Question

Private Sub Form_Click()Open "C:\Documents and Settings\den\桌面\1.txt" For Output As #1
For x = 1 To 10  Print #1, "68"
  
  Print #1, "本所有软工数据"
  Print #1, "56  78"
Next
Close #1
End Sub

Answer 1

你可以设一个byte 的变量 bCase
    select case bCase
        case 0
          '68
        case 1
          '文字
        case 2
          '56 78
    end select

Answer 2

Private Sub Form_Click()'开始
 Timer1.Interval = 1000
 Open "C:\Documents and Settings\den\桌面\1.txt" For Output As #1
 Timer1.Enabled = True
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  '结束
  Timer1.Enabled = False
  Close #1End SubPrivate Sub Timer1_Timer()
 '定时写入
  Print #1, ""
  Print #1, "68"
  Print #1, "本所有软工数据"
  Print #1, "56  78"
 
End Sub

Answer 3

这样可以了吗?
Private Sub Timer1_Timer()
Static A As Long
 A = A + 1
  Open "C:\Documents and Settings\den\桌面\1.txt" For Output As #1
  Print #1, A
  Print #1, "本所有软工数据"
  Print #1, A & A
  Close #1End Sub
Private Sub Form_Click() '开始
  Timer1.Interval = 1000
  Timer1.Enabled = True
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  '结束
  Timer1.Enabled = False
End Sub

Answer 4

感谢各位的帮忙，问题解决了，尤其是 “liangfang(一齐听歌〖眼红红〗)”，谢谢你。
 好人好运！
for i=0 to 999999999999999999999999999999999999999999999999999999999999
  谢谢！
next i                             [email protected]