Question

如何用vb6.0编写可以随机显示一个txt文档中的某一行的程序

假设有一个txt文档，内容如下：
张三
李四
XXX
A
……
如何用vb编写一个程序可以读取这个txt，并在按下command1后在text中随机显示其中一行，再按则清空已显示的结果，再另外随机抽取一行。

Answer 1

Private Sub Command1_Click()
Dim s() As String
Open "txt文件名" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
Close #1
Text1.Text = s(Int(Rnd * (UBound(s) + 1)))
End Sub

追问

运行提示说
Text1.Text = s(Int(Rnd * (UBound(s) + 1)))
这一行下标越界

追答

Open "txt文件名" For Binary As #1 这里面的文件名要改为你自己的实际文件名及其完整路径，比如 c:\abc\123.txt

追问

噢，可以了，谢谢。我的文档在G盘，我一直在F盘进行读取……233333……