神马品牌网林安竺:谁能帮我解释一下这个代码
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 00:30:32
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
完整的代码：
窗体上放置两个按钮和两个列表框。把下面的代码拷贝到代码中，就可以执行了。
Dim a(6, 6) As Integer
Dim b(6, 6) As Integer
Dim i, j As Integer
Dim t As String
Private Sub Command1_Click() '产生第一个矩阵按钮，用于生成第一个矩阵，并显示在list1中
For i = 0 To 5
t = "" '用于list1添加项目,循环初始化
For j = 0 To 5
a(i, j) = Int(Rnd * 11) '产生0-10的整数
t = t + Str(a(i, j)) '由于整数转换成字符串，前面会有一个空格，所以这里就不需要再添加空格了
Next j
List1.AddItem t 'list1中每一个项目，就是矩阵a的一行
Next i
End Sub
Private Sub Command2_Click() '转置按钮，转换矩阵并显示在list2中
For i = 0 To 5
For j = 0 To 5
b(j, i) = a(i, j) '转换矩阵
Next j
Next i
'显示矩阵
For i = 0 To 5
t = "" '用于list2添加项目,循环初始化
For j = 0 To 5
t = t + Str(b(i, j)) '由于整数转换成字符串，前面会有一个空格，所以这里就不需要再添加空格了
Next j
List2.AddItem t 'list2中每一个项目，就是矩阵b的一行
Next i
End Sub