VB怎么选择多行文本text1的其中一行内容并且赋给text2

Question

VB怎么选择多行文本text1的其中一行内容并且赋给text2

Answer 1

比如把Text1的第三行赋值给Text2：
Text2.Text = Split(Text1.Text, vbCrLf)(2)

把Text1的第10行赋值给Text2：
Text2.Text = Split(Text1.Text, vbCrLf)(9)

把Text1的第n行赋值给Text2：
Text2.Text = Split(Text1.Text, vbCrLf)(n - 1)

Answer 2

如果是手动选择多行文本text1的其中一行内容的话，一行代码就可以搞定

追问

这个不行，是在一个for循环的
for 1 to 10 中在text1中产生10个随机数并且在text2中输出text1中第三行的数

追答

一个数一行的话直接取随机数即可

Answer 3

a=split(text1,vbcrlf)text2=a(行数-1)

Answer 4

能说得详细点么追问

for 1 to 10 中在text1中产生10个随机数并且在text2中输出text1中第三行的数