【對話框測試裏的小問題】

建立一個命令按鈕和一個對話框控件： 

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保持相同，留一個疑問