Public Sub DataProduce() Dim i As Integer Dim j As Integer ”产生5*4数组 For i 1 To 5 For j=1 To 4 a(i,j)=Int(100 Rnd) Next j Next i End Sub Public Sub Average() Dim i As Integer Dim j As Integer Dim sum As Integer ’计算各行平均值 For i 1 To 5 sum =0 For j=1 To 4 sum=a(i,j)’---错误4 Next j ave(i)=sum /4 Next i '将数组和平均值打印出来 Print"原始数据和平均值” PrintArray End Sub Public Sub PrintArray( Dim i As Integer Dim j As Integer For i 1 To 5 For j=1 To 4 Print a(i,j);Spc(3); Next j Print"平均值="；ave(i) Next i End SubPublic Sub DataProduce() Dim i As Integer Dim j As Integer '产生 5*4 数组 For i = 1 To 5 For j = 1 To 4 a(i, j) = Int(100 * Rnd) Next j Next i End Sub Public Sub Average() Dim i As Integer Dim j As Integer Dim sum As Integer '计算各行平均值 For i = 1 To 5 sum = 0 For j = 1 To 4 sum = a(i, j) '-----错误 4 Next j ave(i) = sum / 4 Next i '将数组和平均值打印出来 Print "原始数据和平均值" PrintArray End Sub Public Sub PrintArray() Dim i As Integer Dim j As Integer For i = 1 To 5 For j = 1 To 4 Print a(i, j); Spc(3); Next j Print "平均值="; ave(i) Next i End Sub