Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const n = 20
Dim a(n), i, j, t As Integer
Dim tmpstr As String
Randomize()
tmpstr = "显示排序前A的元素:" & Chr(13) & Chr(10)
For i = 0 To n - 1
a(i) = Int(Rnd() * 90) + 10
tmpstr = tmpstr & a(i) & " "
Next i
TextBox1.Text = tmpstr
For j = 0 To n - 2
For i = 0 To n - 2 - j
If a(i) < a(i + 1) Then
t = a(i)
a(i) = a(i + 1)
a(i + 1) = t
End If
Next i
Next j
tmpstr = "显示排序后A的元素:" & Chr(13) & Chr(10)
For i = 0 To n - 1
tmpstr = tmpstr & a(i) & " "
Next i
TextBox2.Text = tmpstr
For i = 0 To n - 1

Debug.Write(a(20))
Debug.Write(Space(4))
If i Mod 5 = 0 And i <> 0 Then Debug.WriteLine(" ")
Next i
End Sub


我想把这个代码改成4行5列的
但是 For i = 0 To n - 1

Debug.Write(a(20))
Debug.Write(Space(4))
If i Mod 5 = 0 And i <> 0 Then Debug.WriteLine(" ")
Next i
这里好象出错了 帮个忙谢谢

vbcr

斑竹 能不能帮我改下 随便问问斑竹大大的QQ是什么

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const n = 20
Dim a(n), i, j, t As Integer
Dim tmpstr As String
Randomize()
tmpstr = "显示排序前A的元素:" & Chr(13) & Chr(10)
For i = 0 To n - 1
Static count1 As Integer
count1 += 1
a(i) = Int(Rnd() * 90) + 10
tmpstr = tmpstr & a(i) & " "
If count1 Mod 5 = 0 Then
tmpstr += vbCrLf
End If
Next i
TextBox1.Text = tmpstr
For j = 0 To n - 2
For i = 0 To n - 2 - j
If a(i) < a(i + 1) Then
t = a(i)
a(i) = a(i + 1)
a(i + 1) = t
End If
Next i
Next j
tmpstr = "显示排序后A的元素:" & Chr(13) & Chr(10)
For i = 0 To n - 1
Static count As Integer
count += 1
tmpstr = tmpstr & a(i) & " "
If count Mod 5 = 0 Then
tmpstr += vbCrLf
End If
Next i
TextBox2.Text = tmpstr
End Sub

呵呵
不知道debug那个怎么用
就只好在tmpstr的格式上下工夫

Debug.WriteLine(" ")
应该只是输入一个空格吧.我没用过DEBUG.不好意思.
不过.有好几个换行的方法.
在字符串上下功夫.如同4楼所说.
还有就是enviroment.newline(不知道拼写是不是对的.)
还有其它的很多方法.有机会我试试DEBUG.

Me.RichTextBox1.Text = "ceshi" &amp; Chr(13) &amp; "ceshi1" &amp; Chr(13)