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

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

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
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-10-11
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))

本回答被网友采纳
相似回答