Программирование

Для ввода данных может использоваться элемент текстовое поле (TextBox). Он может быть установлен на экранную форму. Оператор присваивания позволяет считать данные введенные с клавиатуры: A=Dlina.Text , где Dlina это имя поля (Name).

Считывание: В=InputBox("Комментарий","Заголовок окна","Начальное значение") позволяет вводить данные с помощью специального "окна ввода".

Данные можно выбрать из заранее подготовленного или заполняемого при решении задачи "окна списка". Например: Х=ИмяОкнаСписка.List(N).

Для ввода из файла используется оператор ОТКРЫТИЯ ФАЙЛА: OPEN.

Open "A1.TXT" For Input As #K

Открывается файл с именем A1 и расширением TXT, номер его К, затем из файла вводятся данные с помощью оператора Input #K,R переменная R. Оператор Line Input используется для ввода данных из файла построчно.

Оператор ЗАКРЫТИЯ файла: CLOSE #K закрывает открытый #К файл. Для вывода в файл используется оператор с записью ( For Output ) и затем (Print #K, … или Write #K, …).

Вывод на форму осуществляется оператором ВЫВОДА: PRINT со списком выводимых переменных.

Для слитного вывода в ряд числовых значений с комментарием используется разделение точкой с запятой между переменными.

Print “РЕЗУЛЬТАТ А и В =”,A;B

для раздельного вывода по столбцам, запятая:

Print C,D

Оператор PRINT без списка данных выполняет перевод строки.

Функция TAB производит форматирование вывода.

Print Tab(5),X

Перед выводом числа Х будет пропущено 5 пробелов. Функция TAB часто используется для построения графиков или таблиц.

Результат может быть показан в установленном "текстовом поле", например: ИмяПоля.Text=Y.

Нестандартные функции и процедуры

Одно из проявлений модульного принципа построения программ это использование собственных функций и процедур.

Повторяющиеся в программе арифметические выражения, можно представить в виде оператора функции и соответствующей процедуры.

Для описания функции используется например описание:

Public Function AA(A As Single,B As Single,C As Single) As Double

P=(A+B+C)/2

AA=Int(Sqr(P*A*B*C)

End Function

где AA– имя или идентификатор функции, в скобках список ФОРМАЛЬНЫХ ПАРАМЕТРОВ ( имена фиктивных переменных фактических значений, которые должны быть вычислены к моменту выполнения функции, если их несколько, то все они перечисляются через запятую). внутри блока вид описываемой функции. В результате работы блока возвращается вычисленное значение АА. Функции как и процедуры могут быть локальными: Private и глобальными: Public.

Процедура отличается от функции тем, что она возвращает значения переменных описанных в списке параметров, например:

Вызов процедуры: Call ИмяПроцедуры(СписокПараметров)

можно записать без скобок и ключевого слова Call , список параметров это переменные через запятую. ИмяПроцедуры СписокПараметров . Сама процедура имеет описание:

Public Sub ИмяПроцедуры(СписокПараметров)

и операторы для обработки данных или вычислений

End Sub

Cписок параметров это входные или выходные параметры процедуры. Процедура может обращаться к самой себе (рекурсивная).

Некоторые особые стандартные функции

Rnd = случайное число из диапазона 0 – 1 (r!=Rnd) (Для генерации псевдослучайных чисел используется оператор Randomize N, где N любое число, или Randomize Timer старт от счетчика времени).

Fix(X) – отбрасывает числа после запятой;

Сint(X) – определяет наибольшее целое, не превосходящее аргумент;

Int(X) – округляет значение до ближайшего целого;

Sgn(X) – определяет знак аргумента и присваивает результату значение -1, если знак аргумента отрицательный, 0, если аргумент равен нулю, и 1 , если положительный.

Val(X$) – преобразование цифровой строки в цифровое значение;

Str(X) – преобразование цифрового значения в текстовую строку, содержащую цифры;

Len(Х$) – возвращает длину строки;

Mid(Cтрока$,Позиция&,Длина&) – в строке выделяется подстрока с позиции заданной длиной;

Asc(Cтрока$) – преобразовывает строку в код ASCII первого символа строки;

Chr(Код&) – преобразует код в строку из одного символа.

InputBox(Приглашение,Заголовок,Начальное значение) – ввод данных с помощью окна ввода;

MsgBox(Текст,Вид значка,Заголовок окна) – вывод окна предупреждения (Вид значка: критическое сообщение=16, вопрос=32, предупреждение=48, информация=64; добавление к этому числу 0 означает кнопка ОК, 1 – это две кнопки: ОК и Отмена, 2 – Стоп, Повтор, Пропустить, 3 – Да, Нет, Отмена, 4 – Да, Нет, 5 – Повтор, Отмена); Функция возвращает значения: 1=ОК, 2=Отмена, 3=Стоп, 4=Повтор, 5=Пропустить, 6=Да, 7=Нет.

Конец ознакомительного фрагмента.