vb中产生并输出一个6*6的二维数组有以下2点要求。。求代码

Question

两条对角线元素值为1,其余元素小于30的随机整数
计算各行元素的平均值输出平均值最大和最小的行号

Answer 1

Private Sub Command1_Click()

  Dim a(6, 6) As Integer

  Max = -1: Min = 10000

  For i = 1 To 6

    s = 0

    For j = 1 To 6

      If i = j Or i + j = 7 Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 30)

      s = s + a(i, j)

      Print Tab(4 * j - 3); a(i, j);

    Next j

    Print Tab(4 * 7); "Sum="; s

    If s > Max Then Max = s: maxi = i

    If s < Min Then Min = s: mini = i

  Next i

  Print

  Print "Max s="; Max, "  At No."; maxi

  Print "Min s="; Min, "  At No."; mini

End Sub