如下是一个统计字符的程序，首先我得说它的代码是正确的。我在调试过程中发现，要让它顺利运行必须先得做一个.dat文件才行，并且这个文件还得包含各种字符----------但是，我真的是不知道如何输入这个文件的具体内容（我知道如何新建它，但不知道怎么去做它的内容），也不知道各字符之间的分隔符应该是怎样的。结果，试了很久这个程序都无法通过。。。。悲摧
请问，谁能提供一个让这个程序正确运行的.dat文件给我？谢谢！

Private Sub COMSTART_Click()
   Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer
   myfile1 = App.Path & "\" & "prog8a.dat"
   myfile2 = App.Path & "\" & "prog8b.dat"
   Open App.Path & "\" & "prog8a.dat" For Input As #1
   Open myfile2 For Output As #2
   While Not EOF(1)
      Input #1, Ch$
      If Asc(Ch$) >= 48 And Asc(Ch$) <= 57 Then
         Number = Number + 1
      ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then
         Cp = Cp + 1
      ElseIf Asc(Ch$) >= 97 And Asc(Ch$) <= 122 Then
         Lp = Lp + 1
      Else
         Others = Others + 1
      End If
   Wend
   Print #2, Number, Cp, Lp, Others
   Close
   COMSTART.Caption = "完成"
   COMSTART.Enabled = False
End Sub
[em8]