Введение



МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

ОДЕСЬКИЙ НАЦІОНАЛЬНИЙ

ПОЛІТЕХНІЧНИЙ УНІВЕРСИТЕТ

МЕТОДИЧНІ ВКАЗІВКИ

ДО ЛАБОРАТОРНИХ РОБІТ ЗА ТЕМОЮ

«Программування мовою Visul Basic»

ЗА КУРСОМ «ВИКОРИСТАННЯ ЕОМ У ІНЖЕНЕРНІЙ ПРАКТИЦІ»

для студентів спеціальності 6.050501, 6.050503

Одесса: ОНПУ, 2009

МІНЕСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

ОДЕСЬКИЙ НАЦІОНАЛЬНИЙ

ПОЛІТЕХНІЧНИЙ УНІВЕРСИТЕТ

МЕТОДИЧНІ ВКАЗІВКИ

ДО ЛАБОРАТОРНИХ РОБІТ ЗА ТЕМОЮ

«Программування мовою Visul Basic»

ЗА КУРСОМ «ВИКОРИСТАННЯ ЕОМ У ІНЖЕНЕРНІЙ ПРАКТИЦІ»

для студентів спеціальності 6.050501, 6.050503

Затверджено

на засіданні кафедри ІММЗІС

протокол №2 від 29 вересня 2009р.

Одесса: ОНПУ, 2009

Методічні вказівки до лабораторних робіт за темою «Використання ЕОМ у інженерній практиці» за курсом «Інформатика та комп'ютерна техніка» для студентів спеціальності 6.050501, 6.050503 / Укл. О.В. Ніколаєнко - Одеса: ОНПУ, 2009 — 31 с.

Укладач: О.В. Ніколаєнко

ЗМІСТ

Введение 4

Теоретическая часть 4

Последовательность выполнения работы 6

Лабораторная работа № 1 9

Основные положения 9

Задание к лабораторной работе 11

Лабораторная работа №2 12

Основные положения 12

Элементы формы. 14

ToolTipText 14

Задание к лабораторной работе 15

Лабораторная работа № 3 16

Теоретические сведения 16

Задание к лабораторной работе 19

Лабораторная работа № 4 20

Теоретические сведения 20

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

Введение

в «Программирование в среде Visual Basic»

Тема: "Знакомство с интегрированной средой редактора Visual Basic"

Цель: ознакомиться со структурой окон редактора, командами, панелью инструментов, приобрести навыки работы в среде - создания форм и элементов управления, модулей и процедур.

Теоретическая часть

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

Запуск Visual Basic: Пуск → Программы → Visual Studio → Visual Basic6.0

На экране появляется диалоговое окно New Project (Новый проект), используя которое можно выбрать шаблон для нового проекта, запустить мастера создания проекта или открыть ранее созданный проект Existing (Существующий) или Recent (Недавно созданный) — содержит список проектов, открывавшихся недавно.

[pic]

Рис. 1.1. Окно New Project для выбора типа создаваемого проекта

Создание любого приложения в Visual Basic начинается с создания проекта. Проектом является совокупность файлов, входящих в приложение и хранящих информацию о его компонентах.

После выбора типа проекта переходим непосредственно в инструментальную среду проектирования Visual Basic 6.

Окно среды состоит из нескольких окон (добавить их можно с помощью команды View (Вид) или соответствующих кнопок Панели инструментов).

Главное меню окна содержит следующие основные команды: File (Файл), Edit (Правка), View (Вид), Project (Проект), Format (Формат), Debug (Отладка), Run (Запуск), Query (Запрос), Diagram (Диаграмма), Tools (Сервис), Add-Ins (Надстройки), Window (Окно), Help (Справка).

[pic]

[pic]

Рис. 1.2. Главное меню и Панель инструментов Visual Basic 6

Стандартная Панель инструментов расположена под главным меню. Если эта панель отсутствует в главном окне программы, для ее отображения в меню View (Вид) ⋄Toolbars (Панели инструментов) ⋄Standard (Стандартная). На стандартной панели инструментов расположены кнопки для вызова наиболее часто употребляемых команд меню.

