蔡鸟级的问题

[sanji09]

求好心人帮忙把下面的改成vb.net的
谢谢

for (st_i=0; st_i<4; st_i++)
{
switch (st_i)
{
case 0:
st_x = 0;
st_y = 0;
break;
case 1:
st_x = sizeh;
st_y = sizeh;
break;
case 2:
st_x = sizeh;
st_y = 0;
break;
case 3:
st_x = 0;
st_y = sizeh;
break;
default:
break;
}
x = (sizeh + 1) / 2 - 1; //第一个数字在第一行
y = 0; //的正中间位置

//-----开始填数---------------------------
for (i=1; i<=sizesq; i++)
{
a[y+st_y][x+st_x] = i + sizesq * st_i;

//-----分析下一个数字的位置---------------
//-----当下一个数是size的倍数时，放在正下方
if (i % (size / 2) == 0)
{
y++;
}
//-----当超出上面的边界时-----------------
else if (y == 0)
{
x++;
y = size / 2 - 1;
}
//-----当超出右面的边界时-----------------
else if (x == size / 2 - 1)
{
x = 0;
y--;
}
//-----正常情况下-------------------------
else
{
x++;
y--;
}
}//-----end of for(i)---------------------
}//-----end of for(st_i)

//-----第二步：交换A和D的第二行起m个数字------
for (j=1; j<sizem+1; j++)
{
temp = a[(sizeh+1)/2-1][j];
a[(sizeh+1)/2-1][j] = a[(sizeh+1)/2+sizeh-1][j];
a[(sizeh+1)/2+sizeh-1][j] = temp;
}

//-----第三步：交换A和D其它行的数字-----------
for (i=0; i<sizeh; i++)
{
if (i == (sizeh + 1) / 2 - 1)
{
continue;
}
for (j=0; j<sizem; j++)
{
temp = a[i][j];
a[i][j] = a[sizeh+i][j];
a[sizeh+i][j] = temp;
}
}

//-----第四步：交换C和B最后m-1行的数字
for (i=0; i<sizeh; i++)
{
for (j=size-1; j>size-sizem; j--)
{
temp = a[i][j];
a[i][j] = a[sizeh+i][j];
a[sizeh+i][j] = temp;
}
}
}

[wuwenquan2008]

有心无力呀，实在不好意思

[sanji09]

这是我自己改的，但是有错误。
我觉得错误是在（数字を出力します）那里，请高手帮忙看看

For iSt_i = 0 To 3  '魔方陣を4つに分けます
                Select Case iSt_i
                    Case 0 '左上 A
                        iSt_x = 0
                        iSt_y = 0
                    Case 1 '右下 B
                        iSt_x = sizeh
                        iSt_y = sizeh
                    Case 2 '右上 C
                        iSt_x = sizeh
                        iSt_y = 0
                    Case 3 '左下 D
                        iSt_x = 0
                        iSt_y = sizeh
                End Select
                giX = (sizeh + 1) / 2 - 1 '第一個の数字は第一行の中間にになります
                giY = 0
                For i As Integer = 1 To sizesq + 1
                    magic(giY + iSt_y, giX + iSt_x) = i + sizesq * iSt_i
                    If i Mod (iCount / 2) = 0 Then 'すぐ1個数がiCountの倍数な時、まっすぐな下に置きます
                        giY = giY + 1
                    ElseIf giY = 0 Then         '上の境を超える時
                        giX = giX + 1
                        giY = iCount / 2 - 1
                    ElseIf giX = iCount / 2 - 1 Then '右側の境を超える時
                        giX = 0
                        giY = giY - 1
                    Else                        '正常な情況の下
                        giX = giX + 1
                        giY = giY - 1
                    End If
                Next 'end of for (count)
            Next     'end of for (iSt_i)

            '数字を出力します
            For j As Integer = 1 To sizem + 1
                temp = magic((sizeh + 1) / 2 - 1, j)
                magic((iCount / 2) / 2, j) = magic((sizeh + 1) / 2 + sizeh - 1, j)
                magic((sizeh + 1) / 2 + sizeh - 1, j) = temp
            Next
            For i As Integer = 0 To sizeh - 1
                If i = (sizeh + 1) / 2 - 1 Then
                    Exit For
                End If
                For j As Integer = 0 To sizem - 1
                    temp = magic(i, j)
                    magic(i, j) = magic(sizeh + i, j)
                    magic(sizeh + i, j) = temp
                Next
            Next
            For i As Integer = 0 To sizeh - 1
                For j As Integer = iCount - 1 To iCount - sizem + 1 Step -1
                    temp = magic(i, j)
                    magic(i, j) = magic(sizeh + i, j)
                    magic(sizeh + i, j) = temp
                Next
            Next
            For i As Integer = 0 To iCount - 1 '循環出力
                For j As Integer = 0 To iCount - 1
                    grdTxt.Item(i, j) = Convert.ToString(magic(i, j))
                Next
            Next
        End If

