题目

VB 麻烦把A矩阵改成下三角型显示,B上三角型显示
Private Sub Command1_Click()
Dim a(4, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 30)
Print a(i, j);
Next j
Print
Next i
Print
Dim b(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(Rnd * 34 + 101)
Print b(i, j);
Next j
Print
Next i

提问时间：2020-10-13

答案

Private Sub Command1_Click()Dim a(4,4) As IntegerDim i As Integer,j As IntegerFor i = 1 To 4For j = i To 4a(i,j) = Int(Rnd * 41 + 30)Print a(i,j);Next jPrintNext iPrintDim b(4,4) As IntegerFor i = 1 T...