作业帮 > 综合 > 作业

VB 麻烦把A矩阵改成下三角型显示,B上三角型显示

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/26 19:09:15
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
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 = i 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 i
b(i,j) = Int(Rnd * 34 + 101)
Print b(i,j);
Next j
Print
Next i
End Sub
或者将程序写成下面的形式,用空格占位,使A的数据输出位置更加直观
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 i - 1 '输出空格使数字在上三角的位置上
Print Spc(4);
Next j
For j = i 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 i
b(i,j) = Int(Rnd * 34 + 101)
Print b(i,j);
Next j
Print
Next i
End Su