Sum = Val(TextBox1.Text)
If Sum > 10000 Then
Skidka = Sum * 0.05
TextBox2.Text = Str(Skidka)
TextBox2.Visible = True
Itog = Sum - Skidka
TextBox3.Text = Str(Itog)
Label2.Caption = " "
Label2.Visible = True
Else
Itog = Sum
TextBox3.Text = Str(Itog)
Label2.Visible = True
Label2.Caption = ", "
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label2.Visible = False
TextBox2.Visible = False
End Sub
Private Sub CommandButton3_Click()
MsgBox (" .. ")
End Sub
Private Sub CommandButton4_Click()
End
End Sub
9. , .
10. .
1. ?
2. ?
3. ?
4. VBA ?
5.
IF.THEN..ELSE .. VBA.
6. ?
7. MsgBox.
8. ?
9. Toolbox?
10. ?
/
1. VBA , :
http://www.lessons-tva.info/edu/e-inf2/m2t3_7.html
2. VBA MS Office, : http://www.libray.narod.ru/rapid/vba_programmirovanie_office.htm
3. VBA , :
http://www.proklondike.com/books/vb/vb_Cummings_VBA_Dummies.html
4 VBA, :
http://itteach.ru/vba/programmirovanie-na-vba
15
GIF-
: GIF.
.
GIF (. Graphics Interchange Format ) , . . , .. .
GIF ( LZW, --). GIF 1987 CompuServe . 1989- , .
|
|
- 2 256. 24 1 ( 16 ). . - 0,01 655 . - .
GIF- :
;
;
.
GIF- (Adobe Photoshop, CinePaint, cosmigo Pro Motion, PhotoLine) GIF- (Gif Construction Set(tm) Professional, Animagic Gif, Ulead Gif Animator, WWW Gif Animator, Xara Webster, Gif Movie Gear).
, GIF- : http://gifovina.ru/, http://minimultik.ru/, http://ru.toolson.net/GifAnimation.
GIF- , , . , ( ) , GIF-. , GIF-.
PNG, GIF - .