
- •Выполнил: преподаватель Агафонов а. В.
- •Оглавление
- •19. Задания 55
- •22. Задания 59
- •1. Введение
- •2. Переменные
- •Символьные переменные.
- •Числовые переменные
- •3. Операторы присвоения, печати, ввода и ремарки Оператор присвоения
- •Оператор печати
- •Оператор ввода
- •Оператор ремарки
- •4. Арифметические действия.
- •Логический оператор and
- •Верное Верное Верное
- •Логический оператор or
- •Логический оператор not
- •Другие логические операторы xor, eqv, imp
- •7. Оператор условного перехода
- •Оператор if.(условие)..Then.(оператор)..Else..(оператор).
- •Оператор select
- •8. Задания
- •9. Оператор цикла Принудительное прерывание программы
- •Цикл do……loop
- •Цикл for...Next
- •Оператор goto
- •10. Задания
- •Задачи на вычисление сумм.
- •11. Функции
- •Математические функции
- •Символьные функции.
- •Вспомогательные функции
- •Выработка случайных величин.
- •12. Задания
- •13. Операторы графики.
- •Изображение линий и прямоугольников
- •Изображение кругов и эллипсов
- •Раскрашивание
- •Оператор draw
- •14. Задания
- •15. Функция пользователя
- •16. Процедуры
- •Оператор gosub..Return
- •Оператор sub...End sub
- •17. Задания
- •18. Массивы
- •Многомерные массивы
- •Операторы data, read, restore
- •19. Задания
- •20. Работа с файлами.
- •Запись в файл
- •Функция eof принимает значение 1, если конец файла и 0 – в противном случае. Аргументом функции является порядковый номер файла.
- •22. Задания
- •23. Создание функции пользователя в Excel с помощью Visual Basic
Символьные функции.
К этим функциям относятся функции, аргументом которых является текст.
ASC
Функция ASC. Даёт значение функции в кодах ASCII .
Пример:
PRINT ASC("A") |
CHR$
Функция, обратная функции ASC. Аргументом является значение кода символа, а значением символ.
Пример:
PRINT CHR$(81) |
INSTR
Функция, позволяющая найти подстроку из строки и указать место, где она находится.
Пример:
Программа ищет место, где находится знак @ 'если знака @ нет, то значение функции0
INPUT "Введи свой электронный адрес"; email$ S = INSTR(email$, "@") PRINT "Знак @ находится на месте"; S |
LCASE$
Функция превращает символьную строку в строку, написанную маленькими буквами.
Пример:
PRINT LCASE$("JOOSEP@KUSKIL.EE") |
LEFT$
Аргументом функции является символьная строка и число. Выбирает слева столько символов, сколько указано в числе.
Пример:
a$ = "Microsoft QBASIC" PRINT LEFT$(a$, 5)'Получаем: Micro |
LEN
Аргументом ввляется символьная строка. Функция показывает сколько символов содержит строка.
Пример:
INPUT "Введи своё имя"; N$ PRINT "В твоём имени "; LEN(N$); "букв" |
LTRIM$
Аргументом является символьная строка. Функция убирает слева все пустые места (если они были). У положительного числа слева есть , в частности пустое место для знака.
Пример:
a$=" BLAH" PRINT LTRIM$(a$) |
MID$
Аргументами является символьная строка и два числа. Функция выбирает из символьной строки с заданного места указанное число символов.
Пример:
a$ = "Информатика" PRINT MID$(a$, 3, 5) 'Результатом будет -форма |
Замечание:
Функцию можно использовать и для замещения.
Пример:
A$ = "Mann Potik" PRINT "Фамилия до брака "; A$ MID$(A$, 6, 5) = "Kuusk" PRINT "Фамилия после брака: "; A$ |
RIGHT$
Аналогична функции LEFT$. Выбирает справа столько знаков, сколько указано в числе.
Пример:
a$ = "Microsoft QBASIC" PRINT RIGHT$(a$, 5) 'Результатом будет: BASIC |
RTRIM$
Функция убирает справа в символьной строке все пустые места.
Пример:
a$="BLAH " PRINT RTRIM$(a$) |
STR$
Функция превращает число с символьную строку.
Пример:
ARV=45*2+5 TEKST$="WINDOWS "+STR$(ARV) PRINT TEKST$ |
UCASE$
Функция превращает символьную строку в строку, написанную большими буквами.
Пример:
PRINT UCASE$("as siil ruudus") |
VAL
Превращает символьную строку в число, если это возможно. Иначе даёт значение 0.
Пример:
Tekst$ = "100" 'Это текст Arv = VAL(Tekst$) 'превращаем текст в число PRINT 2 * Arv 'число можно умножать |