10.6 Наиболее употребляемые инструкции и функции при работе с файлами
Приведем наиболее часто употребляемые инструкции и функции для работы с файлами.
ChDir – Изменяет текущую папку. Синтаксис:
ChDir путь
ChDrive – Изменяет текущий диск. Синтаксис:
ChDrive диск
Например,ChDrive "D"
CurDir – функция возвращает текущую папку.
FileCopy – копирует файл. Синтаксис:
FileCopy source, destination
Аргументы: source – строковое выражение, указывающее имя копируемого файла; destination – строковое выражение, указывающее имя результирующего файла. Аргумент destination может содержать имя каталога или папки и диска.
FileDateTime – функция возвращает дату и время последнего изменения файла. Синтаксис:
FileDateTime(путь)
Kill – Удаляет существующий файл. Синтаксис:
Kill путь
В аргументе путь допустимо использование символов (*) и (?) для удаления нескольких файлов по маске.
MkDir – Создает новую папку. Синтаксис:
MkDir путь
RmDir – Удаляет существующую папку. Синтаксис:
RmDir путь
11. Примеры решения задач и порядок разработки программ
11.1 Линейный алгоритм
Задание
Даны константы A и B и произвольное x,
вводимое с клавиатуры. Вычислить значение
выражения
и вывести значение y на экран.
1 Нажимаем сочетание клавиш Alt-F11 из любого приложения MS Office.
2 В меню выбрать пункт: Insert -> UserForm.
2.2 Меняем название формы Caption (в окне Properties UserForm1) на «Иванов И.И. Гр. Д-1-2005 Задача 1», что отобразится в заголовке окна.
3 Отображаем на экране панель компонентов Toolbox
4 Помещаем (с помощью мыши) на форму надпись Label с панели Toolbox.
4.1 Меняем название надписи на «Линейный алгоритм».
5 Помещаем (с помощью мыши) на форму кнопку CommandButton1 с панели Toolbox.
5.1 Меняем название кнопки Caption на «Расчет»; увеличиваем размер кнопки.
5.2 Двойным щелчком по кнопке Расчет попадаем в окно редактирования кода программы (в данном случае – подпрограммы-обработчика события нажатия кнопки).
5.3 Между текстом
Private Sub CommandButton1_Click()
End Sub
Дописываем текст
Dim y As Double
Dim x As Double
Const A = 2.5
Const B = 3
x = InputBox("Введите x", "Окно ввода данных")
y = SQR(A * x ^ 2 - B)
Res = MsgBox("y= " & y, , "Результат")
6 Сохраняем программу.
7 Запускаем программу с помощью меню Run (либо клавишей F5, либо соответствующей кнопкой).
8 Если есть ошибки, исправляем (т. е. отлаживаем программу).
9 В отобразившемся окне
нажимаем кнопку Расчет.
10 В InputBox
вводим значение x, например 2.3, и нажимаем кнопку «ОК».
11 В окне MsgBox отображается результат вычисления y.
12 Завершить выполнение программы можно, нажав соответствующую кнопку или в меню Run выбрать пункт Reset.
11.2 Разветвляющийся алгоритм
Задание
Ввести с клавиатуры число, проверить: если оно принадлежит интервалу (-10; 0), вывести его модуль, в противном случае вывести соответствующее сообщение.
1 Присваиваем новой форме название «Иванов И.И. Гр. Д-1-2005 Задача 2».
2 Помещаем кнопку «Ввод числа» (CommandButton1).
3 Помещаем надпись «Разветвляющийся алгоритм» (Label1).
4 Записываем подпрограмму ввода чисел и проверки на принадлежность заданному интервалу:
Private Sub CommandButton1_Click()
Dim x As Double
x = InputBox("Введите x", "Окно ввода данных")
If x > -10 And x < 0 Then
Res = MsgBox("x принадлежит интервалу -10,0", , "Результат")
Res = MsgBox("модуль x =" & Abs(x), , "Результат")
Else
Res = MsgBox("x не принадлежит интервалу -10,0", , "Результат")
End If
End Sub
5 Запускаем программу
6 Вводим число, удовлетворяющее условию.
7 Получаем результаты:
8 Вводим число, не принадлежащее интервалу:
