Y si cambia el número de empleados y ya no son 20 (esperemos que contraten a más gente y aumente
). El código ya no te valdría.
Puedes o bien ir redimensionando tu vector:
Código PHP:
Redim Preserve codigo(21)
O bien utilizar ArrayList que te permiten añadir y eliminar elementos más fácilmente. En un ArrayList puedes almacenar cualquier tipo de objeto o por ejemplo una estructura.
En este sentido, podrías crearte una estructura para almancenar los datos del empleado:
Código:
Public Structure Empleado
Dim Codigo As String
Dim Nombre As String
Dim Domicilio As String
Dim Sueldo As Double
Dim Horas As Integer
Function SueldoTotal() As Double
Return Sueldo * Horas
End Function
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arrEmpleados As New ArrayList
For i As Integer = 0 To X
Dim Emp As New Empleado
Emp.Codigo = TextBox1.Text
Emp.Nombre = TextBox2.Text
Emp.Domicilio = TextBox3.Text
Emp.Sueldo = TextBox4.Text
Emp.Horas = TextBox5.Text
arrEmpleados.Add(Emp)
TextBox12.Text = Emp.Codigo
TextBox11.Text = Emp.Nombre
TextBox10.Text = Emp.Domicilio
TextBox9.Text = Emp.Sueldo
TextBox8.Text = Emp.Horas
TextBox7.Text = Emp.SueldoTotal
Next
End Sub