产生n乘n的矩阵并输出 计算每一行的平均值VB
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 11:37:47
![产生n乘n的矩阵并输出 计算每一行的平均值VB](/uploads/image/z/10332809-17-9.jpg?t=%E4%BA%A7%E7%94%9Fn%E4%B9%98n%E7%9A%84%E7%9F%A9%E9%98%B5%E5%B9%B6%E8%BE%93%E5%87%BA+%E8%AE%A1%E7%AE%97%E6%AF%8F%E4%B8%80%E8%A1%8C%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BCVB)
产生n乘n的矩阵并输出 计算每一行的平均值VB
产生n乘n的矩阵并输出 计算每一行的平均值VB
产生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