RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	67537 - ¿IF THEN ELSE VISUAL BASIC 6.0?
Autor:	sol Lopez
Dim G, M, R, C As Double Private Sub Form_Load() Dim G, M, C, r1, real, compleja, R As Double G = InputBox("G="): M = InputBox("M="): C = InputBox("C="): Total = InputBox("Total=") End Sub Private Sub Calcular_Click() If (G = 0) And (M = 0) Then r1 = M / C Ventana.Print "La formula es degenerada" ElseIf (G = 0) And (M <> 0) Then R = G * M / C Ventana.Print " r1=" & r1 Else R = 2 * G * M / C ^ 2 If R >= 0 Then r1 = (2 * G * M) / (C ^ 2) Ventana.Print "r1=" & r1 Else real = (C ^ 2) Label1.Caption = (2 * G * M) / (C ^ 2) End If End If End Sub este programa lo qu el falta es que de el resultado de la operacion el total aparese nomas sin los numeros estoy buscando que funcion bien espero que me ayuden