VB6 0標準下EXE輸出魔方陣

時間 2025-05-23 08:45:22

c語言魔方陣問題,我這個錯在**

1樓:匿名使用者

魔方陣 *

author:萢萢i3 *

#include

#include

#define n 500

建立奇階魔方陣。

void oddcubetastic(int n); //方陣初始化。

int i, j, k, num=0;

方正排列的起始位置。

j=(n-1)/2;

i=0;/建立魔方陣。

a[i][j]=1; //把1放在第一行的中間位置for (k=2; k<=n*n; k++)//規律2:每乙個數存放的行比前乙個數的行減1,列數加1i=i-1;

j=j+1;

if (a[i][j]!=0)

a[i][j]=k; //填入資料。

/輸出魔方陣。

printf("%d階魔方陣:", n);

for (i=0; i=n/2)

if (a[i][j]!=0)

a[i][j]=k;

/方正排列的起始位置。

j=(n+(n/2-1))/2;

i=n/2;

建立右下角的魔方陣。

a[i][j]=k;

for (k=k+1; k<=2*(n/2*n/2); k++)i=i-1;

j=j+1;

if (i=n)

if (a[i][j]!=0)

a[i][j]=k;

/方正排列的起始位置。

j=(n+(n/2-1))/2;

i=0;/建立右上角的魔方陣。

a[i][j]=k;

for (k=k+1; k<=(n+n/2)*n/2; k++)i=i-1;

j=j+1;

if (i<0)

if (j>=n)

if (a[i][j]!=0)

a[i][j]=k;

/方正排列的起始位置。

j=(n/2-1)/2;

i=n/2;

建立左下角的魔方陣。

a[i][j]=k;

for (k=k+1; k<=n*n; k++)i=i-1;

j=j+1;

if (i=n/2)

if (a[i][j]!=0)

a[i][j]=k;

/調整方陣使其成為魔方陣。

int tmp;

for (i=0; in/2-1+(n-2)/4+2)}}//輸出魔方陣。

printf("%d階魔方陣:", n);

for (i=0; i

vb6 0請幫忙做題目,謝謝,vb6 0請幫忙做第一個題目,謝謝

這個是我的做的,請檢視一下行不行。有不懂的地方再問我。一 function cala x as integer,byval y as integer x是按址傳遞,y是按值傳遞 x x y if x 0 then cala x else cala y end if end function priv...

VB6 0 檔案操作,vb6 0對txt檔案操作

哪種資料型別都能放的,只是相對操作效能有區別,二進位制可以讀寫任何檔案,比如一個壓縮包就可以用二進位制檔案讀入加密後再儲存。其操作速度較快 隨機檔案可以讀取任意位置的單個資料,非常靈活,速度最快。文字檔案操作較直觀,直接用記事本就可開啟編輯 vb6.0對txt檔案操作 vb6.0關於.csv檔案的操...

問VB6 0的問題,問一個VB6 0的問題

這樣就行了 把use宣告在通用裡 這樣在點選command1時 use的值就會在原來的數值 1 而use的值不會一值為0 dim use as integer private sub command1 click dim loginname,password as string loginname ...