Imports Microsoft.VisuaLBasic

​

Public Module Module1

​

    Public Sub Main()

        Dim A As Double

Dim B As Double

Dim C As Double

Dim resultado As Double

​

A = InputBox("Ingrese el valor de A:")

B = InputBox("Ingrese el valor de B:")

C = InputBox("Ingrese el valor de C:")

​

resultado = (A + B) / C 'Calcula el resultado de la suma y división

​

MsgBox ("El resultado de la suma es " & (A + B) & " y el resultado de la división es " & resultado, vbInformation, "Resultado")

    End Sub

End Module

​