vb中的文件读取

我的程序确实实现了你想要的效果, 只是先全部读取到数组S()中, 要用到时才随机在S()中选取一行, 每次的结果也确实是不一样的. 你运行过了吗?

使用以下代码:

Private Sub Command1_Click()
Static s() As String
Dim i As Long
Static HasOpened As Boolean

If Not HasOpened Then
Open "c:\aa.txt" For Input As #3
Do While Not EOF(3)
i = i + 1
ReDim Preserve s(i)
Line Input #3, s(i)
Loop
Close #3
End If

Randomize Timer
i = Int(Rnd * UBound(s)) + 1
text1.text=text1.text & s(i) & vbcrlf
End Sub

知道么？
不读取是不能知道换行符在哪的。随机不了。
这个问题大概没有符合你要求的最佳答案了。