VB 打印矩阵题，急求，在线等

来源：百度知道 编辑：UC知道 时间：2024/09/28 14:56:55
利用数组随机产生n*n的方阵，n值由用户利用InputBox函数输入，设定三个命令按钮分别在1个图片框内显示方阵、上三角方阵及下三角方阵，此外，再设定一个“清屏”的命令按钮以便清除图片框中显示的内容。

Dim n%, arr() As Integer

Private Sub Command1_Click() '产生方阵数据
Dim i%, j%
Picture1.Cls
n = Val(InputBox("输入行数"))
ReDim arr(1 To n, 1 To n) As Integer
Picture1.Print "产生方阵数据"
For i = 1 To n
For j = 1 To n
arr(i, j) = Int(10 * Rnd)
Picture1.Print Tab(j * 5); arr(i, j);
Next j
Picture1.Print
Next i

End Sub

Private Sub Command2_Click() '显示上三角数据
Dim i%, j%
Picture1.Cls
Picture1.Print "显示上三角数据"
For i = 1 To n
For j = i To n
Picture1.Print Tab(j * 5); arr(i, j);
Next j
Picture1.Print
Next i

End Sub

Private Sub Command3_Click() '显示下三角数据
Dim i%, j%
Picture1.Cls
Picture1.Print "显示下三角数据"
For i = 1 To n
For j = 1 To i
Picture1.Print Tab(j * 5); arr(i, j);
Next j