请教在vb 中使用vbCrLf为什么无效？

[lsmqj]

在下面的程序中，使用vbCrLf无效，并且使用(chr(13)+chr(1))也无效。
请赐教，谢谢！

Option Explicit
'定义窗体级别数组变量
Dim RNDDATA(1 To 8) As Integer

Private Sub cmdArray_Click()
Dim i As Long
Dim j As Long
Dim iMin As Integer
Dim iData As Integer

For i = 1 To 7 '8个数进行7轮比较
iMin = i '第i轮比较的时候，假设第i个元素最小
'在数组剩下后面的数中选择出最小的数（i到8）
For j = i + 1 To 8
If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
Next j
'i到8中的最小的数，与第i个元素进行交换
iData = RNDDATA(i)
RNDDATA(i) = RNDDATA(iMin)
RNDDATA(iMin) = iData
Next i
'显示排序的结果
txtOutPut.Text = ""
For i = 1 To 8
txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
Next i
End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdRnd_Click()
txtRndData.Text = "" '清除输入区
txtOutPut.Text = "" '清除输出区
Dim intindex As Long

For intindex = 1 To 8
'填充随机数，并使用Cint强制转换为整数类型
RNDDATA(intindex) = CInt(100 * Rnd + 1)
'vbCrlf为VB常数，表示回车换行
txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
Next intindex
End Sub

Private Sub Form_Load()

End Sub


在下面的程序中，使用vbCrLf无效，并且使用(chr(13)+chr(1))也无效。
请赐教，谢谢！

Option Explicit
'定义窗体级别数组变量
Dim RNDDATA(1 To 8) As Integer

Private Sub cmdArray_Click()
Dim i As Long
Dim j As Long
Dim iMin As Integer
Dim iData As Integer

For i = 1 To 7 '8个数进行7轮比较
iMin = i '第i轮比较的时候，假设第i个元素最小
'在数组剩下后面的数中选择出最小的数（i到8）
For j = i + 1 To 8
If RNDDATA(j) < RNDDATA(iMin) Then iMin = j
Next j
'i到8中的最小的数，与第i个元素进行交换
iData = RNDDATA(i)
RNDDATA(i) = RNDDATA(iMin)
RNDDATA(iMin) = iData
Next i
'显示排序的结果
txtOutPut.Text = ""
For i = 1 To 8
txtOutPut.Text = txtOutPut.Text & RNDDATA(i) & vbCrLf
Next i
End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdRnd_Click()
txtRndData.Text = "" '清除输入区
txtOutPut.Text = "" '清除输出区
Dim intindex As Long

For intindex = 1 To 8
'填充随机数，并使用Cint强制转换为整数类型
RNDDATA(intindex) = CInt(100 * Rnd + 1)
'vbCrlf为VB常数，表示回车换行
txtRndData.Text = txtRndData.Text & RNDDATA(intindex) & vbCrLf
Next intindex
End Sub

Private Sub Form_Load()

End Sub

[lsmqj]

对不起，上面第一行应为：“在下面的程序中，使用vbCrLf无效，并且使用(chr(13)+chr(10))也无效。”

[acev]

你的txtOutPut要设置为多行,这样才可以吧.你试一下改:
txtOutPut 的属性 MultiLine = True

[tmd007]

MultiLine　默认为False,要接收多行输入，改为True