Visual Basic

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ 
 
РОСТОВСКИЙ ГОСУДАРСТВЕННЫЙ ЭКОНОМИЧЕСКИЙ 
УНИВЕРСИТЕТ «РИНХ» 
 
 
 
 
 
 
 
Савельева Н.Г., Мирошниченко И.И., Гречкина В.Ю. 
 
 
 
 
 
 
Visual Basic 
 
Практикум 
 
 
 
 
 
 
 
 
 
 
 
 
 
Ростов-на-Дону 
2006 

 
УДК 004.3 (075) 
 
 
 
Р е ц е н з е н т ы: 
к.э.н., доц. Куницина Л.Е., 
доц. Панферова Л.Ф. 
 
 
 
 
 
 
Савельева Н.Г., Мирошниченко И.И., Гречкина В.Ю. Visual 
Basic: Практикум / РГЭУ «РИНХ». – Ростов н/Д., 2006. – 66 с. 
ISBN 5–7972–0963–2 
 
Практикум включает в себя задания для лабораторных работ и рекомендации по их выполнению по дисциплинам «Информатика и программирование», «Основы алгоритмизации и программирование», «Современные 
программные средства» для студентов специальностей  010502 «Прикладная 
информатика», 090103 «Организация и технология защиты информации», 
080116 «Математические методы в экономике» всех форм обучения. Для 
проверки знаний студентов по каждой теме приведены контрольные задания. 
Приведен список рекомендуемой литературы. 
 
 
 
 
Утвержден в качестве практикума редакционно-издательским 
советом университета. 
 
 
 
ISBN 5–7972–0963–2 
 
 
 
© РГЭУ «РИНХ», 2006 
© Савельева Н.Г., 
Мирошниченко И.И., 
Гречкина В.Ю. 

 
Содержание 
 
1. Информатика и программирование.............................................. 4 
1.1. Лабораторная работа №1............................................................ 4 
1.2. Лабораторная работа №2............................................................ 5 
1.3. Лабораторная работа №3............................................................ 7 
1.4. Лабораторная работа №4............................................................ 9 
2. Основы алгоритмизации и программирование................................ 13 
2.1. Лабораторная работа №1.......................................................... 13 
2.2. Лабораторная работа №2.......................................................... 14 
2.3. Лабораторная работа №3.......................................................... 16 
2.4. Лабораторная работа №4.......................................................... 19 
2.5. Лабораторная работа №5.......................................................... 21 
2.6. Лабораторная работа №6.......................................................... 23 
2.7. Лабораторная работа №7.......................................................... 26 
3. Современные программные средства........................................... 36 
3.1. Лабораторная работа №1.......................................................... 36 
3.2. Лабораторная работа №2.......................................................... 37 
3.3. Лабораторная работа №3.......................................................... 38 
3.4. Лабораторная работа №4.......................................................... 40 
3.5. Лабораторная работа №5.......................................................... 46 
3.6. Лабораторная работа №6.......................................................... 50 
3.7. Лабораторная работа №7.......................................................... 57 
3.8  Лабораторная работа №8.......................................................... 60 
3.9. Лабораторная работа №9.......................................................... 63 
Библиографический список...................................................................................... 65 

 
1. Информатика и программирование 
1.1. Лабораторная работа №1 
Задание. С клавиатуры вводится 10 произвольных чисел. Написать программу определения суммы всех вводимых чисел. 
 
Порядок выполнения работы: 
1. Создайте новый проект Visual Basic. 
2. На форму добавьте элементы, перечисленные в табл. 1.1, и 
измените их соответствующие свойства. 
 
Таблица 1.1. Свойства элементов управления 
 
Элемент управления Свойство
Значение 
Name 
Label1 
Метка 
Caption 
Определение суммы 10 чисел, вводимых с клавиатуры 
Name 
cmdRun 
Кнопка 
Caption 
Ввести числа 
Name 
cmdExit 
Кнопка 
Caption 
Выход 
 
В результате у вас должно получиться следующее (рис. 1.1): 
 
 
 
Рис. 1.1. Результат работы программы 
 
3. При двойном щелчке ЛКМ на объекте или форме открывается окно, где происходит обработка событий. Добавьте следующий 
программный код для соответствующих элементов управления: 
 

 
Dim s As Integer 
Dim i As Integer 
Dim y As Integer 
 
Private Sub CmdRun_Click() 
s = 0 
Form1.Cls 
For i = 1 To 10 
    y = Val(InputBox("Введите число", "Определение суммы")) 
    On Error Resume Next 
    Print "y = "; y 
    s = s + y 
Next i 
Print 
Print "S = "; s 
End Sub 
Private Sub CmdExit_Click() 
End 
End Sub 
 
Задания для самостоятельной работы:  
- 
с клавиатуры вводится N чисел, найти их среднее арифметическое; 
- 
с клавиатуры вводятся 3 числа, найти максимальное; 
- 
с клавиатуры вводится 10 чисел, найти количество отрицательных. 
 
1.2. Лабораторная работа №2 
Задание. Вычислить: 
∏
=
+
+
=
5
1
))
2
/(
)1
((
i
i
i
P
. 
 
Порядок выполнения работы: 
1. Создайте новый проект Visual Basic. 
2. На форму добавьте элементы, перечисленные в табл. 1.2, и 
измените их соответствующие свойства. 
 
 
 

 
Таблица 1.2. Свойства элементов управления 
 
Элемент управления 
Свойство
Значение 
Name 
cmdRun 
Кнопка 
Caption 
Ввести числа 
Name 
cmdCls 
Кнопка 
Caption 
Очистка 
Name 
cmdExit 
Кнопка 
Caption 
Выход 
 
В результате у вас должно получиться следующее (рис. 1.2): 
 
 
 
Рис. 1.2. Результат работы программы 
 
3. Добавьте программный код для соответствующих элементов управления: 
 
Dim p As Single 
Dim i As Integer 
 
Private Sub CmdCls_Click() 
Form1.Cls 
End Sub 
Private Sub CmdExit_Click() 
End 
End Sub 
Private Sub CmdRun_Click() 
Form1.Cls 
p = 1 
For i = 1 To 5 
    p = p * ((i + 1) / (i + 2)) 

 
    Print "i = "; i; 
    Print Tab; "p = "; p 
Next i 
End Sub 
 
Задания для самостоятельной работы:  
- 
вычислить : 
∏
=
+
−
=
5
1
1
1
i
i
i
P
; 
- 
вычислить : 
∑
=
+
−
=
10
1
2
)1
(
i
i
i
S
; 
- 
вычислить : 
∑
=
+
=
10
1 2
!
i
i
i
i
S
. 
 
1.3. Лабораторная работа №3 
Задание. Из массива А(20) сформировать 2 массива: 
− первый должен содержать отрицательные элементы с нечетным индексом; 
− второй должен содержать положительные элементы с четным индексом. 
 
Порядок выполнения работы: 
1. Создайте новый проект Visual Basic. 
2. На форму добавьте элементы, перечисленные в табл. 1.3, и 
измените их соответствующие свойства. 
 
Таблица 1.3. Свойства элементов управления 
 
Элемент управления Свойство
Значение 
Name 
cmdRun 
Кнопка 
Caption 
Ввести массив 
Name 
Label1 
Метка 
Caption 
Отрицательные с нечетным индексом 
Name 
Label2 
Метка 
Caption 
Положительные с четным индексом 
Name 
Text1 
Text 
- 
Текстовое поле 
Multiline 
True 
Name 
Text2 
Text 
- 
Текстовое поле 
Multiline 
True