Programa escrito en Small Basic y exportado automáticamente a Visual Basic (código)


a1

Código Small Basic

TextWindow.Write(“Introduzca el primer número: “)

num1= TextWindow.ReadNumber()

TextWindow.Write(“Introduzca el 2o número: “)

num2 = TextWindow.ReadNumber() 

FindMax()

TextWindow.WriteLine(“El mayor de los dos números es: ” + max) 

Sub FindMax

  If (num1 > num2) Then

    max = num1

  Else

    max = num2

  EndIf

EndSub

Código Visual Basic exportado desde Small Basic con la función Graduate

Module maxModule

    Dim num1, num2, max As Primitive

    Sub Main()

        TextWindow.Write(“Introduzca el primer numero: “)

        num1 = TextWindow.ReadNumber()

        TextWindow.Write(“Introduzca el 2o numero: “)

        num2 = TextWindow.ReadNumber() 

        FindMax()

        TextWindow.WriteLine(“El mayor de dos numeros es: ” + max) 

    End Sub

    Sub FindMax()

        If num1 > num2 Then

            max = num1

        Else

            max = num2

        End If

    End Sub

End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s