[pic]

Рис. 1.3. Окно среды Visual Basic 6

– Панель элементов управления (ToolBox) [pic].

– Окно Проекта (Project Explorer) [pic].

– Окно Свойств (Properties Window) [pic].

– Окно макета Формы (Form Layout) для просмотра общего вида .

– Окно Отладки (Проверки) (Immediate Window) [pic].

– Окно Формы (Object) [pic].

– Окно Программы (Редактора кода) (Code) [pic] .

Окно Проекта содержит перечень файлов, входящих в проект. Элементы проекта Форма и Модуль могут вызываться из окна Проекта путем двойного щелчка мыши.

Для каждого выделенного элемента управления существует свое окно Свойств. В окне Свойств можно изменять свойства объектов: тип и размер шрифта, названия и т.д.

Окно Форм является основным рабочим окном, в котором выполняется визуальное проектирование проекта. Вызвать это окно можно View (Вид) ⋄ Object (Объект).

С помощью панели Элементов управления [pic] на форму перетаскиваются необходимые элементы (Кнопки, Надписи и.т.д.). Затем устанавливаются свойства элементов и формы, на пример, имя элемента: окно Свойств ⋄ Caption⋄ новое имя. (У элементов с надписями можно изменить свойство Font (Шрифт: стиль, размер,цвет и т.д.)).

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

Управляющие элементы, которые помещают на форму являются объектами. Как любые объекты они обладают свойствами, методами и событиями. При ссылке на свойства/методы элементов имя и имя свойства /метода разделяют точкой.

Окно Программы – окно встроенного редактора с удобными средствами ввода исходного кода программы View (Вид) ⋄Code (Код). Для быстрого открытия окна достаточно дважды щелкнуть левой кнопкой мыши, установив указатель на форме приложения. Окна Программы имеет свою панель инструментов: в левом списке можно выбрать элемент управления, а в правом – тип события, для реагирования на которое планируется написать подпрограмму.

В окне Отладки отображаются результаты выполнения расчетов, для чего используется конструкция Debug.Print.

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

Для создания Нового проекта выбираем вкладка New ⋄ Standard EXE (или можно выбрать один из типов шаблона проекта) ⋄ Открыть или через главное меню File (Файл) ⋄New Project (Новый проект), а открыть уже существующий - File (Файл) ⋄ Open Project (Открыть проект) или одноименной кнопки на стандартной Панели инструментов.

В результате открывается окно Project Form1, содержащее новую форму, с которой можно начинать работать: изменять установленные по умолчанию свойства, помещать в нее элементы управления, используя для этого панель элементов управления, являющуюся основным рабочим инструментом при разработке форм приложения.

Запуск формы осуществляется командой Run (Запуск) либо кнопками на панели инструментов 4.

Каждый объект проекта или весь можно сохранять, удалять и добавлять. Для этого в окне Проекта выделить объект

Сохранить File ⋄ Save. При этом образуются несколько файлов проекта формы Form1.frm и кода проекта Project1.vbp.

Удалить выделенный компонент Project (ПК) ⋄Remove.

Добавить - Project (ПК) ⋄ Add ….

Последовательность выполнения работы

Запустите редактор Visual Basic 6.

Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.

Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.

Создайте проект для расчета арифметического выражения y = sinx2+cos2x для x=2 .

В появившемся окне Формы добавте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью [pic]) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).

Измените названия элементов. Окно Свойств ⋄ Caption⋄ новое имя

|Элемент |Свойство |Значение |

|Form1 |Caption |Решение уравнения |

|Label1 |Caption |X |

|Label2 |Caption |Y |

|Text1 |Text |Пусто |

|Text2 |Text |Пусто |

|Command1 |Caption |Вычислить |

|Command2 |Caption |Выход |

Назначте кнопкам процедуры-события. Кнопке Вычислить процедуру-событие запуска программы расчета, для этого дважды щелкнуть на элементе и ввести текст программы

Private Sub Command1_Click()

x% = Text1.Text

y! = Sin(x% ^ 2)+Cos(x%) ^ 2

