Информатика для менеджеров

41

Close #1

End Sub

Запись неформатированных данных в файл с последовательным доступом: оператор Write #

Write #НомерФайла, [СписокВывода]

НомерФайла — обязательный параметр.

СписокВывода — необязательный параметр, который может содержать один или несколько разделяемых запятыми числовых или строковых выражений.

Чтение данных из открытого последовательного файла: опера-

тор Input #

Input #НомерФайла, СписокПеременных

НомерФайла — обязательный параметр.

СписокПеременных — разделяемый запятыми список переменных, которым следует присвоить значения, считываемые из файла. Элементы данных должны располагаться в файле в том же порядке, что и переменные в СпискеПеременных. Данные в файл должны быть записаны с помощью оператора Write.

При достижении конца файла во время считывания элемента данных ввод прекращается и возникает ошибка. В этом случае в программе использую функцию Eof, которая позволяет определить признак конца файла и обработать его.

Private Sub MyInput()

Dim MyString, MyNumber

Open "TESTFILE1" For Input As #1

Do While Not EOF(1)

Input #1, MyString, MyNumber

Debug.Print MyString, MyNumber '

Loop

Close #1

End Sub

42

Если требуется осуществить построчное чтения данных из открытого последовательного файла, то используется оператор Line Input #. Его синтаксис следующий:

Line Input #НомерФайла, ИмяПеременной

НомерФайла — обязательный параметр.

ИмяПеременной — обязательный параметр. Допустимое имя переменной типа Variant или String. Данные в файл предварительно записываются с помощью оператора Print.

Чтение данных из открытого файла: оператор Get

