求一个小程序（VB什么的都可以），导入TXT，随机显示里面内容

Dim LineStr() As String
Dim FileSpec As String 'txt路径
Function GetLineStr(FileSpec As String) As String() '获取filespec路径下文件每一行内容，并写入数组函数中
Dim i As Integer
Dim TempStr As String, Temp() As String
Dim FileNum As Integer
FileNum = FreeFile
Open FileSpec For Input As #FileNum
Do While Not EOF(1)
Line Input #FileNum, TempStr
i = i + 1
ReDim Preserve Temp(1 To i) As String
Temp(i) = TempStr
Loop
GetLineStr = Temp
Close #FileNum
End Function

Private Sub Command1_Click() '调用示例
With CommonDialog1
.Filter = "文本文件|*.txt"
.ShowOpen
FileSpec = .FileName
End With
Timer1.Enabled = True
End Sub
Sub TxtShow()
Dim i As Integer
Randomize
LineStr = GetLineStr(FileSpec)
i = Int(Rnd * (UBound(LineStr))) + 1
Text1.Text = LineStr(i)
End Sub
Private Sub Timer1_Timer()
TxtShow
End Sub

单机 文件 选项卡，里面有生成工程.exe

需要用到FSO