Порядок выполнения. 8. Проверьте работу программы 3 часть

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 13

Loop

Loop

TxtItog.Text = summa

TxtYear.Text = y

8. Проверьте работу программы 3 часть

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

9. Добавьте на форму объекты и измените им свойства:

Объект	Свойство	Значение
Командная кнопка	Name	Cmd3
Caption	Определить
Текстовые окна	Name	TxtGod
Name	TxtPrirost
Name	TxtK
Name	TxtMan0
Список	Name	List2
Метки

10. Приведите свою форму в соответствие с образцом

11. В окне кода процедуры обработки события 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)

12. Проверьте работу программы

Тема: Оператор цикла. Графические методы

Цель: Закрепить навыки использования оператора цикла и графических методов

13. Установите на форме следующие объекты и измените им свойства: 1 часть

Объект	Свойство	Значение
Командная кнопка	Name	Cmd
Caption	Нажми
Графическое окно	Name	PicShah
Height
Width

14. В окне кода процедуры обработки события Click для объекта Cmd набрать:

Дата добавления: 2014-12-25