() | , | ||
Boolean Byte Integer Long Single Double Currency Date String Object Variant | 1+L | ≤ 3 ≤ 5 ≤ 10 ≤ 7 ≤ 15 ≤ 19 | True, False - 0, 255 - -32768, 32767 -2147483648, 2147483647 -3.402823.1038, -1.401298.10-45 1.401298.10-45, 3.402823.1038 4 . 01.01.0100, 31.12.9999 - L ; L≤ 65535 , , .. , .. |
, . ( ), PUBLIC, . . , . , , , . , , :
Dim As
Dim Public. :
Pablic Nprof, X0 As Single, Y0 As Single
Dim I As Integer, J As Integer, Date1 As Date, Date2 As Date, As String*32
Nprf=40
, , . . , , . . Nprof Variant , : Variant 16 , 22 1 . Nprf . Variant . . Nprf , Nprof, , , . VBA . ( ) Option Explicit. , VBA .
|
|
255 . :
! # $ % & @
: _ . , . , , : X , M , i , N , j , V , S .. . Mrows 10.3.
, VBA , -:
$ - String, , $= ..;
% - Integer, , i%=1;
& - Long, , CX&=6510200;
! - Single, , x!=107.315;
# - Double, , Pi#=3.14159;
@ - Currency, , SS@=67920.1252
, .
, , . , , :
Dim V(1 to 200) As Single, T(1 to 200) As Single, i As Integer
4. i- :
S=S+(V(i)+ V(i+1))*0.5*(T(i+1)-T(i))
2, . 4.1.
, , V(200), , 0 200. , . , Excel , , Y1,Y2,,YI,,YM, : X1,X2,,XJ,,XN. I- J- aIJ (.10.5).
, YI X1,,XN:
YI=aI1*X1+aI2*X2++aIJ*XJ++aIN*XN
. M, N, YI (I=1,,M) XJ (J=1,N) CY, CX, A(I,J).
: . , . , : , 40. :
Dim CY(1 to 40), CX(1 to 40), A(1 to 40,1 to 40) As Double
|
|
Visual Basic . :
Option Explicit
Dim CY(), CX(), A() As Double
Dim I As Integer, J As Integer, M As Integer, N As Integer
Private Sub CommandButton1_Click()
MNTab ' M, N -
ReDim CY(1 To M)
ReDim CX(1 To N) '
ReDim A(1 To M, 1 To N)
TabCXCY ' CX, CY
TabA ' A
End Sub
Private Sub MNTab()
I = 2: Do Until IsEmpty(Cells(I, 2))
I = I + 1
Loop
M = I - 2 'M -
J = 2: Do While Not IsEmpty(Cells(2, J))
J = J + 1
Loop
N = J - 2 'N -
End Sub
Private Sub TabCXCY()
For J = 1 To N
CX(J) = Cells(1, J + 1).Value '
Next J
For I = 1 To M
CY(I) = Cells(I + 1, 1).Value '
Next I
End Sub
Private Sub TabA()
For I = 1 To M
For J = 1 To N
A(I, J) = Cells(I + 1, J + 1).Value
Next J
Next I
End Sub
CommandButton1_Click, Excel ( . 10.5 , ), : MNTab (M N); TabCXCY CX, CY; TabA Excel A.
CX, CY, A , , , .. . CX CY VARIANT, .. . VARIANT , , , , YI XJ. , , .. , CommandButton1_Click M N MNTab. .
, , . : , , () . , (, , , ..), . ( , , .) . . . , . - .
. , RecBook :
Type RecBook
As String*50
As String*20
As String*16
As Integer
End Type
:
Dim Books(500) As RecBook
i- :
Books(i).=: Books(i).=1999
, VBA. , Visual Basic , <F1>!
|
|
, , . :
Const Pi As Double = 3.14159
Const Nmin As Long = 0
Const Nmax As Long = 999999
, , , , π. Nmax, .
: Excel, . :
2.Cells(2,6).Formula = =Sum(B1:B5)
2.Range("A1:D4").Value = Range("A1:D4").Value
TextBox1.Text = M= & Str(M) & N= & Str(N)
Formula Cells(2,6), , , 2, . , , , VBA Excel . : VBA, , Excel. , , 2. (&) () , Text TextBox1. , M, N , Excel.
10.5. Visual Basic
Visual Basic :
- , ;
- , , ;
- .
. [4,11,13,15].
4 . , , . , , .
10.3. , . 10.3. , , . : F=CX*(-G^2); CX=3, G=1.5, F = -6.75. , Excel CommandButton1 TextBox1, CommandButton1_Click :
Dim I As Integer, F As Single
F = 3 * (-1.5 ^ 2): I = 3 * (-1.5 ^ 2)
TextBox1.Text = "F=" & Format(F, "0.00") & " I=" & Str(I)
, TextBox1 .
10.3
I | F - | I | F | |||
^ | I = 1.5^2 | F = 1.5^2 | 2.25 | |||
- | I = -6.75 | F = -6.75 | -7 | -6.75 | ||
* | I = 1.3*4 | F = 1.3*4 | 5.20 | |||
/ | I = 10/3 | F = 10/3 | 3.33 | |||
\ | I = 10\3 | F = 10\3 | 3.00 | |||
Mod | I = 10 Mod 3 | F = 10 Mod 3 | 1.00 | |||
+ | I = 12 + 7 | F = 11.45+7.55 | 19.00 | |||
- | I = 7-12 | F = 7.55-11.45 | -5 | -3.90 |
|
|
, I F. , , , I .
(&) . F= , F ( ). I= - ( ) I.
, , , . Boolean True False ( 10.4).
10.4
(R Boolean) | (R) | ||
= | R = (10=5) | False | |
> | R = 10>5 | True | |
< | R = 10<5 | False | |
>= | R = a >= b | False | |
<= | R = a <= b | True | |
<> | R = a <> b | True |
, Boolean. . Boolean R True, X,Y , X1,X2 Y1,Y2. , R=False. AND (), R:
R = (X>=X1) AND (X<=X2) AND (Y>=Y1) AND (Y<=Y2)
, (X X1) , , , , R=True. AND (), False.
AND, OR NOT. True, , . NOT , . R :
R = NOT ((X<X1) OR (X>X2) OR (Y<Y1) OR (Y>Y2))
, NOT, (True), , , , , .. . R False NOT.
XOR ( ), EQV () IMP ().
True, - True.
EQV True, - .
IMP FALSE , TRUE, False, , .
, , . . .
IF () : . :
If <> Then <, , - >
(< 1>), , 1 , , :