formulas

EJERCICIO 1











Private Sub Command1_Click()
Dim pon1, pon2, pon3 As Integer

pon1 = InputBox("escriba la 1er ponderacion")
pon2 = InputBox("escriba la 2da ponderacion")
pon3 = InputBox("escriba la 3er ponderacion")

If pon1 > pon3 Then
MsgBox ("El punteo mas alto es " & pon1)
Else
If pon2 > pon3 Then
MsgBox ("El punteo mas alto es " & pon2)
Else
If pon3 > pon2Then
MsgBox ("El punteo mas alto es " & pon3)
End If
End If
End If




End Sub










EJERCICIO 2






Private Sub Command1_Click()
Dim nombre As String
Dim n1, n2, n3, n4, promedio As Integer

nombre = InputBox("Ingrese su nombre")
n1 = InputBox("Ingrese la 1er nota")
n2 = InputBox("Ingrese la 2da nota")
n3 = InputBox("Ingrese la 3er nota")
n4 =InputBox("Ingrese la 4ta nota")

promedio = (Val(n1) + Val(n2) + Val(n3) + Val(n4)) / 4

If promedio = 2500 Then
lbldescuento = Val(lblcompra) * 0.15
Else
lblcompra = Val(lblcompra) * 0.08
End If

lbltotal = Val(lblcompra) - (Val(lbliva) + Val(lbldescuento))


End Sub







EJERCICIO 4











Private Sub Command1_Click()
Dim n1, n2, n3, n4, n5 As Integer
Dim promedio AsDouble

n1 = InputBox("Ingrese la 1er nota")
n2 = InputBox("Ingrese la 2da nota")
n3 = InputBox("Ingrese la 3er nota")
n4 = InputBox("Ingrese la 4ta nota")
n5 = InputBox("Ingrese la 5ta nota")

promedio = (Val(n1) + Val(n2) + Val(n3) + Val(n4) + Val(n5)) / 5

If promedio >= 60 Then
MsgBox ("Usted aprobo el curso")
Else
MsgBox ("Usted reprobo el curso")
End If

End Sub

PrivateSub Command2_Click()
End
End Sub










EJERCICIO 5





Private Sub Command1_Click()
Dim control As Double

control = Val(lblresultado)
lblresultado = Val(txtno.Text) + control
txtno.Text = " "
End Sub

Private Sub Command2_Click()
control = Val(lblresultado)
lblresultado = Val(txtno.Text) - control
txtno.Text = " "
End Sub

Private Sub Command3_Click()
control= Val(lblresultado)
lblresultado = Val(txtno.Text) * control
txtno.Text = " "
End Sub

Private Sub Command4_Click()
control = Val(lblresultado)
lblresultado = Val(txtno.Text) / control
txtno.Text = " "
End Sub

Private Sub Command5_Click()
Dim salir As String
salir = InputBox("Desea cerrar la calculadora, entonces escriba si")

If salir = "si" Then
End
Else
If salir = "no" ThenMsgBox ("Siga usando la calculadora")
End If
End If
End Sub


EJERCICIO 6






Private Sub Command1_Click()
Dim numero, toneladas, quintales, arrobas, libras, gramos As Integer

numero = InputBox("Ingrese el numero que desea convertir")

toneladas = Val(numero) * 20
quintal = Val(numero) * 4
arrobas = Val(numero) * 16
libra = Val(numero) * 453.59
gramos = Val(numero) * 1000MsgBox (toneladas & " quintales tiene una arroba")
MsgBox (quintal & " arrobas tiene un quintal")
MsgBox (arrobas & " libras tiene una arroba")
MsgBox (libra & " gramos tiene una libra")
MsgBox (gramos & " kilogramos tiene un gramo")



End Sub

Private Sub Command2_Click()
End
End Sub






EJERCICIO 7





Private Sub Command1_Click()
Dim cantidad As Integer
Dimdolar, peso, euro, dinar, boliviano, yen As Integer

cantidad = InputBox("Ingrese la cantidad que desea convertir")
dolar = Val(cantidad) * 7.65762
peso = Val(cantidad) * 0.59558
euro = Val(cantidad) * 10.154
dinar = Val(cantidad) * 0.10464
boliviano = Val(cantidad) * 1.11782
yen = Val(cantidad) * 0.08007

MsgBox ("La conversion en dolar es: " & dolar & "dolares")
MsgBox ("La conversionen peso es: " & peso & "pesos")
MsgBox ("La conversion en euro es: " & euro & "euros")
MsgBox ("La conversion en dinar es: " & dinar & "dinares")
MsgBox ("La conversion en boliviano es: " & boliviano & "bolivianos")
MsgBox ("La conversion en yen es: " & yen & "yenes")

End Sub

Private Sub Command2_Click()
End
End Sub











EJERCICIO 8






Private Sub...