Доступ к файлам - VB
Формулировка задачи:
Налоговая инспекция поощряет налогоплтельциков, вносящих подоходный налог до истечения февральского контрольного срока, делая им скидку. Создайте файл, в котором содержались бы имена, сведения о сроках уплаты и размере налога для каждого налого плательщика. Пусть ваша программа читает файл и делает скидку в 10% для тех, кто уплатил нолог досрочно, а также выводит на экран имена и размер скидки в рублях.
Очень срочно надо. Буду очень сильно благодарен.
Решение задачи: «Доступ к файлам»
textual
Листинг программы
Dim File As String, CF As String 'объявим пеpеменнyю для имени файла и его cодеpжимого File = "d:\ca.log" 'ycтановим имя файла и пyть Open File For Binary As #1 'откpоем файл для чтения CF = Input(FileLen(File), 1) 'загpyзить в пеpеменyю CF вcе cодеpжимое файла Close #1 'закpыть файл