Adobe Photoshop
Adobe Illustrator
Adobe Flash
Adobe Fireworks
DreamWeaver
CSS HTML
Corel Draw
Image Ready
PHP
SEO
CMS
Microsoft Windows
Microsoft Word
Microsoft Excel
PowerPoint
Microsoft Access
Microsoft Publisher
Linux
Visual basic
JavaScript
Ajax
3ds Max
Maya 3D
C++
Sound Forge
Gimp
SWiSH
bubust : 
: 1910
: 1910
counter
. . counter Integer
, (>=), (<=),
(+).
datatype
, counter . ,
As , .
start
. . counter.
end
. . counter. end
Integer counter.
step
.
. counter.
, step 1.
statements
.
For Next
.
For Each...Next
For Each element [ As datatype ] In group
[ statements ]
[ Exit For ]
[ statements ]
Next [ element ]
Element-
. . element group .
datatype
, element . , As , .
group
. .
statements
. , For Each Next - group.
For Each...Next . element.
With...End With
, , With...End With .
With object
[ statements ]
End With
object
. . .
statements
. , With .
End With
With.
Exit
Exit , .
Exit :
- Exit Select
- Exit Try
- Exit Do
- Exit While
- Exit For
- Exit Sub
- Exit Function
- Exit Property
3.1
, Visual Basic.NET ( . 1).
Like :
"abcdefg" Like "a*a" ' False
"abcdefga" Like "a*a" ' True
"abc" Like "a?a" ' False
"aba" Like "a?a" ' True
"aba" Like "a#a" ' False
"a1a" Like "a#a" ' True
"abcdefga" Like "a[a-z]a" ' False
"aba" Like "a[a-z]a" ' True
"aba" Like "a[!a-z]a" ' False
"aBa" Like "a[!a-z]a" ' True
, . 3 .
, . :
1=1 And 1=2 ' False
1=1 And 1<2 ' True
1<1 Or 1=2 ' False
1=1 Or 1=2 ' True
(1=1 And 1=2) Or 1=3 ' False
(1=1 And 1=2) Or 1<3 ' True
Not 1=1 ' False
1=1 And Not 1=2 ' True
1=1 Xor 1<2 ' False
1=1 Xor 1<2 ' True
, Visual Basic.NET . If...Then...Else , If...Then . (true), . : ElseIf, Else, End If. , ElseIf true. ElseIf . (true). If...Then...Else. True , , . Else ; , (true). Else If...Then...Else. Else. . , . : MIN_TAX = 9.99; SECOND_TAX = 29.99; THIRD_TAX= 49.99. min, first, second max . , . : var prevoz. , , . - , .
If ... Then. , Else
, - .
:
Const MIN_TAX As Single = 9.99
Const SECOND_TAX As Single = 29.99
Const THIRD_TAX As Single = 49.99
Const MIN_PREVOZ_COST As Single = 10.49
Const SECOND_PREVOZ_COST As Single = 21.5
Const THIRD_PREVOZ_COST As Single = 26.33
Const MAX_PREVOZ_COST As Single = 30.48
Dim sngPREVOZCost As Single
If sngTAX <= MIN_TAX Then
sngPREVOZCost = MIN_PREVOZ_COST
ElseIf sngTAX <= SECOND_TAX Then
sngPREVOZCost = SECOND_PREVOZ_COST
ElseIf sngTAX <= THIRD_TAX Then
sngPREVOZCost = THIRD_PREVOZ_COST
Else
sngPREVOZCost = MAX_PREVOZ_COST
End If
If A > 10 Then A = A + 1 : B = B + A : C = C + B