Text2.Text = y! ' Можно и так Label1.Caption = y

End Sub

Кнопке Выход - Оканчание работы с формой.

Private Sub Command2_Click()

End

End Sub

Запустите форму на выполнение. Запуск (Run) ⋄[pic] (П.И.)

[pic]

Сохраните проект. Предварительно создайте папку с названием группы, в ней папку с вашей фамилией , а в ней файл с именем Lab1-1.

Измените код для кнопки Вычислить следующим образом:

Private Sub Command1_Click()

Dim x As Integer, y As Single :Rem Описание типов данных

x = Text1.Text

y = Sin(x ^ 2) + Cos(x) ^ 2

Text2.Text = y

Debug.Print y ' Вывод в окно Отладки

End Sub

Запустите на выполнение, дополнительно вывод результата появляется в окне Отладки.

Измените код для кнопки Вычислить следующим образом, чтобы данные вводились и выводились в диалоговых окнах:

Private Sub Command1_Click()

Dim x As Integer, y As Single

x=Val(InputBox("Введите значение x", "Окно ввода данных"))

x = Text1.Text

y = Sin(x ^ 2)+Cos(x) ^ 2

Text2.Text = y

Debug.Print y

MsgBox "Проверка", vbInformation, "Окно сообщения"

MsgBox "x=" & x & Chr(13) & "y=" & y, , "Окно вывода"

End Sub

Запустить на выполнение.

[pic] [pic]

Сохраните проект. Завершите работу.

Лабораторная работа № 1

Тема "Программы линейной структуры".

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

Изучить:

Типы данных и их объявление (операторы Dim, Option Explicit) ,

арифметические действия в языке,

математические функции языка,

функции ввода и вывода данных (InputBox, MsgBox),

конструкцию вывода (Debug.Print),

функции преобразования: кода символа в символ Chr(код), цифровых строк в числа Val(), числа в строку Str().

Элементы формы (Надпись (Label), Поле (TextBox), Кнопка (CommandButton));

свойства элементов формы (Name, Caption, Text);

метод Show; событие Click.

Основные положения

Правила написания программ. В каждой строке располагается один или несколько, разделенных : операторов.

Для переноса продолжения строки на другую ставится пробел и знак подчеркивания.

В вещественных числах целыая часть от дробной разделяется точкой.

Комментарии - не выполняемые редактором тексты, строка комментария начинается с ' текст или Rem текст.

В VB все данные относятся к определенному типу, основные из них

|Тип данных |Размер |Описание |Символы описания |

| |(байт) | |типов |

|Integer |2 |Целые числа |% |

|Long |4 |Длинные целые числа |& |

|Single |4 |Вещественные одинарной точности |! |

|Double |8 |Вещественные двойной точности |# |

|String |10 байт + длина строки |Строки символов переменной длины |$ |

|String * |1байт/символ |Строки символов постоянной длины |$ |

|Boolean |2 |Логмческие (булевые ) | |

|Currency |8 |Числа в денежном формате |@ |

|Date |8 |Знгачения даты и времени | |

|Byte |1 |Целые числа (0-255) | |

|Object |4 |Объекты (ссылки на объекты) | |

|Variant |16 |Тип определяется содержимым | |

Описание типов данных. Для описания типов переменных используется оператор

Dim имя As тип [, имя As тип], . . .

где имя – имя переменной, набор символов не более 255 символов, должны начинаться с буквы, не может содержать пробел, . ! @ & $ #; не допускается использование повторяющихся имен на одном уровне области определения,

тип - тип переменной (Integer, Long, Currency, Single, Double, Date, String, String*, Object, Variant). По умолчанию переменная получает тип Variant.

Оператор требования обязательного описания переменных, устанавливается в начале процедуры

Option Explicit

Данные могут изменяться в ходе программы (переменные) и не изменяться (константы). Строковые константы беруться в кавычки. По умолчанию численная переменная равна 0, строковая – пустая строка.

Операции VB

|Арифметические операции |Операции сравнения |Логические операции |

|^ |Возведение в степень |= |Равно |Not |Логическое отрицание |

