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

Option Base 1Public A0,A1(1),A2(2,2) Sub Init A0 = 1 A1(1) = 2 A2(1,1) = 3 A2(1,2) = 5 ‘Здесь A1(0) и A2(0,#) нет. A2(2,1) = 7End Sub Sub Main Init FG=»

Option Base 1Sub MainDim x (1 To 10) As Double ‘Определён массив действительных чисел длины 10.Dim Sum As Double, ResText As String ‘

Option Base 1 Sub Main ‘ Работа условного оператора в диалоге с пользователем. X=MsgBox («Hello! Click OK or Cancel», _ vbAbortRetryIgnore ) ‘