Question

VB中的一个问题，为何textbox1有输出，textbox2没有输出？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(4, 6), b(6, 4), i, j, t As Integer
Dim str1, str2 As String
For i = 0 To 4
For j = 0 To 6
a(i, j) = t + 1
t = t + 1
str1 = str1 & CStr(a(i, j)) & " "
If j = 6 Then
str1 = str1 & vbCrLf
Else
str1 = str1 & vbTab
End If
Next
Next
TextBox1.Text = str1
For j = 0 To 6
For i = 0 To 4
b(j, i) = a(i, j)
str2 = str2 & vbCrLf
If i = 4 Then
str2 = str2 & vbCrLf
Else
str2 = str2 & vbTab
End If
Next
Next
TextBox2.Text = str2
End Sub
为什么只有textbox1有输出？textbox2没有输出？？

Answer 1

第二次嵌套for语句过程中，
TextBox1.Text = str1
For j = 0 To 6
For i = 0 To 4
b(j, i) = a(i, j)
str2 = str2 & vbCrLf
这段最后一句中，str2为空，等于两个空值互相赋值，结果为空值，之后也没有为str2赋值，没有把数字变量传递进去，所以到最后textbox2.text=str2没有值
希望是你想要的，祝一切顺利！

Answer 2

晕，str2没有连数据啊!
b(j, i) = a(i, j)后面的那句 str2 = str2 & vbCrLf改为str2 = str2 & CStr(b(j, i)) & " "

Answer 3

str2只有str2 = str2 & vbCrLf、str2 = str2 & vbTab这些，没有内容，当然不会有可见的输出