|* / |Умножение, деление | |Не равно |And |Логическое «И» |

|\ |Целочисленное деление |< |Меньше |Or |Логическое «ИЛИ» |

|Mod |Деление по модулю |> |Больше |Eqv |Эквивалентность |

|+ - |Сложение, вычитание |= |Больше или равно | |

|& или + |Объединение строк |

Функции преобразования

|Val(строка) |преобразует строку цифровых символов (до первого нецифрового символа) в число |

|Str(число) |преобразует число в строку |

|Chr(код символа) |преобразует код символа в символ |

Арифметические функции

|Математическое описание |Программное описание |

|cosx, sinx, tgx, arctgx, |Cos(x), Sin(x), Tan(x), Atn(x) |

|ex, lnx, √x |Exp(x), Log(x), Sqr(x) |

|Вычисление по модулю |x| |Abs(x) |

|Генерация слачайных чисел |Randomize, Rnd |

|от 0 до 1 | |

|Определение знака |Sgn(x) |

|Выделение целой части |Fix(x), Int(x) |

Оператор присваивания. Оператор вычисляет выражение и присваивает его переменной

Имя переменной = выражение

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

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

InputBox(сообщение[, заголовок окна])

MsgBox(сообщение[, значки и кнопки][, заголовок окна]),

где сообщение - строковое выражение, отображаемое в диалоговом окне, может содержать нескольких физических строк, для разделения которых допускается использование символа возврата каретки (Chr(13)), символа перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10));

заголовок окна- строковое выражение, отображаемое в строке заголовка диалогового окна, если этот аргумент опущен, в строку заголовка помещается имя приложения;

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

Организации вывода данных в окно Отладки

Debug.Print [{Spc(n) | Tab(n)} выражение]

где Print – метод;

Spc(n) - указывает количество пробелов n, вставляемых в выводимый текст, Tab(n)- помещает курсор в экранный столбец с номером n;

выражение - переменные, константы числовые или строковые, функции, разделяемые запятыми, точками с запятыми или пробел&пробел. Если этот аргумент опущен, выводится пустая строка.

Элементы управления:

|Элемент |Название и назначение |

|Label |Надпись. Надпись на элементе. |

|TextBox |Поле ввода. Служит для ввода текста пользователем. |

|CommandBox |Кнопка. Для выполнения действий: вычислений, запуск форм |

Некоторые свойства и методы элементов управления:

|Элемент |Свойство |Описание |Значение |

|Form1 |Name |Имя элемента |Form1 |

| |Caption |Надпись на элементе |Лабораторная работа 1 |

|Label1 |Name | |Label1 |

| |Caption | |Решить y=sinx2+cos2x |

|Label2 |Name | |Label2 |

| |Caption | |Ввести X= |

|Label3 |Name | |Label3 |

| |Caption | |Вывести Y= |

|TextBox1 |Name | |Text1 |

| |Text |Введенный текст |Пусто |

|TextBox2 |Name | |Text1 |

| |Text | |Пусто |

|CommandButton1 |Name | |Command1 |

| |Caption | |Вычислить |

|CommandButton2 |Name | |Command2 |

| |Caption | |Выход |

|Метод |Show |Отображает форму на экране |Form1.Show |

Работа строится на основе реакции объекта на какое-либо событие. Любому событию может быть назначена процедура обработки этого события. Источником события чаще всего является пользователь, который вводит данные с клавиатуры, нажимает на кнопки мыши. Автоматическое создание процедуры-обработки события: выбрать объект (на пример, Кнопка) ⋄ дважды щелкнуть по объекту появиться заготовка процедуры.

|Событие |Click |Нажатие на кнопку мыши либо на элементе либо при |Процедура-событие |

| | |выборезначения для элемента |Sub Command1_Click |

| | | |End sub |

Задание к лабораторной работе

Создать программу вычисления арифметического выражения согласно варианта в виде формы.

Примеры программы см. в лабораторной работе №1.

В программе необходимо: объявить типы данных (согласно варианту), для ввода и вывода переменных использовать функции InputBox, MsgBox, конструкцию Debug.Print.

