求助啊，看不到图形啊

--------------------编程问答--------------------

引用楼主  的回复:

Private Sub form_load()
Open "d:\tem\modelasc.txt" For Input As #1
End Sub

Private Sub command1_click()
Dim Keywords As String
Dim sData As String

Do While Not EOF(1)
  Line Input #1, sData
  Loop

Close #1
…………………………

你后面的代码处理的数据，岂不是只有最后一行？
那一行甚至是一空行……

--------------------编程问答-------------------- Private Sub command1_click()
 Dim Keywords As String
 Dim sData As String

Do While Not EOF(1)
  Line Input #1, sData
  Loop

该代码段读数据，只能得到到最后一行，前面的都让你给抛弃了，sdata应该转移出去

补充：VB ,  基础类