2
:
. /.
:
:
ü Windows- , , ;
ü ;
ü ;
ü VBA;
ü .
, , , . VBA : Byte, Boolean (), Integer (), Long ( ), Single ( ), Double ( ), Currency (), Decimal ( ), Date ( ), Object (), String (), Variant (, ), , , .
VBA , .. , . , . Dim, Private, Static Public. ( ). :
Dim N As Integer
() , Variant.
, General Declaration, Option Explicit.
, () , . . :
Dim a As Integer
***************************
* a *
***************************
b= sin(2)
. :
<>=<>
. :
S = (a + b+ c)/3
S .
L = (S>0) OR (P<100)
L .
, . , . . . VBA , .
|
|
|
:
F = (x*x + 2 * y (COS(x))^2)/(y * y + SQR(2 * x * x + 1))?
:
:
k = EXP(x+y)/(2*x+3*y)*SIN(x*x*x)^2
TextBox, . Text .
= TextBox1.Text
, . , . Val.
= Val(TextBox1.Text)
InputBox. InputBox , , Ok Cancel. . Ok String, , . Cancel .
InputBox(Promt [, Title] [, Default] [, Xpos] [,Ypos] [, Helpfile, Context])
Promt , .
Title , .
Default , .
Xpos,Ypos .
Helpfile, Context .
, , . :
Dim N As String, D As Single
N = InputBox( )
D = Val(InputBox( ))
Label, TextBox. Caption Text, ,
Label1.Caption = VBA
Label1.Caption = Str (X)
TextBox1.Text = VBA
TextBox1.Text = Str (X)
. MsgBox , .
MsgBox (Promt [, Buttons] [,Title] [, Helpfile, Context])
Promt , .
Buttons , .
Title .
Helpfile, Context .
:
MsgBox Str(a + b) + ", ",, ""
. .
| , MsgBox | MsgBox | |
| Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) MsgBox Str(a + b) + ", ",, "" End Sub | 
| 
|
, , . , .
.
:
, , %?
|
|
|
1 + /100 , (1+/100)12
. /100 1 + /100. , .
= 1 + /100
. , : * /100. + * /100 *(1 + /100).
*(1 + /100) = 2
( ) :
2 + 2*/100 = 2*(1+/100) = 3
. 12- 12 (1 + /100)12. , (1 + /100)12 1.
, 100%.
:
| Label1 Caption = . TextBox1 . Label2 Caption = . Label1 Caption . CommandButton1 Caption = Ok. |
(Click CommandButton1)
| Private Sub CommandButton1_Click() Dim p, a As Single, s As Single p . a . S . p = Val(TextBox1.Text) a = (1 + p / 100) ^ 12 s = (a - 1) * 100 Label3.Caption = Str(s) End Sub |
, . !
| . | ||
Y.
 ,  ; 
| ||
Y.
 ,  ; 
| ||
Y.
 ,  ; 
| ||
r.
  
| ||
u.
  ; 
| ||
v.
 ;  ; 
| ||
t.
 ;  ; 
| ||
Y.
 ,  ; 
| ||
h.
 ;  ; 
| ||
Y.
 , ; 
| ||
r.
  
| ||
h.
 ;  ;
| ||
t.
 ;  ; 
| ||
u.
  ; 
| ||
.
 ;  ; 
|
| 1 = 500 ; 1 = 3 ; 1 = 16 ; 1 = 44,45 . . . | ||
| h, . . | = 2h; 2a2=4h2 a=hÖ2 | |
| Z = X + I Y. : Z = r(cos j + i sin j). |  
| |
| : y = k1 + b1; y = k2 + b2. ( ) . | 
| |
| , 50% , , 30% , , 20% . . |
:
1. , ( ). .
|
|
|
2. , k , , %. S, .
3. (1 = 2,54). , , . , 21 = 0 53 3,4
4. a , . .
