Пример 6. ' Имя файла Difference.vbs

' Имя файла Difference.vbs

' Программа находит разность между произведением и суммой элементов целочисленного

' одномерного массива, состоящего из 5-ти положительных элементов

Option Explicit

Dim i, s

Dim A(4) ' объявление одномерного массива А

Const k=4 ' k-индекс последнего элемента в векторе

'-------------------------------------------------------------------------------

Sub Input_Rnd (A)

' процедура заполнения одномерного массива целыми

' числами от 0 до 20, выбранными случайным образом

Dim i

For i=0 to k

Randomize

A(i)=Fix(Rnd(1)*20)

Next

End Sub

'-------------------------------------------------------------------------------

Function Summa (A)

Dim i, s

For i=0 to k

s=s+A(i)

Next

Summa=s

End Function

'-------------------------------------------------------------------------------

Function Multiplication (A)

Dim i, s

s=1

For i=0 to k

s=s*A(i)

Next

Multiplication=s

End Function

'-------------------------------------------------------------------------------

Function Difference (multiplication, summa)

Difference=multiplication-summa

End Function

'-------------------------------------------------------------------------------

Input_Rnd A ' вызов процедуры ввода элементов массива

' Вывод введённого вектора:

For i=0 to k

s=s+CStr(A(i))+" "

Next

MsgBox "Вектор, полученный случайным образом:"&vbCrLf&_

s&vbCrLf&_

"Произведение элементов вектора: "&Multiplication (A)&vbCrLf&_

"Сумма элементов вектора: "&Summa (A)&vbCrLf&_

"Разность между произведением и суммой элементов данного”&_ “вектора:"&vbcrLf&_

Difference(multiplication (A), summa (A)),_

vbExclamation,_

"Результат:"