[vivat]

я пыталась сделать под а)нахождение максимального значения вот что вышло

Sub mac1()
Dim A() As Integer, n As Byte, i As Integer, r As Integer, b As Integer
n = InputBox("n")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("A(i)")
Next i
Amax = A(1) : k = 1
For i = 2 To n
If A(i) > max Then max = A(i) : k = i
Next i
MsgBox "max=" & r
End Sub

у меня ошибка есть,но я не знаю где....