请教这个vb代码！

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:25:41
随机生成3*3的数组，矩阵形式输出到picture1，再把矩阵中的最小元素与矩阵中心位置的元素交换,输出到picture2中，也是矩阵形式，和前面一样，只不过是矩阵中最小数和中心数互换

写你这个程序很郁闷，写了一半的时候死机喽，唉，又重新启动~~~~全没有啦！重新做吧，唉唉~~~发给你吧，看还有什么问题没有，明天再说~~~~太晚了，我要呼呼觉觉了~

放一个picture1,picture2,和一个command1,调整好大小和位置，添加以下代码即可，已经运行过了：
Dim A(3, 3) As Integer, B(3, 3) As Integer, I As Integer, J As Integer
Private Sub Command1_Click()
If Command1.Caption = "生成数组" Then
Picture1.Cls
Picture2.Cls
Randomize
For I = 1 To 3
For J = 1 To 3
A(I, J) = Int(Rnd * 100)
B(I, J) = A(I, J)
Picture1.Print A(I, J);
Next
Picture1.Print
Next
Command1.Caption = "元素交换"
ElseIf Command1.Caption = "元素交换" Then
A(0, 0) = 100
For I = 1 To 3
For J = 1 To 3
If A(0, 0) > A(I, J) Then
A(0, 0) = A(I, J)
A(0, 1) = I