Question

在vb中如何读取文本框中的文本

例如：在TXT文档中（C:MYFILE.TXT）有数据（1 1 1 2 22 2 3 4 5 6 7 8 9 9 9）等，单击命令按钮时，怎么在VB中随机的读入到文本框中。要代码！！！小弟在此先谢了！！！

Answer 1

你要随机读入的？
private sub command1_click()
dim a ,i as integer,temp as string
open "C:MYFILE.TXT" for input as #1
input#1,temp
close #1
a=split(temp," ") '数据空格间隔 所以数组时这样的··
randomize '随机出现一个数据
i=int(rnd*ubound(a))
text1="" '每次text只出现一个数据（这个可以根据需要更改）
text1=a(i)
end sub
没有验证过···应该可以的···呵呵··

Answer 2

dim x as interage
open "C:MYFILE.TXT" for input as #1
do until eof(#1)
input #1 x
print x
loop

Answer 3

窗体上建个文本框一个命令按钮，
Private Sub Command1_Click()
Dim a1 As String
Open "C:\MYFILE.TXT" For Input As #1
Do While Not EOF(1)
Input #1, a1
Text1.Text = Text1.Text + a1
Loop
Close #1
End Sub
是我自己做的，应该没问题，多给点分吧~