Лабораторно-практическая работа № 12

Next i

Next i

Next i

Cls

Порядок выполнения

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

Объект	Свойство	Значение
Командная кнопка	Name	Cmd1
Caption	Вывести
Рамки	Caption	Параметры оператора цикла
Caption	Введите текст
Caption	Текст наоборот
Текстовые окна	Name	Txt1
	Name	Txt2
	Name	TxtStep
	Name	Text1
	Name	Text2
Командные кнопки	Caption	Вывести
Name	Cmd1
Caption	Перевернуть
	Name	Cmd2

2.

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

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

n1 = Val(Txt1.Text)

n2 = Val(Txt2.Text)

n3 = Val(TxtStep.Text)

For i = n1 To n2 Step n3

Print i

4. Проверьте работу программы для различных значений параметров оператора цикла

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

s = Text1.Text

k = Len(s)

b = ""

For i = k To 1 Step -1

b = b + Mid(s, i, 1)

Text2.Text = b

6. Проверьте работу программы на различных фразах, в том числе на следующих фразах:

А РОЗА УПАЛА НА ЛАПУ АЗОРА АРГЕНТИНА МАНИТ НЕГРА

2 часть

7. Добавьте на форму следующие объекты и измените им свойства

Объект	Свойство	Значение
Командная кнопка	Name	Cmd3
Caption	Пуск
Рамка	Caption	Таблица умножения на
Текстовое окно	Name	TxtNum
Графическое окно	Name	PicTabl

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

n = TxtNum.Text

For i = 1 To 10

PicTabl.Print i; " * "; n; " = "; n * i

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

Тема: Оператор цикла.

Цель: Получить навыки использования оператора цикла по условию

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