請問一下，我原本是用VB寫的，轉到FreeBasic後，他都一直出錯 

dim Temp as string
dim a1 as integer
dim a2 as integer
dim sum as integer
open CONS for input as #1
    while not EOF(1)
        input #1 ,Temp
        a1 = val(left( temp , instr(temp," ")-1 ))
        a2= val(right(temp,len(temp)-instr(temp," ")))
        sum =a1+a2
        print sum
    wend
close #1

    while not EOF(1)
        input #1 ,Temp
        :
        :
    wend

在讀完最後一筆資料後，程式並未真正碰到檔尾。這時候 EOF(1) 仍然會回傳 False，因此迴圈會再多執行一次，而這次 input 卻遇到檔尾而沒有辦法讀到資料，所以 Temp 會是空字申，所求得的 sum 會是 0。

請參考 a001 的迴圈結構。