一个简单的语法问题。

Question

Do
  Input #1, Gdata
  Combo1.AddItem Gdata
  If EOF(1) Then Close #1: Exit Sub
Loop1.看书发现没有Do...Loop这个语法？怎么解释？
2.If EOF(1) Then Close #1: Exit Sub
  是否等于
  If EOF(1) Then
     Close #1
     Exit Sub
  End If

Answer 1

EOF（1） 就是判断文件是否结束！

Answer 2

1DO Loop 應該是
Do 條件  
   操作
Loop
你的就是 Do 1=1
          操作
           if 一個條件 then 跳出
         LOOP
2.If EOF(1) Then Close #1: Exit Sub
  是否等于
  If EOF(1) Then
     Close #1
     Exit Sub
  End If
是等於  if 語句可以這樣寫的

Answer 3

Do
  Input #1, Gdata
  Combo1.AddItem Gdata
  If EOF(1) Then Close #1: Exit Sub
LoopDo...Loop是VB支持的一种循环构造快，如果在你的书上没有则说明你的书该换了。
EOF()函数判断文件是否到达文件末端，而这里的1是文件号，对应打开文件使用的文件号。
另外这种写法是不科学的。open filename for input as #1do until eof(1)
    Input #1, Gdata
    Combo1.AddItem Gdata
loopclose #1

Answer 4

同意mustudent(小生) 的说法

Answer 5

Do
  Input #1, Gdata
  Combo1.AddItem Gdata
  If EOF(1) Then Close #1: Exit Sub
Loop1.看书发现没有Do...Loop这个语法？怎么解释？
不要相信书总是正确的。我一般这样写：Do Until EOF(1)
  Input #1, Gdata
  Combo1.AddItem Gdata
Loop
Close #1当然，你也可以：
Do While True
  Input #1, Gdata
  Combo1.AddItem Gdata
  If EOF(1) Then Close #1: Exit Sub
Loop
不过，我认为是不好的写法。2.If EOF(1) Then Close #1: Exit Sub
  是否等于
  If EOF(1) Then
     Close #1
     Exit Sub
  End If是

Answer 6

Do ... Loop 也是可以的。不过下面的更合理些。
这样的例子纯粹是为了说明 Do...Loop 结构。把循环条件放在 Do 或 Loop 语句更好。Do
  Input #1, Gdata
  Combo1.AddItem Gdata
  If EOF(1) Then Exit Do
Loop
Close #1