Progarmas

CALCULO DEL NUMERO MAYOR
-------------------------------------------------
Private Sub btCalcular_Click()
-------------------------------------------------
Dim a As Integer-------------------------------------------------
Dim b As Integer
-------------------------------------------------
Dim suma As Integer
-------------------------------------------------
Dim resta As Integer-------------------------------------------------

-------------------------------------------------
If Text1.Text = "" Then
-------------------------------------------------
MsgBox "Por favorIntroduzca Valor de A"
-------------------------------------------------
End If
-------------------------------------------------
If Text2.Text = "" Then-------------------------------------------------
MsgBox "Por favor Introduzca Valor de B"
-------------------------------------------------
Else
--------------------------------------------------------------------------------------------------
a = Val(Text1.Text)
-------------------------------------------------
b = Val(Text2.Text)
-------------------------------------------------
suma = (a ^ 2) + (b ^ 2)-------------------------------------------------
resta = (a ^ 2) - (b ^ 2)
-------------------------------------------------

-------------------------------------------------
If a > b Then-------------------------------------------------
MsgBox "El numero mayor es : " & a & vbCrLf & "La sumatoria de las potencias de " & a & " son: " & suma & vbCrLf& "La diferencia de las potencias de " & a & " son: " & resta
-------------------------------------------------
End If
--------------------------------------------------------------------------------------------------
End If
-------------------------------------------------

-------------------------------------------------
End Sub

CALCULO DEL NUMERO MAYOR...