Visual Basic

[VeguD]

Поскольку этот раздел по программированию, думаю я могу разместить тут эту тему.
Очень нужна помощь в этом языке программирования.
Помогите решить задачу:
дан массив. любой. допустим 10.
Нужно найти максимальную сумму трех подряд чисел. Т.е. 1ое+2ое+3ие или 2ое + 3ие + 4ое и т.д.
Прошу помощи

 

[Лариса]

вот код, приязанный к кнопке.
вывод делала прямо на текущую форму. думаю с интерфейсом разберешься сам.
так, конечно, оставлять нельзя.

комменты расставлять для тебя некогда.
проверка ввода количесства и защита от ошибок не делалась.

Private Sub Command1_Click()

Dim i, j, k, MaxNum, Sum  As Integer
Dim Number() As Integer ' ìàññèâ ñëó÷. ÷èñåë è ìàññèâ ÷àñòè÷íûõ ñóìì
N = InputBox("Ââåäèòå êîëè÷åñòâî ÷èñåë >3")
ReDim Number(1 To N) As Integer
    For i = 1 To N
        Number(i) = Int(Rnd * 10)
        Print Number(i);
    Next i
    Print
SumMax = Number(1) + Number(2) + Number(3): MaxNum = 1
    For i = 2 To N - 2
        Sum = Number(i) + Number(i + 1) + Number(i + 2)
        If Sum > SumMax Then SumMax = Sum: MaxNum = i
    Next i
   Print "-----------"
   Print SumMax, MaxNum
End Sub