【对话框测试里的小问题】

Option Explicit
Dim a As String

Private Sub Command1_Click()
  CommonDialog1.FileName = ""
  CommonDialog1.Flags = 4096
  CommonDialog1.Filter = "all files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
  CommonDialog1.FilterIndex = 2
  CommonDialog1.Action = 1 '建立对话框，等同于CommonDialog1.ShowOpen
  If CommonDialog1.FileName = "" Then
   MsgBox "no file seleted", 37, "checking"
  Else '对所选择的文件进行打开处理
   Open CommonDialog1.FileName For Input As #1 '以一个字符为单位依次读取文件
   Do While Not EOF(1) '判断是否已经读取完毕
    Input #1, a$ '同上
    Print a '每读取一个字符就输出一个
   Loop
  End If
End Sub

其中EOF函数有两个值，当读取文件的指针到末尾时，它的值就为true（即不为零），否则为false（0）

我一开始以为EOF（n）这里的n只要不为零就可以，调试发现必须跟input as #n的n保持相同，留一个疑问