Найти сумму первых ста натуральных чисел - QBasic

как найти сумму первых ста натуральных чисел ?

Листинг программы

for i=1 to 100
s=s+i
next
print s

Объяснение кода листинга программы

В данном коде на языке QBasic происходит следующее:

Создается переменная i типа integer со значением 1.
Создается переменная s типа string со значением ``.
Запускается цикл for от 1 до 100.
Внутри цикла значение переменной i увеличивается на 1.
Значение переменной s увеличивается на значение переменной i конкатенируя их вместе.
После завершения цикла значение переменной s выводится на экран с помощью функции print.