[yanlongwuhui]

又见日文，有那么多人在做软件外包吗？

[lx_lhy]

Dim x, y, size, sizem As Integer
Dim st_x, st_y, sizeh, sizesq As Integer
Dim a()() As Integer
Dim temp As Object

For st_i = 0 To 3
Select Case st_i
Case 0
st_x = 0
st_y = 0

Case 1
st_x = sizeh
st_y = 0
Exit Select
Case 2
st_x = sizeh
st_y = 0
Exit Select
Case 3
st_x = 0
st_y = sizeh
Exit Select
Case Else
Exit Select
End Select
x = (sizeh + 1) / 2 - 1 '第一个数字在第一行
y = 0 '的正中间位置

'-----开始填数---------------------------
For i = 1 To sizesq
a(y + st_y)(x + st_x) = i + sizesq * st_i
'-----分析下一个数字的位置---------------
'-----当下一个数是size的倍数时，放在正下方
If i Mod (size / 2) = 0 Then
y += 1
'-----当超出上面的边界时-----------------
ElseIf y = 0 Then
x += 1
y = size / 2 - 1
'-----当超出右面的边界时-----------------
ElseIf x = size / 2 - 1 Then

x = 0
y -= 1
'-----正常情况下-------------------------
Else

x += 1
y -= 1
End If
Next 'end of for(i)---------------------
Next '-----end of for(st_i)

'-----第二步：交换A和D的第二行起m个数字------
For j = 1 To sizem
temp = a[(sizeh+1)/2-1][j];
a((sizeh + 1) / 2 - 1)(j) = a((sizeh + 1) / 2 + sizeh - 1)(j)
a((sizeh + 1) / 2 + sizeh - 1)(j) = temp
Next

'-----第三步：交换A和D其它行的数字-----------
For i = 0 To sizeh - 1

If i = (sizeh + 1) / 2 - 1 Then
Continue For
End If
For j = 0 To sizem - 1
temp = a(i)(j)
a(i)(j) = a(sizeh + i)(j)
a(sizeh + i)(j) = temp
Next
Next

'-----第四步：交换C和B最后m-1行的数字
For i = 0 To sizeh - 1
For j = size - 1 To size - sizem Step -1
temp = a(i)(j)
a(i)(j) = a(sizeh + i)(j)
a(sizeh + i)(j) = temp
Next
Next

[行者无疆-Kevin]

http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx
这个网站是C#\VB相互转换的.

[sanji09]

'-----第四步：交换C和B最后m-1行的数字
For i = 0 To sizeh - 1
For j = size - 1 To size - sizem + 1 Step -1
temp = a(i)(j)
a(i)(j) = a(sizeh + i)(j)
a(sizeh + i)(j) = temp
Next
Next

非常谢谢lx_lhy的帮忙，祝工作愉快