Get [#]НомерФайла, [НомерЗаписи], ИмяПеременной

НомерФайла — обязательный параметр.

НомерЗаписи — необязательный параметр (для файлов в режиме

Random).

ИмяПеременной — обязательный параметр. Допустимое имя переменной, в которую следует помещать считываемые данные.

Первой записи в файле соответствует номер 1, второй – 2 и т.д. Если параметр НомерЗаписи опущен, читается запись, на которую был установлен указатель после выполнения последнего оператора Get или Put. Перевести указатель на нужную запись можно с помощью оператора Seek. Наличие запятых разделителей является обязательным, например:

Get #4,,FileBuff

Рассмотрим пример чтения данных из файла, который содержит не менее пяти элементов типа запись.

Type Record

ID As Integer Name As String*20

End Type

Private Sub RndFile()

Dim MyRecord As Record, Position

Open "TestFile3" For Random As #1 Len = Len(MyRecord) Position = 3

Get #1, Position, MyRecord ' Читает третью запись в файле Close #1

End Sub

Запись содержимого переменной в файл: оператор Put

43

Put [#]НомерФайла, [НомерЗаписи], ИмяПеременной

НомерФайла — обязательный параметр.

НомерЗаписи — необязательный параметр (для файлов в режиме Random – номер записи, для файлов Binary – номер байта, с которого следует читать данные).

ИмяПеременной — обязательный параметр. Допустимое имя переменной, содержащей данные, которые следует записать в файл.

Первой записи в файле соответствует номер 1, второй – 2 и т.д. Если параметр НомерЗаписи опущен, записывается запись, на которую был установлен указатель после выполнения последнего оператора Get или Put. Перевести указатель на нужную запись можно с помощью оператора Seek. Наличие запятых разделителей является обязательным, например:

Put #4,,FileBuff

Приведем пример записи в файл.

Type Record

ID As Integer Name As String*20

End Type

Private Sub WriteRndFile()

Dim MyRecord As Record, RecordNumber

Open "TestFile3" For Random As #1 Len = Len(MyRecord) For RecordNumber =1 To 5

MyRecord.ID = RecordNumber MyRecord.Name ="My Name" & RecordNumber Put #1, RecordNumber, MyRecord

Next RecordNumber Close #1

End Sub

Задания

Вариант 1

1. Написать процедуру, которая в одномерном массиве определяет минимальный и максимальный элементы и находит их среднее арифметическое. Размерность массива вводите с помощью оператора InputBox. Значения элементов массива определить датчиком случайных чисел. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массива выполнить в файл.

45

1.Дан массив А(N). В массиве найти сумму элементов после первого отрицательного и сумму элементов до него. Размерность массива вводите с помощью оператора InputBox. Значения элементов массива определить датчиком случайных чисел. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массива выполнить в файл.

2.Имеется K заявлений на получение жилплощади, в каждом указан срок подачи заявлений, площадь занимаемой квартиры и количество членов семьи. Ввести данные с клавиатуры и записать в файл типа

Random.

Вариант 6

1.Даны три массива А(N), В(M), С(L). Найти максимальный элемент в каждом массиве и максимальный среди них. Размерность массивов вводите с помощью оператора InputBox. Значения элементов массивов определить датчиком случайных чисел. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов выполнить в файл.

2.Дан список сотрудников лаборатории, должность и возраст каждого сотрудника. Ввести данные с клавиатуры и записать в файл типа

Random.

Вариант 7

1. Дан массив a1, a2 , ..., aN . Расположить положительные эле-

менты массива, стоящие на нечетных местах, по возрастанию, остальные оставить на своих местах. Размерность массива вводите с помощью оператора InputBox. Значения элементов массива определить датчиком случайных чисел. Вывод массива выполнить в файл и на экран с помощью оператора вывода MsgBox.

2. Дан список группы с оценками экзаменационной сессии. Ввести данные с клавиатуры и записать в файл типа Random.

Вариант 8

1.Дан массив А(N). Найти максимальный элемент массива и нормировать элементы массива по максимальному. Размерность массива вводите с помощью оператора InputBox. Значения элементов массива определить датчиком случайных чисел. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массива выполнить в файл.

2.Дан список абитуриентов, средний балл аттестата и оценки на вступительных экзаменах у каждого. Ввести данные с клавиатуры и записать в файл типа Random.

Вариант 9

46

1. Дан массив a1, a2 , ..., aN . Расположить ненулевые элементы

массива по убыванию; остальные элементы оставить на своих местах. Размерность массива вводите с помощью оператора InputBox. Значения элементов массива определить датчиком случайных чисел. Вывод массива выполнить в файл и на экран с помощью оператора вывода

MsgBox.

2.Дан список группы и оценки экзаменационной сессии с названием предметов. Ввести данные с клавиатуры и записать в файл типа

Random.

Вариант 10

1.Подсчитать число точек, находящихся внутри круга радиусом R,

сцентром в точке с координатами (1,1). Координаты заданы массивами X(N), Y(N). Размерность массивов вводите с помощью оператора InputBox. Значения элементов массивов определить датчиком случайных чисел. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов выполнить в файл.

2.Сведения о лекарствах содержатся в специальной ведомости: наименование, количество, цена и срок хранения. Ввести данные с клавиатуры и записать в файл типа Random.

47

3 МЕТОДИЧЕСКИЕ УКАЗАНИЯ ДЛЯ ОРГАНИЗАЦИИ САМОСТОЯТЕЛЬНОЙ РАБОТЫ

3.1 Общие положения

Самостоятельная работа предусмотрена учебным планом. Цель самостоя-

тельной работы студента в рамках курса «Информатика для менеджеров» —

закрепление и расширение знаний, полученных во время проведения аудитор-

ных занятий.

Самостоятельная работа студента по дисциплине «Информатика для менеджеров» включает следующие виды деятельности:

1)проработка лекционного материала;

2)подготовка к лабораторным работам;

3)самостоятельное изучение тем (вопросов) теоретической части

курса.

В ходе самостоятельной работы студент, ориентируясь на изложенные рекомендации, планирует свое время и перечень необходимых работ в зависимости от индивидуальных психофизических особенностей. Формат самостоятельной работы студентов может отличаться в зависимости от формы обучения и объема аудиторной работы.

3.2 Проработка лекционного материала и подготовка к лабораторным работам

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

