Private Sub btnRead_Click(sender As Object, e As EventArgs) Handles btnRead.Click Dim F As Integer Dim P As Integer For F = 1 To NumFarmers MarsFarmers(F).Name = InputBox("Please enter farmer name" & CStr(F)) MarsFarmers(F).Workers = CInt(InputBox("Please enter number of workers" & CStr(F))) For P = 1 To NumPeriods MarsFarmers(F).Profit(P) = CInt(InputBox("Please enter profit of farmer" & CStr(F))) Next P Next F End Sub
0
count -1
1
NumFarmers
MarsFarmers
NumPeriods
Profit
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)