Question

打印并输出5×5方阵中的下三角和上三角元素，我用vb做出来，显示维数错误，怎么办呢

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()
  Dim a(10, 10) As Integer
  n = 5
  Randomize
  For i = 1 To n
    For j = 1 To n
      a(i, j) = Int(Rnd * 10)
      Print Tab(4 * j); a(i, j);
    Next j
    Print
  Next i
  Print
  For i = 1 To n - 1
    Print Tab(4 * i);
    For j = i + 1 To n
      Print Tab(4 * j); a(i, j);
    Next j
    Print
  Next i
  For i = 2 To n
    For j = 1 To i - 1
      Print Tab(4 * j); a(i, j);
    Next j
    Print
  Next i
End Sub