Question

VB编程代码:随机产生一个36个两位正整数组成的6×6的距阵，将其显示在窗体上，然后计算第二列元素

VB编程代码:随机产生一个36个两位正整数组成的6×6的距阵，将其显示在窗体上，然后计算第二列元素的乘积并显示出来

Answer 1

Private Sub Command1_Click()

  Dim a(6, 6) As Integer

  Randomize

  For i = 1 To 6

    For j = 1 To 6

      a(i, j) = Rnd * 90 + 10

      Print a(i, j);

    Next j

    Print

  Next i

  s = 1

  For i = 1 To 6

    s = s * a(i, 2)

  Next i

  Print

  Print "第二列元素的乘积="; s

End Sub