Создать проект который определяет самый засушливый месяц в трех заданных годах

Private Sub Command1_Click()
Dim jmax As Byte, imax As Byte, a(1 To 12, 1 To 3) As Integer, s As String, iimax As Byte, max As Integer
Cls
For i = 1 To 12
 For j = 1 To 3
  a(i, j) = Int((150 - 50) * Rnd() + 50)
  s = s & Str(a(i, j)) & vbTab
 Next j
s = s & vbCrLf
Next i
Print s
imax = 1
jmax = 1
max = -1
For j = 1 To 3
imax = 1
For i = 1 To 12
If a(i, j) > a(imax, j) Then imax = i
Next i
Print "MAX(" & imax & "," & j & "):=" & a(imax, j); vbTab
If a(imax, j) > max Then
 max = a(imax, j)
 iimax = imax
 jmax = j
End If
Next j
Print "MAX(" & iimax & "," & jmax & "):=" & a(iimax, jmax) & "--->" & MonthName(iimax)
End Sub

n = val(InputBox("Ââåäèòå íîìåð ãîäà: "))
imax = 1
For i = 1 To 6
If a(i, n) > a(imax, n) Then imax = i
Next i
Print "MAX(" & imax & "," & n & "):=" & a(imax, n) & "--->" & MonthName(imax)

Private Sub Command1_Click()
Dim jmax As Byte, imax As Byte, a(1 To 6, 1 To 3) As Integer, s As String, max As Integer
Cls
a(1, 1) = 37
a(2, 1) = 11
a(3, 1) = 16
a(4, 1) = 11
a(5, 1) = 129
a(6, 1) = 57
 
a(1, 2) = 34
a(2, 2) = 51
a(3, 2) = 20
a(4, 2) = 45
a(5, 2) = 71
a(6, 2) = 152
 
a(1, 3) = 8
a(2, 3) = 1
a(3, 3) = 3
a(4, 3) = 66
a(5, 3) = 60
a(6, 3) = 50
For i = 1 To 6
 For j = 1 To 3
  s = s & Str(a(i, j)) & vbTab
 Next j
s = s & vbCrLf
Next i
Print s
n = Val(InputBox("Введите год: "))
If n Mod 10 > 3 Or n Mod 10 < 0 Then
 MsgBox ("Данные об этом годе не даны в таблице")
Else
imax = 1
For i = 1 To 6
If a(i, n Mod 10) > a(imax, n Mod 10) Then imax = i
Next i
Print "MAX(" & imax & "," & n Mod 10 & "):=" & a(imax, n Mod 10) & "--->" & MonthName(imax)
End If
End Sub

If n>2003 Or n<2001 Then

a(i, j) = Val(Inputbox("Введите значение: "))