VECTORES-VB 2008
Publicado por rolando (1 intervención) el 12/04/2012 22:37:03
El problema dice así: calcular el salario de 10 empleados, los datos de entrada son: nombre del empleado, horas trabajadas, tarifa por hora, total de deducciones. Calcular el salario bruto= tarifa por horas* horas trabajadas, y el salario neto= salario bruto-deducciones. Imprimir salario bruto y neto. Los datos se deben guardar en un vector de 10 posiciones.
Esto fue lo que hice, ojo, estoy empezando con esto de vectores, así que cualquier sugerencia que sea simple y sencilla.
Public Class Form1
Dim i, a(2) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(2), i As Integer
Dim h_trab, s_bruto, s_neto, tar_hora, deduc As Double
s_bruto = 0
s_neto = 0
For i = 0 To 1
a(i) = Val(InputBox("datos", "empleados", "", 300, 300))
a(i) = Val(InputBox("datos", "horas trabajadas", "", 300, 300))
a(i) = Val(InputBox("datos", "tarifa por hora", "", 300, 300))
a(i) = Val(InputBox("datos", "deducciones", "", 300, 300))
s_bruto = tar_hora * h_trab
s_neto = s_bruto - deduc
MsgBox("El salario bruto es"(a(i)) & s_bruto)
MsgBox("El salario neto es", (a(i)) & s_neto)
Next
End Sub
End Class
EL PROYECTO ESTA EN UN FORMULARIO CON UN BOTON, QUE AL PRESIONARLO, SALE EL INPUTBOX DONDE SE INGRESAN LOS DATOS
Esto fue lo que hice, ojo, estoy empezando con esto de vectores, así que cualquier sugerencia que sea simple y sencilla.
Public Class Form1
Dim i, a(2) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(2), i As Integer
Dim h_trab, s_bruto, s_neto, tar_hora, deduc As Double
s_bruto = 0
s_neto = 0
For i = 0 To 1
a(i) = Val(InputBox("datos", "empleados", "", 300, 300))
a(i) = Val(InputBox("datos", "horas trabajadas", "", 300, 300))
a(i) = Val(InputBox("datos", "tarifa por hora", "", 300, 300))
a(i) = Val(InputBox("datos", "deducciones", "", 300, 300))
s_bruto = tar_hora * h_trab
s_neto = s_bruto - deduc
MsgBox("El salario bruto es"(a(i)) & s_bruto)
MsgBox("El salario neto es", (a(i)) & s_neto)
Next
End Sub
End Class
EL PROYECTO ESTA EN UN FORMULARIO CON UN BOTON, QUE AL PRESIONARLO, SALE EL INPUTBOX DONDE SE INGRESAN LOS DATOS
Valora esta pregunta


0