求VB程序设计,五行五列矩阵中副对角线之和
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 14:27:42
求VB程序设计,五行五列矩阵中副对角线之和
Sub Fun(X() As Integer,N As Integer,s As Integer)
'
End Sub
Private Sub Command1_Click()
N = Val(InputBox("请输入矩阵的行数N","数据输入",5))
ReDim X(N,N)
Form1.Cls
Randomize
For i = 1 To N
For j = 1 To N
X(i,j) = Int(Rnd * 91) + 10
Print X(i,j);
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
Dim s As Integer
Call Fun(X,N,s)
Print "副对角线元素之和为:" & s
SaveData
End Sub
Sub Fun(X() As Integer,N As Integer,s As Integer)
'
End Sub
Private Sub Command1_Click()
N = Val(InputBox("请输入矩阵的行数N","数据输入",5))
ReDim X(N,N)
Form1.Cls
Randomize
For i = 1 To N
For j = 1 To N
X(i,j) = Int(Rnd * 91) + 10
Print X(i,j);
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim s As Integer
Call Fun(X,N,s)
Print "副对角线元素之和为:" & s
SaveData
End Sub
Dim i As Integer
For i = 1 To N
s = s + x(i, N - i + 1)
Next i
如果程序能正常运行,你得在最前面加上公用变量定义:
Dim x() As Integer
Dim N As Integer
Call Fun(X, N, s)改成
Call Fun(X(), N, s)
For i = 1 To N
s = s + x(i, N - i + 1)
Next i
如果程序能正常运行,你得在最前面加上公用变量定义:
Dim x() As Integer
Dim N As Integer
Call Fun(X, N, s)改成
Call Fun(X(), N, s)
求VB程序设计,五行五列矩阵中副对角线之和
VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
c语言 求4*4矩阵主对角线元素之和,副对角线元素之和
用VB 写程序,建立一个五行五列的魔方矩阵
求VB编程:给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.
lingo求矩阵列之和
输入4行4列的二维数组,求计算主对角线各元素之和,计算副对角线各元素之和.
用C语言求一个3行3列整数型矩阵对角线元素之和
用C语言编程:求一个3行3列的矩阵对角线的元素之和.
编写程序:求一个3行3列的矩阵对角线的元素之和.
c语言 求N*N矩阵中主对角线和次对角线的元素之和
求3*3矩阵对角线元素之和