Private Sub Form_Load()Dim a()Me.Shown = Val(InputBox("请输入矩阵的阶数"))Max = Val(InputBox("元素的最大值"))Min = Val(InputBox("元素的最小值"))ReDim a(n, n)Dim sum, sum2RandomizeFor i = 0 To n - 1For j = 0 To n - 1a(i, j) = Int(Min + Rnd * (Max - Min + 1))If i = j Then sum = sum + a(i, j)Print a(i, j),Next jPrintNex |