Code Source VB: Metodo de los cuadrados centrales

Un amigo me pidió ayuda con su materia de simulación, tenían que realizar un programa en cualquier lenguaje, sobre el método de los cuadrados centrales, y aquí está el resultado para quien lo necesite, la verdad está muy simple, lo hice en un pequeño rato libre.

- Visual Basic

Private Sub Command1_Click()

Dim n_periodo As Integer
Dim tamaño As Integer
Dim cuadrado As Double
Dim nuevo_cuadrado As Double

'Indicamos hasta que periodo deseamos trabajar
n_periodo = Text1.Text


'Hacemos un ciclo que va a realizar su trabajo dependiendo del numero
de ciclo que le indiquemos
For i = 0 To n_periodo

'Elevamos al cuadrado el numero que introdujo el usuario
cuadrado = Text2.Text ^ 2

'Almacenamos el numero elevado a la 2 en un Textbox (llamado Text4.text)
Text4.Text = cuadrado

'Leemos el tamaño del resultado (cuantos digitos obtubimos al elevarlo a la 2)
tamaño = Len(Text4.Text)



'Si los digitos optenidos es igual a 7 Se agrega un Cero
If tamaño = 7 Then
Text4.Text = "0" & cuadrado
End If
'Si los digitos optenidos es igual a  6 Se agrega 2 Ceros
If tamaño = 6 Then
Text4.Text = "00" & cuadrado
End If
'Si los digitos optenidos es igual a 5 Se agrega 3 Ceros
If tamaño = 5 Then
Text4.Text = "000" & cuadrado
End If
'Si los digitos optenidos es igual a 4 Se agrega 4 Ceros
If tamaño = 4 Then
Text4.Text = "0000" & cuadrado
End If
'Si los digitos optenidos es igual a 3 Se agrega 5 Ceros
If tamaño = 3 Then
Text4.Text = "00000" & cuadrado
End If


'Optenemos el nuevo numero que debemos elevar a la 2 (optenemos los 4
digitos centrales)
nuevo_cuadrado = Mid(Text4.Text, 3, 4)

'Escribimos esos digitos en un TextBox (Text2.Text)
Text2.Text = nuevo_cuadrado

'Agregamos los procedimientos a un TextBox (Text3.Text)
Text3.Text = Text3.Text & vbCrLf & "Periodo  [" & i & "]  " & Text4.Text & "    Centrales: " & nuevo_cuadrado

'Si se cumple todo el periodo que imprima en un label.caption la leyenada
"Resultado:"
If i = n_periodo Then
Label2.Caption = "Resultado:"
End If

Next i


End Sub

Descargar Codigo Fuente