Лабораторная работа №2

Тема"Программа разветвляющейся структуры".

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

Изучить:

Операторы:

- If…,

- If…End If,

- Select Case…End Select.

Элементы управления: Переключатель (OptionButton); Рисунок (Image).

Метод: SetFocus.

Процедуры-события: сброс данных; работа переключателя.

(Новые свойства приведены ниже в таблице, выделены жирным шрифтом).

Основные положения

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

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

Линейный или простой

If условие Then операторы [Else операторы ]

Условный блочный

If условие1 Then

блок операторов1

[ElseIf условие2 Then

блок операторов2

. . . ]

[Else

блок операторовn]

End If

где условие - одно или несколько выражений, принимающее значения True (Истина) или False (Ложь), в условие используют операции сравнения (< > =) и логические операции (And, Or);

операторы - один или несколько операторов, разделяемых двоеточиями, выполняются, если условие имеет значение True.

Оператор выбора Select Case - выполняет одну из нескольких групп операторов в зависимости от значения выражения выбора

Select Case выражение выбора

Case список проверок1

блок операторов1

[Case список проверок2

блок операторов2

. . . ]

[Case Else

блок операторов]

End Select

где выражение выбора - любое числовое или строковое выражение;

список проверок - cписок с разделителями, состоящий из одной или нескольких форм следующего вида:

- выражение1, выражение2, …

- выражение1 To выражение2,

- Is операторСравнения выражение,

ключевое слово To задает диапазон значений. Ключевое слово Is с операторами сравнения задает диапазон значений. В каждом предложении Case допускается использование нескольких выражений или диапазонов;

блок операторов - один или несколько операторов.

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

Format(выражение, формат)

где выражение – переменная, выражение;

формат - символы, определяющие формат.

Форматы:

0 Выводит цифру или нуль.

# Выводит цифру или не выводит ничего.

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

