作业帮 > 综合 > 作业

用VB 写程序,建立一个五行五列的魔方矩阵

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