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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/09 01:48:43

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

产生n乘n的矩阵并输出计算每一行的平均值VB 设计一个窗体,要求输入一个正整数N,计算并输出N的阶乘.VB的用matlab 建立5*6矩阵要求输出矩阵第n行元素当n超过矩阵的行数自动转为输出最后一行并报错 VB：用函数array产生一组数并输出,然后求出其大于平均值的元素个数并输出 vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号. 编写VB程序,建立并输出一个n×n的矩阵,该矩阵对角线上的元素为4,其余元素均为-1 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 C语言设计.有多组测试数据,每组一行,输入一个正整数N.对于每组数据输出一行,计算1+2+3+...+N的和编程C语言输入n个学生成绩,计算他们的平均值并输出所有高于平均的学生成绩. 关于VB的题输入一个正整数N,计算出N!并输出. VB程序!,计算并输出下面数列中前N（设N=8）项的和 ,,,.,.表示求阶乘) C编程：找出任意的一个m×n矩阵每一行上的最大值的列下标并按示例格式要求显示.m、n(2

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

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