(VB6.0)编写一个求由一位随机数构成的数组每一行与每一列元素之和

Option Base 1
Dim a%(4,5) '定义数组

Private Sub Form_Load()
Command2.Enabled = False '求列和按钮变暗
Command3.Enabled = False '求行和按钮变暗
Command4.Enabled = False '清除按钮变暗
Text1=""
Text2=""
Picture1.Cls '清空图片框
Eed Sub

Private Sub Command1_Click() '生成数组按钮事件
Picture1.Cls
Dim i%, j%
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 10) '产生随机数
Picture1.Print a(i, j); Spc(3); '输出
Next j
Picture1.Print '换行
Next i
Command2.Enabled = True '求列和按钮变亮
Command3.Enabled = True '求行和按钮变亮
Command4.Enabled = True '清除按钮变亮
End Sub

Private Command2_Click() '求列和按钮事件
Dim i%, j%, s%, t$
For i = 1 To 4
s = 0
For j = 1 To 5
s = s + a(i, j)
Next
t = t & s & vbCrLf
Next
Text1 = t
End Sub

Private Sub Command3_Click() '求行和按钮事件
Dim i%, j%, s%, t$ '定义变量
For i = 1 To 5
s = 0
For j = 1 To 4
s = s + a(j, i)
Next
t = t & s & " "
Next
Text2 = t
End Sub

Private Sub Command4_Click() '清除按钮事件
Text1 = "" '清空文本框
texr2 = "" '清空文本框
Picture1.Cls '清空图片框
End Sub

Private Sub Command5_Click() '结束按钮事件
End '退出应用程序
End Sub

Dim a(3, 4) As Integer '定义数组
Private Sub cmdCommand1_Click() '显示数组
Picture1.Cls
For i = 0 To 3
For j = 0 To 4
a(i, j) = Int(10 * Rnd)
Picture1.Print a(i, j);
Next
Picture1.Print '换行
Next
End Sub

Private Sub cmdCommand2_Click() '求列和
Dim s&
txtText2.Text = ""
For j = 0 To 4
s = 0
For i = 0 To 3
s = s + a(i, j)
Next
txtText2.Text = txtText2.Text & Str(s)
Next
End Sub

Private Sub cmdCommand3_Click() '求行和
Dim s&
txtText1.Text = ""
For i = 0 To 3
s = 0
For j = 0 To 4
s = s + a(i, j)
Next
txtText1.Text = txtText1.Text & Str(s) & vbCrLf
Next
End Sub

Private Sub cmdCommand4_Click() '全清空
Picture1.Cls
txtText1.Text = ""
txtText2.Text = ""
End Sub

Private Sub cmdCommand5_Click() '退出
End
End Sub

这个很简单啊，就是要花些时间