编程魔方论坛

1. VB：如何编程：魔方方阵，

Private Sub Command1_Click()
Dim n As Integer
Dim r() As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim s As String

Me.Cls

n = InputBox("输入N")
If n Mod 2 <> 1 Then
MsgBox "N必须是奇数", vbCritical
Exit Sub
End If
ReDim r(1 To n * n) As Integer
k = 1
i = 1
j = n \ 2 + 1
While k <= n * n
r((i - 1) * n + j) = k
i = i - 1
j = j + 1
If i < 1 Then i = n
If j > n Then j = 1
If r((i - 1) * n + j) <> 0 Then
i = i + 2
j = j - 1
If i > n Then i = i - n
If j < 1 Then j = j + n
End If
k = k + 1
Wend
s = String(Len(Trim(Str(n * n))), "0")

For i = 1 To n
For j = 1 To n
Print Format(r((i - 1) * n + j), s); " ";
Next j
Print
Next i
End Sub

Private Sub Form_Load()
Me.FontName = "宋体"

End Sub

2. 请求C++高手一道魔方的编程题（急需）

#include<iostream>
using namespace std;
class magic
{
public:
void getdata();
void setfirstmagic();
void generatemagic();
void printmagic();
private:
int m[4][4];
int step;
int first;
int sum;
} ;
void magic::getdata()
{
cin>>first>>step>>sum;

}
void magic::setfirstmagic()
{

int temp=first;
for(int i=0;i<4;i++)
{
for(int n=0;n<4;n++)
{
m[i][n]=temp;
temp+=step;
}
}
}
void magic::generatemagic()
{

for(int i=0,int n=0;i<4,n<4;i++,n++)
{

m[i][i]=sum-m[i][i];
}
for(i=0, n=3;i<4;i++,n--)
{
m[i][n]=sum-m[i][n];
}
}
void magic::printmagic()
{

for(int i=0;i<4;i++)
{
for(int n=0;n<4;n++)
{cout<<m[i][n]<<" ";}
cout<<"\n";
}
}
int main()
{
magic square;
cout<< "初始魔方：\n";
square.getdata();
square.setfirstmagic();
square.printmagic();
cout << "生成最终魔方：\n";
square.generatemagic();
square.printmagic();
system("pause");
return 0;
}

已经运行过了，木有问题！