来源:http://blog.csdn.net/aspstu/
语句- J" E/ D+ K: E7 D" V- z Call
2 f2 y8 Q. B2 m9 `[call] name [argumentlist]
把控制转移到函数或子程序。当调用函数或子程序时,Call是可写可不写的。但是如果你用了Call,那么argumentlist必须用括号括起来。
7 J1 d/ b K- ~: T B( R8 a. LConst
[Public | Private] Const constantname=expression
/ U8 d" e; v ~$ S用于申明常数。你可以在一行里申明多个常数,此时你必须用逗号把常数赋值语句隔开。
Dim
Dim varname[ ( [subscripts])][, varname [( [subscripts])]...
5 V$ _5 d6 m) K1 R. Z( s5 u. X创建一个新变量并且分配存储空间。
+ f; K6 B# t7 f, kDO . . . LOOP
语法 1:
D2 X0 M9 c0 ~Do [{While | Until } condition ]
[statements]
5 i- V9 |7 @+ I( a- {( n! z. b4 l[Exit Do]
[statements]
LOOP
/ C% K% ~9 h+ C语法 2:
Do
[statements]
[Exit Do]
1 Y: L& z' F+ p9 M[statements]
7 c, b$ |4 b0 D: d! tLOOP [{While | Until } condition ]
& u1 t3 Z* Q. W当条件condition为真时或直到条件condition为真时,两种形式都重复执行语句。
( l( T* E( h) t) J& o5 w; K$ QErase
4 p/ X: W0 y9 V. v: f. aErase array
# }8 J2 C$ K* [) \清理数组,对于固定长度的数组,重新初始化元素;对于动态数组,重置存储空间。
Exit
Exit Do
( d( u# X+ S4 S( f退出一个 DO . . . LOOP 循环。
3 z+ C& f/ ^! QExit For
退出一个 For . . . Next 循环或For Each . . . Next循环。
Exit Function
退出一个 函数。
" H: N* g) a9 D) V4 ~Exit Sub
m9 ^* N& t. i8 ?3 h8 a# [, v: A5 r$ I退出一个子程序。
For . . . Next
For counter = start To End [Step step]
[statements]
[Exit For]
; M9 X7 }9 Q A: Q4 @[statements]
7 K3 O& w7 r; Q- Y& z& a G' lNext
由loop 计数器指定的次数重复执行statements语句群。
For Each . . . Next
9 O, i6 V5 e8 |2 s" }For Each element In group
9 y8 ~3 E$ k, n( V$ ^[statements]
2 v3 Z. m# _" z- L7 }[Exit For]
[statements]
! ?" q7 ^6 `6 Y8 s3 DNext [element]
/ Z, S1 }: ~, g# x对于每一个在数组或集合中的元素,重复执行statements语句群。
: J6 |0 a D/ B E! H" y6 FFunction
, T( k/ n( r0 o, Y0 |) X' S3 l$ z[Public | Private] Function name [(arglist)]
" _7 I& a+ u; E[statements]
5 q p+ m2 l9 m) E[name=expression]
! m' t2 \' _+ o9 ][Exit Function]
[statements]
1 {8 V% L5 }- B7 v I) c[name=expression]
T6 Z3 w4 a5 G, ?+ G. L2 K1 T- tEnd Function
定义一个函数,指明函数名,参数及代码。
! E! @& S& Q0 }# HIf . . . Then . . . Else
语法1:
If condition Then statements [Else elsestatements]
语法2:
# i- b1 k# f/ e% t) n; B# [' mIf condition Then
& g* I7 G1 ?- c& C/ b3 V' dstatements
; _' {4 L. i: I& i[ElseIf condition-n Then
: u/ X6 t3 J/ ]6 Z4 ^0 O; w: X[elseifstatements]] . . .
/ R9 K# \& k) L. O# M/ O$ m* s' ?[Else
' N: m2 V9 M% g7 j! ^6 K9 @4 `9 f[elsestatements]]
) M# U# p3 g; s [! hEnd If
# H/ f, W+ A2 `/ m两种格式都条件执行一系列语句。
On Error
: g/ U0 {& b6 c8 b( E& \On Error Resume Next
: n- t2 ^9 V b( G当一个错误发生时,这条语句就执行紧靠发生错误语句后面的语句,或者执行紧靠调用进程后面的语句。
Option Explicit
Option Explicit
在使用变量之前强制明确定义该变量,可以用Dim,Private,Public或 ReDim语句定义变量。
Private
Private varname[([下标])][, varname[([下标])] . . .
创建私有变量并且分配存储空间。(私有变量只能在定义该变量的脚本中可用)
Public
+ U- C, C) F6 l9 R7 p3 |3 E6 IPublic varname[([下标])][, varname[([下标])] . . .
创建公有变量并且分配存储空间。(公有变量在程序的任何地方均可使用)
4 K9 `7 w* D0 k2 \1 ?Randomize
Randomize [number]
' O7 \6 N% B$ `7 B8 ]5 l# M1 R- ^" W给Rnd函数的随机数发生器一个新种子值。
# u4 ?8 o# B; h& EReDim
: m" n1 v Z( {; i2 B3 ^ReDim [Preserve] varname(subscripts)[, varname(subscripts)] . . .
1 g! S2 w Q; h* ]修改维的下标,大小;或重置动态数组的大小。Preserve 保护已存数组的数据。
Rem
语法1:
9 i3 m: d0 p' R5 K- k pRem comment
' r' t0 K* X% I8 I语法2:
2 Y! U5 j0 j9 ], t# M‘comment
8 U$ X* F) }, s+ r/ q2 q! x) f这两种语句形式都能使注释的句子不被处理。如果Rem和其它语句在同一行上,Rem 语句必须在后且二者之间必须用冒号隔开。
# I5 R* w. b6 q8 V A/ GSelect Case
Select Case testexpression
* ]& r- _7 ]4 L4 q* X[Case expressionlist-n
5 C& A2 W% M2 V; G& }[statements-n]] . . .
" `; M! j3 g& Y8 A[Case Else expressionlist-n
[elsestatements-n]]
% l) p0 g, M( }! m! FEnd Select
如果某一个expressionlist 和testexpression 匹配,则执行和expressionlist对应的语句;如果没有一个expressionlist 和testexpression 相匹配,则执行和Case Else 相对应的语句。
5 T. X, [# W( B9 ~Set
Set obectvar= {objectexpression | Nothing}
赋予一个变量或一个性质对象引用。当赋予的值为Nothing 时,使obectva 和任何以前指明的对象解除关系。
, @. W0 K1 W! T. I, E) _. _Sub
9 ]; m8 V" _, S# e- d4 A7 d0 k2 I[Public | Private] Sub name [(arglist)]
- }9 T* e, x# g4 ][statements]
[Exit Sub]
5 f& \( n" l# w* r& u) l[statements]
End Sub
9 ]( _6 j1 Q- ?定义一个子程序,指明名称,参数及代码。
While . . . Wend
1 \; n" o& f$ f6 X* bWhile condition
! A: ~; ]' ]/ Z, p9 |3 N[statements]
Wend
, k+ W( z' G+ x6 t不停地连续执行语句statements 直到条件condition为True。
9 ]" n' [2 r& z+ `
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |