6.6 Операторы цикла For и For Each

n = 33

ReDim x(n)

Randomize

For i = 1 to n

x(i) = 5 - 10*Rnd

Next

Sm = 0

For i = 1 to n-1

Sm = Sm + x(i)/x(i+1)

Next

S = ""

For Each iks in X

S = S & iks & vblf

Next

MsgBox S & vblf & "Сумма = " & Sm, 4096, "Евдокимов"

Рисунок 6.25 – Окно вывода

Список использованных источников

1 Грошев А. С. Информатика: Учебник для вузов – Архангельск, Арханг. гос. техн. ун-т, 2010. – 470 с.

2 А. С. Грошев Информатика: лабораторный практикум (http://yadisk.cc/d/g5lG4Mw_d5)