.
VISAUL BASIC :
Byte . 0 255, 1 .
Boolean . True False, 2 .
Currency . , 8 . ( 15 4 ).
Date . /, 8 .
Double , 8 .
Integer , 2 . 32768 32767 .
Long , 4 . 2147483648 2147483647 .
Single , 4 . 3.402823E 38 1.401298E-45 1.401298E-45 3.402823E 38 .
String . .
String * .
Variant . . 16 , .
Object . , 4 .
.
- , ,
, .
() - , ( )
:
1. .
2. - . . "_"
3. ".".
4. 255.
5. () .
VISAUL BASIC ( ):
1) . Variant. .
2) :
|
|
Dim [ As ]
:
Dim My_name As String
Dim _ As Integer, As Double
Dim
Dim AsString *12
, Option Explicit (General) (Declarations) , (. . 2.1).
VISAUL BASIC .
. 2.1. Option Explicit .
3) :
a) :
Def [ - ]
Def :
- DefInt ( Integer);
- DefLng ( Long);
- DefSng ( Single);
- DefStr ( String), .
:
' (General) (Declaration)
DefInt A - Z
Dim A, B As Byte
Dim , D As Long
, , A Z, Integer. .. B Byte, D Long, A C - Integer.
b) :
( ) , . :
% | & | ! | # | $ | @ | |
Integer | Long | Single | Double | String | Currency |
:
My_name$ - String
# - Double
: , , , .
-,
, :
Const [ As ] =
, () .
:
Const Pi = 3.1415926535
Const mName As String = "Maria"
- , ,
:
Dim ([ To ]) [ As ]
VISAUL BASIC , .. 0 , 1 - .
:
15 (0-14)
Dim CN(14) As Integer
15
Dim CM(1 To 15) As Integer
Option Base . (General) (Declarations):
' (General) (Declarations)
Option Base 1
- ,
VISAUL BASIC (). VISAUL BASIC:
Sub _[()]
VISAUL BASIC
End Sub
VISAUL BASIC ( ) .
|
|
:
Call _[()]
_ []
, .
:
Function _[()][As ]
_=
End Function
:
=_[()]