Ingeniero

Dim a As Currency
Dim b As Currency
Dim c As Currency


Private Sub cmdCalcula_Click()
txtnegativo.Visible = False
a = Val(txta.Text)
b = Val(txtb.Text)
c = Val(txtc.Text)
r = b * b - 4 * a * c


If r < 0 Then

txtx1.Text = ""
txtx2.Text = ""
txtnegativo.Visible = True

Else

ra = Sqr(r)
X1 = (-b + ra) / (2 * a)
X2 = (-b - ra) / (2 * a)
txtx1.Text = X1
txtx2.Text = X2End If
End Sub

Private Sub Form_Load()
txtnegativo.Visible = False
End Sub



|Sub Main() |
|02 |Dim a As Integer |


|03 |Console.Write("Dame un numero: " |
|04 |a = Console.ReadLine|


|05 |If esprimo(a) Then |
|06 |Console.WriteLine("El numero es primo." |


|07 |Else|
|08 |Console.WriteLine("El numero NO es primo." |


|09 |End If |
|10 |Console.ReadKey() |


|11 |End Sub |
|12 |Function esprimo(ByVal a AsInteger) As Boolean |


|13 |Dim i As Integer |
|14 |Dim m As Boolean |


|15 |m = True |
|16 |For i = 2 To a - 1 |


|17 |If a Mod i = 0 Then |
|18 |m = False |


|19 |Exit For ||20 |End If |


|21 |Next |
|22 |   |


|23 |If m Then |
|24 |Return True |


|25 |Else |
|26 |Return False |


|27 |End If |
|28 |End Function |



Crearemos un programa con los objetos (Label ,TextBox )Vamos a diseñar e implementar una aplicación que permite resolver ecuaciones de primer y segundo grado. La interfaz gráfica de la aplicación es la siguente:


[pic]

Su funcionamiento será el siguiente:

a) Cuando el usuario pulse el botón Calcular, la aplicación, en función de los coeficientes introducidos por el usuario, determina el tipo de ecuación y calcula los resultados. Sila ecuación es de primer grado, para no confundir al usuario oculta los campos asociados a la segunda solución y modifica la etiqueta asociada a la primera solución.
Si la ecuación es de segundo grado, se restablecen los campos de la siguiente manera:




b) Cuando haga click en el botón Borrar , se debe borrar el contenido de las Caja de Texto (Siempre cambiando el valor de laspropiedades)

c) Cuando haga click en el botón Salir , el programa finalizará. Para ello usaremos la función End.

Los pasos a seguir son:

1. Añadir los siguientes objetos y propiedades:

|Tipo de Control/Objeto |Propiedades |Valor |
|Form (frm) |Name|frmEcuaciones |
| |Caption |Ecuaciones de primer y segundo grado |
|Label (lbl) |Name |lblCoefA |
| |Caption |* X^ 2 +...