Option Base 1
Sub Main
Dim x (1 To 10) As Double ‘Определён массив действительных чисел длины 10.
Dim Sum As Double, ResText As String ‘Определена действительная переменная Sum и строковая ResText.
Dim i As Integer ‘Целочисленная переменная.
For i =1 To 10
x(i)=i
Next i ‘Цикл присвоения.
Sum=CSOS ( LBound (x), UBound(x), x) ‘Обращение к CSOS -функции трёх переменных, определённая ниже. LBound, UBound — стандартные функции, определяющие границы изменения индексов массива.
ResText=»Сумма квадратов целых чисел от » + _
Str(LBound(x)) + » до » + Str(UBound(x)) + _
» равна » + Str(Sum) ‘ Присвоение значений строковой переменной.
MsgBox ResText ‘Вывод на экран в ящик «ОК».
End Sub
‘ Определение функции- процедуры CSOS(iFrom,iTo,x()) с указанием типа переменных.
Function CSOS (iFrom As Integer, _
iTo As Integer, x() As Double) As Double
Dim i As Integer
CSOS=0
For i= iFrom To iTo
CSOS=CSOS+x(i)^2
Next i
End Function