Прикладные программы

Пример №1. Определение массивов и отладка программыOption Base 1Sub MainDim A(-1 To 1,1 To 3)’Объявляется двумерный массив. Индексы меняются там, где захотим.

‘$include: «*STB.svx»‘ Библиотека обязательна Option Base 1 ‘Перед запуском программы следует открыть Spreadsheet нужного размера

Option Base 1 Function Power(X,Y) ‘Определим первую функцию — формулу     P =(X^Y)     Power = P End Function Function Vower(X,Y) ‘

Dim i As Integer ‘Целочисленная переменная.Dim Sum As Double ‘Определна действительная переменная SumDim ResText As String ‘

Option Base 1 Sub Main Dim x (1 To 10) As Double Dim y (1 To 10) As Double Dim z (1 To 10) As Double Dim i As Integer For i =1 To 10 x(i)=RndNormal(0.