作业帮用VB 写程序,建立一个五行五列的魔方矩阵当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 13:43:49
用VB 写程序,建立一个五行五列的魔方矩阵当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一
用VB 写程序,建立一个五行五列的魔方矩阵
当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0
说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一个3行3列的魔方矩阵
8 1 6
3 5 7
4 9 2
用VB 写程序,建立一个五行五列的魔方矩阵当单击C1按钮时实现魔方矩阵的建立和输出,输出时位数不足2位的在前补0说明:所谓魔方矩阵的每一行每一列主对角线和副对角线之和均相等,例如一
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 Sub