求VB程序设计,五行五列矩阵中副对角线之和
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/12 12:26:00
求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
![求VB程序设计,五行五列矩阵中副对角线之和](/uploads/image/z/1670450-50-0.jpg?t=%E6%B1%82VB%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%2C%E4%BA%94%E8%A1%8C%E4%BA%94%E5%88%97%E7%9F%A9%E9%98%B5%E4%B8%AD%E5%89%AF%E5%AF%B9%E8%A7%92%E7%BA%BF%E4%B9%8B%E5%92%8C)
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矩阵对角线元素之和