- •Лабораторный практикум
- •3 Часть
- •Visual Basic. Основы программирования
- •Дмитров 2012
- •Содержание
- •Предисловие
- •Выбор в программе
- •ВетвлениеIf...Then...Else
- •Линейный формат:
- •Блочный формат:
- •Оператор множественного выбораSelectCase
- •Организация циклов
- •Цикл со счетчикомFor...Next(Для ... Следующий)
- •Универсальный циклDo...Loop(Делать ... Цикл)
- •Циклы с предусловием.
- •Циклы с постусловием
- •Программирование графики
- •Лабораторно-практические работы Общие рекомендации по выполнению работ
- •Лабораторно-практическая работа № 1
- •Лабораторно-практическая работа № 2
- •Лабораторно-практическая работа № 3
- •Лабораторно-практическая работа № 4
- •Лабораторно-практическая работа № 5
- •Лабораторно-практическая работа № 6
- •Лабораторно-практическая работа № 7
- •Лабораторно-практическая работа № 8
- •3 Часть
- •Лабораторно-практическая работа № 9
- •1 Часть
- •2 Часть
- •Лабораторно-практическая работа № 10
- •Лабораторно-практическая работа № 11
- •2 Часть
- •Лабораторно-практическая работа № 12
- •Лабораторно-практическая работа № 13
- •Задания для самостоятельного выполнения
2 Часть
Добавьте на форму следующие объекты и измените им свойства
Объект |
Свойство |
Значение |
Командная кнопка |
Name |
Cmd3 |
Caption |
Пуск | |
Рамка |
Caption |
Таблица умножения на |
Текстовое окно |
Name |
TxtNum |
Графическое окно |
Name |
PicTabl |
В окне кода процедуры обработки события Clickдля объектаCmd3набрать
n = TxtNum.Text
For i = 1 To 10
PicTabl.Print i; " * "; n; " = "; n * i
Next i
Проверьте работу программы
Лабораторно-практическая работа № 12
Тема: Оператор цикла.
Цель: Получить навыки использования оператора цикла по условию
Порядок выполнения 1 часть
Постановка задачи: Организовать ввод чисел. Ввод закончить при вводе нуля. Найти среднее арифметическое значение введенных чисел
Установите на форме следующие объекты и измените им свойства:
Объект
Свойство
Значение
Командная кнопка
Name
Cmd1
Caption
Ввод чисел
Список
Name
List1
Текстовые окна
Name
TxtSr
Text
(Отсутствует)
Метка
Caption
Среднее значение
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события Clickдля объектаCmd1набрать
List1.Clear
s = 0 : k = 0
Do
x = Val(InputBox("Введите значение( или ноль для окончания ввода"))
s = s + x : k = k + 1
List1.AddItem x
Loop While x <> 0
txtSr.Text = s / (k - 1)
Проверьте работу программы 2 часть
Постановка задачи:Известна процентная ставка банка. Ввести сумму нач. вклада и число, определяющее во сколько раз Вы хотите увеличить сумму вклада. Определить через сколько лет произойдет увеличение вклада и какое значение он примет
Добавьте на форму следующие объекты и измените для них свойства
Объект
Свойство
Значение
Командная кнопка
Name
Cmd2
Caption
Вычислить
Текстовые окна
Name
TxtProzent
Name
TxtSumma0
Name
TxtN
Name
TxtYear
Name
TxtItog
Метки
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события Clickдля объектаCmd2набрать
proz = Val(TxtProzent.Text) / 100 + 1
s0 = Val(TxtSumma0.Text)
n = Val(TxtN.Text)
summa = s0 : y = 0
Do While summa < s0 * n
y = y + 1
summa = summa * proz
Loop
TxtItog.Text = summa
TxtYear.Text = y
Проверьте работу программы 3 часть
Постановка задачи:Дано год, численность в этом году и ежегодный прирост населения. Ввести число, определяющее во сколько раз увеличиться численность населения. Создать список, содержащий данные о численности для каждого следующего года.
Добавьте на форму объекты и измените им свойства:
-
Объект
Свойство
Значение
Командная кнопка
Name
Cmd3
Caption
Определить
Текстовые окна
Name
TxtGod
Name
TxtPrirost
Name
TxtK
Name
TxtMan0
Список
Name
List2
Метки
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события Clickдля объектаCmd3набрать
x = Val(TxtMan0.Text)
y = Val(TxtGod.Text)
d = Val(TxtPrirost.Text) / 100 + 1
k = Val(TxtK.Text)
summa = x
Do Until summa >= x * k
y = y + 1
summa = summa * d
List2.AddItem Str(y) + " год " + Str(summa)
Loop
Проверьте работу программы