[問題] 大家幫忙看看八....

[jints (^^)]

  檔案USPRES.TXT包含了43位美國總統的姓名(已排序)。
  請設計一個程式可以輸入first name得到full name(可能不只一個人）

  Private Sub Command1_Click()
 Dim first(1 To 43) As String
Open "C:\Documents and Settings\user\桌面\電腦程式語言VB6.0\data2\USPRES.TXT" For Input As #1

For n = 1 To 43
 Do While (first(n) <> Text3.Text) And (Not EOF(1))
 Input #1, first(n)
 Loop
Next n
Close #1
For n = 1 To 43
If first(n) = Text3.Text Then
        Picture2.Print first(n)

    End If
Next n
End Sub

  我寫的變成要輸入full name才能顯示....

  要怎麼改才能變成輸入first name然後得到full name呢

  請問大家囉^^



--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.64.32.172
→ LPH66:用instr()及mid()可以切一段字串下來