VISUAL basic clarity
Private Sub btnInitialise_Click(sender As Object, e As EventArgs) Handles btnInitialise.Click
Dim x, Z As Integer
ReDim Month(NumMonth, NumFoodIteams)
NumMonth = CInt(InputBox("Enter number of months."))
NumFoodIteams = CInt(InputBox("Enter the number of food iteams."))
grdFoods.Rows = NumMonth + 3
grdFoods.Cols = NumFoodIteams + 1
For x = 1 To NumMonth
PlaceText(x, 0, "Month" & x)
Next x
For Z = 1 To NumFoodIteams
PlaceText(0, Z, "Num of food iteam " & Z)
Next Z
PlaceText(NumMonth + 1, 0, "Total")
PlaceText(NumMonth + 2, 0, "Average")
PlaceText(0, 1, "Number of food iteams")
End Sub