【VB】怎样让文本框随机显示指定的文本

Question

假设预设一个txt文本，位于程序目录下。名次为1.txt……
要求没点一次按钮，文本框中则随机显示txt中的某一行文字。请帮我说说怎么写？

Answer 1

Private Sub Command1_Click()
If Not EOF(1) Then
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
End If
End Sub

Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
Text1.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

Answer 2

command1代码
text1.text="这里是显示的文字"追问

你怎么文不对题啊

追答

下面代码会随机显示aaa或bbb,或ddd，用了"|"分隔
你可以举一反三，先读txt保存在数组,比如ts，换行符作分隔。
dim ts as string
dim b() as string
ts="aaa|bbb|ccc|ddd|eeee"
b=split(ts,"|")
Randomize
text1=a(Int(Rnd * UBound(b) + 1))

本回答被网友采纳