Visual Basic.NET - VECTORES-VB 2008

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

VECTORES-VB 2008

Publicado por ros (21 intervenciones) el 13/04/2012 12:20:28
Vamos a ver, tienes que leer un poco mejor lo que te ponen.

Primero, si te piden 10 son 10 no 2, con lo que la matriz(vector) debe de ser de 10 posiciones del 0 al 9.
Ya tienes un cero de entrada en el trabajo.

Segundo, VAL debe de utilizarse con mucho cuidado, lo suyo es “CInt
“, apuesto a que el uso de VAL te dará un “trueno”

Nota de tu ejercicio cero patatero.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar