Addy The Sum Program

Эта мини-программа рассчитывает сумму ряда целых.

Вам нужна 1 текстовая область (textarea), 1 текстовое окно (textbox) и 1 клавиша управления (commandbutton) для запуска программы.

Вы можете также добавлять отрицательные целые.

Очень полезны Splitcommand и Stringarray String[]

The Code

PUBLIC SUB Button1_Click()
DIM text AS String
DIM summe AS Float
DIM Elt AS String[]
DIM Sb AS String
text = textarea1.Text
Elt = Split(text,Chr(10))
FOR EACH Sb IN Elt
summe = summe + Val(sb)
NEXT
textbox1.Text = summe
END

-- ReinerHoffmann - 31 Jan 2004