17-04-15, 05:56 PM
Dim a(10) As Double
For i = 1 To 10
a(i) = InputBox(i)
Next
Dim max As Double
For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
Next
MsgBox(max)
For i = 1 To 10
a(i) = InputBox(i)
Next
Dim max As Double
For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
Next
MsgBox(max)