Проработка лекционного материала включает деятельность, связанную с изучением рекомендуемых преподавателем источников, в которых отражены основные моменты, затрагиваемые в ходе лекций. Кроме того, важное место отведено работе с собственноручно составленным конспектом лекций. При конспектировании во время лекции помните, что не следует записывать все, что говорит и/или демонстрирует лектор: старайтесь выявить главное и записать только это. Цель конспекта – формирование целостного логически выстроенного взгляда на круг во-

48

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

Во внеаудиторное время проработка лекционного материала может быть выстроена в двух основных форматах:

а) отработка прослушанной лекции (прочтение конспекта и рекомендованных преподавателем источников с сопоставлением записей) и восполнение пробелов, если они имелись (например, если студент не понял чего-то, не успел записать);

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

В ходе проработки лекционного материала обращайте внимание на контрольные вопросы, которые, как правило, имеются в конце каждой темы учебника (учебного пособия). Отвечая на них, можно сделать вывод о степени понимания материала. Если ответы на какие-то вопросы вызвали затруднения, то следует предпринять еще одну попытку изучения отдельных вопросов.

При подготовке к лабораторным занятиям необходимо заранее изучить методические рекомендации по его проведению, обратить внимание на цель, формат и содержание занятия. Если какие-то моменты вызвали дополнительные вопросы, целесообразно обратиться к содержанию лекционного материала, рекомендациям преподавателя по изучению теоретической части курса (рекомендуемым источникам) или за личной консультацией. В ходе подготовки к лабораторным работам может потребоваться обращение к различным источникам. Проявляйте инициативу и самостоятельность в данном вопросе. При этом следует пользоваться только авторитетными изданиями, как печатными, так и электронными.

3.3Самостоятельное изучение тем теоретической части курса

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

Взависимости от особенностей усвоения учебного материала студентами и объема аудиторной работы некоторые из вопросов, рассматриваемые в ходе проведения лекций и лабораторных работ, могут быть также вынесены в формат самостоятельного изучения.

49

Студент самостоятельно изучает дополнительные вопросы, связанные с построением и анализом моделей множественной регрессии и эконометрических моделей по временным рядам. Для достижения этой цели сформулированы следующие задания:

Создание и использование классов.

Создание и использование документов ActiveX.

Тема «Создание и использование классов»

Необходимо дать определение класса. Изучить модель классов Excel. Рассмотреть практические вопросы, связанные с созданием собственных классов. Описать процесс создания классов в VBA (Excel).

Тема «Создание и использование документов ActiveX»

Предложенная тема рассматривается в контексте использования панель инструментов "Элементы управления". Элементы, расположенные на панели инструментов Control Toolbox (Элементы управления), называются элементами Active X. Они несколько отличаются от элементов управления, расположенных на панели Forms (Формы). Скорее они ближе к элементам управления Visual Basic, т.к. при добавлении объекта Active X на рабочий лист создается макрос, который сохраняется вместе с этим элементом, а не только запускается при его выборе. При копировании или перемещении такого объекта автоматически будут скопированы или перемещены все процедуры, связанные с ним.

Необходимо рассмотреть несколько вариантов (от 3 и более) внедрения элементов управления на рабочий лист книги. Выполненная работа оформляется в виде реферата

50

4 РЕКОМЕНДУЕМЫЕ ИСТОЧНИКИ

1.Стивенс, Р. Visual Basic. Готовые алгоритмы [Электронный ресурс] / Р. Стивенс. — Электрон. дан. — Москва : ДМК Пресс, 2007. — 384 с. — Режим доступа: https://e.lanbook.com/book/1221. — Загл. с эк-

рана.

2.Журавлев, А.Е. Информатика. Практикум в среде Microsoft Office 2016 [Электронный ресурс] : 2018-07-12 / А.Е. Журавлев. — Электрон. дан. — Санкт-Петербург : Лань, 2018. — 96 с. — Режим дос-

тупа: https://e.lanbook.com/book/107927. — Загл. с экрана.