6.7 Программирование на языке vbs. Операторы цикла For и ForEach

Randomize

n = inputbox(vblf & " Введи значение n")

Redim X(n), y(n)

For i = 1 to n

X(i) = 1 - 2*Rnd

Next

s = " "

For Each iks in X

s = s & iks & vbLf

Next

For i = 1 to n

a = X(i)

d = d + a

Next

For i = 1 to n

Y(i) = X(i)/d

Next

s = " "

For Each iks in y

s = s & iks & vbLf

Next

MsgBox S,,"For Третьякова"

Рисунок 6.16 – Пример программы (цикл For)

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

1. Грошев А.С. Информатика: лабораторный практикум. – Архангельск, САФУ, 2012. – 147 с.

2. Грошев А. С. Программирование на языке Microsoft Visual Basic Scripting Edition: методические указания к выполнению лабораторных работ. – Архангельск: АГТУ, 2009. — 82 с.