Эта мини-программа рассчитывает сумму ряда целых.
Вам нужна 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