作业帮 > 综合 > 作业

产生n乘n的矩阵并输出 计算每一行的平均值VB

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 08:48:42
产生n乘n的矩阵并输出 计算每一行的平均值VB
Option Explicit
Private Sub Form_Load()
Me.Show
Me.AutoRedraw = True
Dim i As Integer, tem As String
Do
 tem = InputBox("请输入要生成的n*n距型阵的n的个数 ", "请输入", 4)
Loop While Not IsNumeric(i)
i = CInt(tem)
Randomize
Dim arr() As Integer
ReDim arr(i ^ 2 - 1)
Dim x As Integer, y As Integer, h As Integer, ty As Integer
Print Tab(0); "  |";
For x = 0 To i - 1
  tem = IIf(x > 8, x + 1, "0" & x + 1)
  Print Tab((x + 1) * 4); tem;
Next
Print Tab((x + 1) * 4); "|Average";
Print
ty = Me.CurrentY
For x = 0 To i - 1
  Print Tab(1); CStr(IIf(x > 8, x + 1, "0" & x + 1) & "|");
  For y = 0 To i - 1
    arr(y * i + x) = Int(Rnd * 90) + 10
    Print Tab((y + 1) * 4); CStr(arr(y * i + x));
    h = h + arr(y * i + x)
  Next
 Print Tab((y + 1) * 4); "|" & h / i;
  h = 0
  Print
Next
Me.Line (0, ty)-(Me.ScaleWidth, ty)
End Sub