Наглядный вывод результата на экран STATISTICA Visual Basic

Option Base 1
Public 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) = 7
End Sub

Sub Main
Init
FG=»Ваши числа»+Str(A0)+Str(A1(1))+Str(A2(1,1)) + _
Str(A2(1,2))+Str(A2(2,1)) ‘Это перенос строки после него нельзя писать комментарий.
Debug.Print A0;A1(1);A2(1,1);A2(1,2);A2(2,1) ‘ В поле проверки появится: 1 2 3 5 7
MsgBox FG ‘Вывод результата в ящик «ОК»
End Sub

- доцент
- кандидат юридических наук
- профессор кафедры

Оцените автора
Добавить комментарий