用VB 写程序,建立一个五行五列的魔方矩阵
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 12:01:43
用VB 写程序,建立一个五行五列的魔方矩阵
当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0
说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一个3行3列的魔方矩阵
8 1 6
3 5 7
4 9 2
当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0
说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一个3行3列的魔方矩阵
8 1 6
3 5 7
4 9 2
Private Sub Command1_Click()
Dim S(1 To 5, 1 To 5) As Long
Dim x As Long, y As Long
Dim n As Long
x = 3
y = 1
S(3, 1) = 1
For n = 2 To 25
If x = 5 And y = 1 Then
y = y + 1
ElseIf x = 5 Then
x = 1
y = y - 1
ElseIf y = 1 Then
x = x + 1
y = 5
ElseIf S(x + 1, y - 1) 0 Then
y = y + 1
Else
x = x + 1
y = y - 1
End If
S(x, y) = n
Next
For y = 1 To 5
For x = 1 To 5
Print S(x, y) & vbTab;
Next
Print
Next
End Su
Dim S(1 To 5, 1 To 5) As Long
Dim x As Long, y As Long
Dim n As Long
x = 3
y = 1
S(3, 1) = 1
For n = 2 To 25
If x = 5 And y = 1 Then
y = y + 1
ElseIf x = 5 Then
x = 1
y = y - 1
ElseIf y = 1 Then
x = x + 1
y = 5
ElseIf S(x + 1, y - 1) 0 Then
y = y + 1
Else
x = x + 1
y = y - 1
End If
S(x, y) = n
Next
For y = 1 To 5
For x = 1 To 5
Print S(x, y) & vbTab;
Next
Next
End Su
用VB 写程序,建立一个五行五列的魔方矩阵
用C语言写“输入一个五行五列的矩阵求外围一圈的数字和”
c语言 二维数组 设计一程序,输入一个五行五列的矩阵,计算并显示输出该矩阵四周那一圈元素的合计值
求VB程序设计,五行五列矩阵中副对角线之和
vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.
用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
编写VB程序,建立并输出一个n×n的矩阵,该矩阵对角线上的元素为4,其余元素均为-1
vb、编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0.
如何用vb程序写一个由数字组成的三角形,一行为1,二为121,三行12321,四行1234321,五行12321……程序
矩阵如何排列?这个用1到25个自然数组成一个五行五列的矩阵,不许重复,要求每行的和相等,每列的和相等,每条对角线的和相等
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
编写VB程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如:A矩阵及其转置矩阵B分别为: