Str_1=’Проверка___’

Str_2=Str_1

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

3.3. Пример Windows-приложения

Рассмотрим пример построения Windows-приложения (рис. 31).

Рис. 31

В приложении программируются два события: нажатие левой кнопки "Меняются надписи полей" и нажатие правой кнопки "Меняются надписи полей и фон".

Левая кнопка меняет местами содержание окон без изменения цвета фона, правая кнопка меняет местами содержание окон с изменением цвета фона.

Процедура, срабатывающая при нажатии левой кнопки, имеет вид:

Private Sub Command 1_Click() 'программирование левой кнопки

Dim Str_1 As String, Str_2 As String 'описание переменных

'организация обмена

Str_1 = Text1 Text

Str_2 = Text2.Text

Text2.Text = Str_1

Text1.Text = Str_2

End Sub

Процедура, срабатывающая при нажатии правой кнопки, имеет вид:

Private Sub Command2_Click() 'программирование левой кнопки

Dim Str_1, Str_2 As String, Color_F, Color_L As Long Str_1 = Text1 .Text

Str_2 - Text2.Text

Color_F = Text1 .BackColor Text 1.Text = Str_2 Text2.Text = Str_1

Text1 .BackColor = Text2.BackColor Text2.BackColor = Color_F

End Sub

Упражнение 3

•Сделать приложение по рис. 31. Код приложения должен иметь описание использованных переменных.

•Запустить приложение, проверить работу, правильность обмена.

•Дополнить приложение третьей кнопкой, по нажатию на которую выполнялся бы обмен содержаний окон, цвета фона окон и меток "Красный", "Желтый".

•Откомпилировать приложение под именем "Обмен".

•Сохранить файлы проекта в папке "Организация_обмена".

Задания для самостоятельной работы

1. По заданному радиусу R определить длину окружности l, ее диаметр d и площадь круга S.

2.По заданному диаметру d и углу α определить радиус окружности R, длину дуги l и площадь сектора S.

3.По заданным трем сторонам прямоугольного параллелепипеда a, b, c определить площадь его боковой поверхности Sбок, площадь полной поверхности S и объем V.

4.По заданному радиусу R определить диаметр шара d, площадь его поверхности S и объем V.

5.По заданным радиусу основания R и высоте цилиндра Н определить площадь его боковой поверхности Sбок, площадь полной поверхности S и объем V.

6.По заданному радиусу R и высоте шарового сегмента Н определить площадь сегментной поверхности S, объем шарового сегмента V и объем шарового сектора

Vсек.

7.По заданным радиусу основания R, высоте Н и образующей L определить площадь боковой поверхности конуса Sбок, площадь его полной поверхности S и объем V.

8.По заданным радиусам оснований R, r, высоте H и образующей L определить площадь боковой поверхности усеченного конуса Sбок, площадь его полной поверхности S и объем V.

9.По заданным катетам прямоугольного треугольника a, b определить его гипотенузу c, периметр p и площадь S.

10.По заданным сторонам прямоугольника a, b определить квадрат его диагонали d2, периметр p и площадь S.

11.По заданному радиусу R описанной вокруг квадрата окружности определить его сторону а, периметр p и площадь S.

12.По заданному радиусу R описанной вокруг правильного треугольника окружности определить его сторону a, периметр p, площадь S.