electronica

Ejercicios de Programación Aplicada 2
Ejercicio 1:
Hacer un programa donde se halle el número mayor entre los 3 números ingresados por teclado en la caja de texto.
Codificación:
Dim A, B, C AsInteger
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
If (A > B) Then
If (A > C) Then
MsgBox("El numero mayores:" & A)
Else
MsgBox("El numero mayor es:" & C)
End If
Else
If (B > C) Then
MsgBox("El numero mayor es" & B)Else
MsgBox("El numero mayor es" & C)
End If
End If

End Sub


Ejercicio 2:
Hacer un programadonde se arroje a pantalla los números comprendidos desde 5 a 30.
Dim S As Integer
For S = 5 To 30
ListBox1.Items.Add(S)
Next
End Sub

Ejercicio 3:
Se pide hacerun programa donde se pide determinar el precio medio de un producto vendido en 3 diferentes establecimientos.
El precio del producto en los siguientes establecimientos son:
En el establecimiento 1 :s/.11.20
En el establecimiento 2: s/.15.99
En el establecimiento 3: s/. 7.99
Dim A, B, C, R As Double
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)R = (A + B + C) / 3
TextBox4.Text = R
End Sub
End Class

Ejercicio 4
Hacer un programa donde se muestre las 1eras cuatro operaciones básicas de la matematica
SumaDim A, B, R As Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
R = A + B
TextBox9.Text = R
End Sub

Adicion
Dim A, B, R As IntegerA = Val(TextBox3.Text)
B = Val(TextBox4.Text)
R = A - B
TextBox9.Text = R
End Sub
Multiplicación
Dim A, B, R As Integer
A = Val(TextBox5.Text)...