Dim stroka1 As Boolean, stroka2 As Boolean

Dim stroka1 As String, stroka2 As String

Dim stroka1 As String, stroka2 As String

Часть

Dim a,b,h,v As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

h = Val(Text3.Text)

v = a * b * h

Text4.Text = v

10. Проверьте работу программы на различных входных данных

11. Откройте новый проект, на форме расположите объекты и измените для них свойства:

Объект	Свойство	Значение
Командные кнопки	Caption	Обмен значениями
	Name	Cmd1
	Caption	Обмен шрифтами
	Name	Cmd2
	Caption	Обмен начертанием
	Name	Cmd3
Текстовые окна	Name	Text1
Font	14, Полужирный, Ms Serif
ForeColor	Черный
Text	Это левое поле
Name	Text2
	Font	14, Курсив, Garamond
	ForeColor	Красный
	Text	Это правое поле

12.

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

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

stroka1 = Text1.Text: stroka2 = Text2.Text

Text1.Text = stroka2: Text2.Text = stroka1

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

stroka1 = Text1.FontName: stroka2 = Text2.FontName

Text1.FontName = stroka2: Text2.FontName = stroka1

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

'полужирный

stroka1 = Text1.FontBold: stroka2 = Text2.FontBold

Text1.FontBold = stroka2: Text2.FontBold = stroka1

'курсив

stroka1 = Text1.FontItalic: stroka2 = Text2.FontItalic

Text1.FontItalic = stroka2: Text2.FontItalic = stroka1

16. Проверьте работу программы. Объясните, почему объявленные переменные имеет различный тип в процедурах.

17. Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)

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