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 |