1. .
, , , , , . .
3 :
1)
2)
3)
2. .
, .
:
1) .
2) .
3) .
4) .
5) .
6) .
7) .
3. .
, , .
1) , , .
2) , .
4. .
1) :
. 3 :
- - .
- - , , .
- , , .
2) :
, .
, .
3) .
5. .
: 1642 . .
1673 4 .
1823 . 8 .
1834 . :
-
-
-
.
|
|
:
- .
-
-
-
-
6. Word.
Word , , , (WYSIWYG - , ).
, , .
7. .
- , , , .
, . ,
Private Sub Command1_ Click()
Dim b As Single, s As Single, h As Single
b=Val(Text1.Text)
s=Val(Text2.Text)
h=(-b+Sqr(b^2+8*9))/2
Text3/Text=Str(h)
End Sub