第1个回答 2010-01-27
'用split函数
dim str as string
str = Split("一段数据", vbCrLf)
for i=0 to 2
msgbox str(i)
next
第2个回答 2010-01-27
Private Sub Command1_Click()
Dim strTemp() As String
strTemp = Split(Text1.Text, vbCrLf) '以回车换行符为界分离text1文本框内容,赋值给数组变量
For i = 0 To UBound(strTemp) '循环遍历数组变量中所有元素
If i = 2 - 1 Then Text2.Text = strTemp(i): Exit For '如果当i=1 也就是第二个元素时 将其内容赋值给text2控件 然后退出循环
Next
End Sub
第3个回答 2010-01-27
text2.text=split(text1.text,vbcrlf)(0) '第一行
text2.text=split(text1.text,vbcrlf)(1) '第二行
text2.text=split(text1.text,vbcrlf)(2) '第三行