Generar la matriz del cubo de Rubik bajo el estándar EXE VB6.0

Utilice el EXE estándar en VB para hacer el trabajo por usted. Haga clic en un botón para mostrar una matriz de cubo de Rubik. El código es el siguiente Dim n As Long

Función MagicMatrix () As String

<. p>Dim S () Mientras

Dim x Mientras Largo, y Mientras LargoDim i Mientras LargoReDim S(1 To n, 1 to n) Mientras

x = (n 1 ) / 2

y = 1

S(x, y) = 1

Para i = 2 Para n ^ 2

Si x = n e y = 1 entonces

y = y 1

De lo contrario, si x = n entonces

x = 1

y = y - 1

De lo contrario, si y = 1, entonces

x = x 1

y = n

De lo contrario, si S(x 1, y - 1 )lt;gt;0 Entonces

y = y 1

Si no

x = x 1

y = y - 1

Fin si

S(x, y) = i

Siguiente

Para i = 1 a n

Para j = 1 To n

MagicMatrix = MagicMatrix & S(j, i) & " " Next

MagicMatrix = MagicMatrix & vbCrLf

Función NextEnd Private Sub Command1_Click()

Atenuar p como entero

p = 1

Hacer mientras (p = 1)

n = InputBox( " Por favor ingrese impar n")

Si ((n lt; 0) And (n lt; = 15) And (n Mod 2 lt; gt; 0)) Then

p = 0

Else

MsgBox "Hubo un error en la entrada, vuelva a escribir"

End If

Bucle

Text1.Text = MagicMatrix

End Sub Si quieres generar un archivo ejecutable exe, te lo pasaré, mi QQ: 466698654

Bucle

Texto1 = MagicMatrix

Fin Sub