E- E+ e- e+ Экспоненциальный формат. Если строка формата содержит хотя бы один прототип цифры (0 или #) справа от символов "E-", "E+", "e-" или "e+", то число выводится в экспоненциальном формате, а между числом и показателем степени помещаются символы "E" или "e". Число цифр в показателе степени определяется числом символов вывода цифры справа от символа экспоненциального формата.

- + $ ( ) Вывод указанного символа.

Пример: Заданы коэффициенты а и в, вычислить функцию y, если

[pic]

|Public Sub lab2() |Public Sub lab2() |

|Dim x As Single |Dim x As Single: Dim y As Single |

|Dim y As Single |Const a As Integer = 3, b As Integer = 2 |

|Const a As Integer = 3, b As Integer = 2 |x = Val(InputBox("x=")) |

|x = Val(InputBox("x=")) |Select Case x |

|If x < -1 Then |Case Is < -1 |

|y = abs(x) |y = Abs(x) |

|MsgBox "|x|=" & y |MsgBox "|x|=" & y |

|ElseIf -1 y Then min = y

If max < y Then max = y

'Вывод значений X и Y на форму

If Chk1.Value = 1 Then

Txt4.Text = Txt4.Text & Format(x, " 0.0") & " " & Format(y, " 0.00") & newline

End If

'изменение Х

x = x + Val(Txt3.Text)

Loop

'вывод мин и мах в окно сообщения

If Chk2.Value = 1 Then

MsgBox "min=" & Format(min, "0.00") & newline & _

"max=" & Format(max, "#.##"), vbOKCancel + vbInformation, "Сообщение"

End If

End Sub

[pic] [pic]

Задание к лабораторной работе

Модифицировать программу лабораторной работы №2 таким образом, чтобы вычислялось многократно значение функции при изменении аргумента в указанном диапазоне и с заданным шагом (см. таблицу вариантов).

Реализовать циклическую структуру с помощью:

- оператора Do... - для нечетных вариантов;

- оператора For... - для четные вариантов.

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

Лабораторная работа № 4

Тема "Одномерный массив"

Цель: приобретение навыков создания программ обработки одномерных массивов.

Теоретические сведения

Массив – это последовательный, упорядоченный набор однотипных элементов с общим именем. Каждый элемент массива имеет индекс – уникальный номер, который заключается в скобки. Массивы в зависимости от количества индексов, могут быть одномерные и многомерные. Как и другие переменные, массивы обязательно объявляются в начале программы с помощью оператора Dim, с указыванием размерности массива. Массивы могут быть динамические и статические, с фиксированной размерностью – статические,- динамические – размерность которых определяется во время выполнения программы.

Описание массивов

Dim имя (индекс1[,индекс2]) [As тип], …

где имя - имя массива, удовлетворяющее стандартным правилам именования переменных;

индекс1, индекс2 - размерности переменной массива; допускается описание до 60 размерностей; индексы записывается следующим образом:

[нижний1 To] верхний1 [,[нижний2 To] верхний2] ,

если нижний индекс не задан явно, нижняя граница массива определяется оператором Option Base, если отсутствует Option Base, нижняя граница массива равняется нулю;

тип - тип данных массива (Integer, Long, Single, Double, String и т.д.).

Для описания динамических массивов инструкцию Dim записывают с пустыми скобками. После ввода или расчета размерности массива, массив переопределяется оператором ReDim

ReDim имя (индекс1[,индекс2])

Оператор Option Base применяется для задания нижней границы индексов массива

Option Base {0 | 1} По умолчанию используется значение 0.

Оператор Option Base располагается в модуле перед процедурой и должна предшествовать описаниям массивов, включающих размерности.

Оператор цикла For Each...Next повторяет выполнение блока операторов для каждого элемента массива или семейства.

For Each элемент In группа

Блок операторов

[Exit For]

Next [элемент]

где элемент - переменная, используемая для выполнения итераций по элементам семейства или массива, для массива она может быть только переменной типа Variant;

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

блок операторов - один или несколько операторов, которые выполняются над каждым элементом группы.

При работе с массивами данных возникает необходимость использования вложенных циклов (один цикл For...Next или Do…Loop или For...Each...Next располагается внутри другого):

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

...

Next K

Next J

Next I

Однако, в случае For...Next счетчик каждого цикла должен иметь уникальное имя, For...Each...Next - каждый элемент цикла должен быть уникальным.

Пример:

Задан одномерный числовой массив Х(n), определить произведение всех чисел массива, минимальное значение, первый отрицательный, его значение и индекс, отсортировать массив по возрастанию.Предусмотреть ввод и вывод элементов массива и результатов расчета.

Option Base 1 ‘задание нижней границі массива =1

Sub lab5()

‘Объвление типов переменных

Dim n AsInteger, st AsIinteger, i As Integer, Min As Single, P As Single, S As Single

Dim mas As String

Dim x() As Single ‘объявление динамического массива Х

newline = Chr(13)

n = Val(InputBox("Введите к-во элементов в массиве", "Задание размерности массива"))

ReDim x(n) ‘Переопределение размерности массива X

'Ввод элементов массива _______________________________________________________

For i = 1 To n

‘из диалогового окна

' генератор случайных чисел

| x(i) = Val(InputBox("Ввод " & i & "-го _ элемента", "Ввод элементов |‘ x(i) = Int(n * Rnd - n / 2) |

|массива")) | |

' вывод элементов массива в окно Отладки

Debug.Print "X("; i; ")= "; x(i)

Next i

'Расчет произведения_________________________________________________________

P = 1 ‘начальное значение произведения P=1, суммы=0

For i = 1 To n

P = P * x(i)

Next i

‘Вывод результата в окно Отладки

Debug.Print “Произведение” + P

' Использование оператора For Each… Next

‘для расчета суммы

‘обязательно оператор Option Base 1,

‘ For Each element In x

‘ s = s + element

‘Next

'Поиск минимального элемента _________________________________________________

Min = x(1) ‘Присвоить первоначальное значение = 1-ому элементу

For i = 1 To n

If Min > x(i) Then Min = x(i)

Next i

‘Поиск первого отрицательного элемента______________________________

For i = 1 To n

If x(i) ................
................

In order to avoid copyright disputes, this page is only a partial summary.

Google Online Preview   Download