: : g=(1+e) ^(3s/4)
.
s,g- 4
:
Private Sub Form_ Click ()
Dim s As Single, g As Single
Cls ( )
Print Spc (10); S & g
S=-1,2
Do
G=(1+Exp(3*s))^(1/4)
Print Spc(15); Format(s 0.00); Spc(10);Format(g 0.000)
S=s+0.2
Loop While s<=-1.2
End Sub
Dim a As Single, a0 As Single, ak As Single, da As Single
Dim b As Single, b0 As Single, bk As Single, db As Single, y As Single
ao = InputBox(. .)
ak = InputBo(. .)
da = InputBox()
Cls
a=a0
Do
Print spc(10); =&a
b=b0
Do
Y=a*sin(b)
Print spc(15); b=& b Format(b, 0.00)& y= &Format(y, 0.00)
B=b+db
Loop While b<=bk
A=a+da
Loop While a<=ak
12. .
Visual Basic , : , , .
.
Visual Basic , Windows: Files, Edit, View, Windows Help. , : Project, Format, Debug.
.
, : Label() , CommandButton( ) , TextBox( ) , Timer() , .
.
.
- , .
Properties.
.
- . , , .
.
, (customize) . (controls), (graphics) (pictures) , . .
.
.
.
.
13. .
- , ( Label, Textbox, Command button).
Properties.
, ..
, , Procedure.