- •Visual Basic for Applications
- •1. Основы языка программирования Visual Basic 5
- •1. Основы языка программированияVisualBasic
- •1.1. Общие сведения оVisualBasic
- •1.2. Среда vb, инструментальные средства. Разработка проектов
- •1.3. Типы данных. Константы и переменные
- •1.4. Операции
- •1.5. Ввод и вывод данных
- •1.6. Управляющие операторы
- •1.7. Массивы
- •1.8. Примеры программ работы с числами
- •1.9. Обработка строк. Примеры
- •1.10. Математические вычисления. Другие операторы и функции
- •1.11. Процедуры и функции. Примеры
- •1.12. Работа с файлами
- •2. ОсновыVba
- •3. Практические задания
- •3.1. Практическое задание №1. Знакомство сVba
- •3.2. Практическое задание №2. Линейное программирование
- •3.3. Практическое занятие №3. Программирование ветвлений
- •3.4. Практическая работа №4. Программирование повторений
- •3.5. Практическая работа №5. Работа с массивами
- •3.6. Практическая работа №6. Процедуры и функции
- •3.7. Практическое занятие №7. Файлы. Последовательный доступ
- •3.8. Практическое занятие №8. Файлы с произвольным доступом
- •Задания самостоятельной работы
- •4.1. Линейное программирование
- •4.2. Программирование ветвлений
- •4.3 Программирования циклов
- •4.4. Массивы
- •4.5. Файлы
- •5. Задания для контрольной работы
- •5.1. Для студентов очной формы обучения
- •5.1.1. Линейное программирование
- •5.1.2. Программирование ветвлений
- •5.1.3. Программирование циклов
- •5.1.4. Массивы
- •5.2. Для студентов заочной формы обучения
- •Список литературы
1.8. Примеры программ работы с числами
Rem Программа_2.1 – определение наибольшего из n чисел
Sub Main()
Dim i As Integer
Dim n As Integer ‘ количество чисел
Dim x As Single, max As Single ‘ очередное число и наибольшее из всех указанных чисел
max = 0
n = InputBox ( "Введите количество чисел")
For i = 1 To n
x = InputBox ("Введите" & Str(i) & "-е число" ‘Str – функция преобразования числа в строку
If x > max Or i = 1 Then max = x
Next i
MsgBox "max = " & Str(max)
End Sub
Rem Программа_2.2 – сортировка массива чисел методом ‘’пузырька”
Sub Main()
Dim T(5) As Single, X As Single
Dim i As Integer, OSTANOV As Integer
For i = 1 To 5
T(i) = InputBox ("Введите " & Str(i) & "-е число")
Next i
M: OSTANOV = 1 ‘ переменная, принимающая значение 0, если есть перестановка чисел
For i = 1 To 4
If T(i) > T(i + 1) Then
X = T(i + 1): T(i + 1) = T(i): T(i) = X ‘ два числа меняются местами
OSTANOV = 0
End If
Next I
If OSTANOV = 0 Then GoTo M
MsgBox “Результат: ” & Str(T(1)) & “ “ & Str(T(2)) & “ “ & Str(T(3)) & “ “ & Str(T(4)) & “ “ & _
Str(T(5))
End Sub
1.9. Обработка строк. Примеры
Функция Len(СТРОКА) выдает длину строки – количество символов в строковом выражении, являющемся аргументом функции.
Функция Chr() преобразует ASCII-код в соответствующий символ; аргумент является целым числом из диапазона от 0 до 255.
Функция Asc() выдает ASCII-код символа, указанного в качестве аргумента (он должен быть в кавычках), либо код первого символа строки.
Функция Chr() возвращает символ, соответствующий указанному ANSI-коду; аргумент может быть целым числом от 0 до 255.
Выделение крайних слева символов строки Left(СТРОКА, ЧИСЛО), ЧИСЛО –это аргумент целого типа, задающий количество выделяемых символов из аргумента СТРОКА.
Выделение правых крайних символов Right(СТРОКА, ЧИСЛО).
Выбор подстроки Mid(СТРОКА, НАЧАЛО, ДЛИНА), где СТРОКА – строка, из которой, начиная с позиции НАЧАЛО (номер символа), выбирается количество символов, указанное в параметре ДЛИНА.
Функция Lcase() возвращает заданную строку в виде строчных букв из диапазона от 32 до 127.
Функция Ucase() противоположна предыдущей функции.
Функция Ltrim$() устраняет в строке ведущие пробелы (пробелы перед первым непробельным символом).
Функция Rtrim() убирает в строке последние пробелы.
Trim() удаляет пробелы в начале и в конце строки.
Создание строки из пробелов Space(), аргумент функции – длина строки.
Spc – в операторе Print# и методе Print выводит указанное число пробелов.
Преобразование строки в число Val(), аргумент должен содержать допустимые для представления числа символы; если нецифровой знак встречается первым в строке, то результат равен нулю; если вместо правильного представления числа указан текст, то возникает прерывание.
Функция Str() представляет числовой аргумент как символьную строку.
Rem Программа_2.3 – сортировка слов методом "пузырька"
Sub Main()
Dim I As Integer, OSTANOV As Integer
Dim T(5) As String, X As String
For I = 1 To 5
T(I) = InputBox ("Введите " & Str(I) & "-е слово ")
Next I
M: OSTANOV = 1
For I = 1 To 4
If T(I) > T(I + 1) Then
X = T(i + 1): T(i + 1) = T(i): T(i) = X
OSTANOV = 0
End If
Next I
If OSTANOV = 0 Then GoTo M
MsgBox “Результат сортировки 5-ти слов: ” & T(1) & “ “ & T(2) & “ ” & T(3) & “ “ & T(4) & _
“ “ & T(5)
End Sub