来源:http://blog.csdn.net/aspstu/
语句 Call
[call] name [argumentlist]
' @5 S9 N& I$ j7 u# |4 L把控制转移到函数或子程序。当调用函数或子程序时,Call是可写可不写的。但是如果你用了Call,那么argumentlist必须用括号括起来。
4 \1 L4 G& M' r- f+ R9 } i/ E/ pConst
[Public | Private] Const constantname=expression
用于申明常数。你可以在一行里申明多个常数,此时你必须用逗号把常数赋值语句隔开。
Dim
Dim varname[ ( [subscripts])][, varname [( [subscripts])]...
f1 J' ^( D: i9 U创建一个新变量并且分配存储空间。
" @9 `$ x3 B! NDO . . . LOOP
语法 1:
1 W I" Z/ Q5 W3 I; B: ~; r! aDo [{While | Until } condition ]
[statements]
[Exit Do]
9 o- J, S) s/ f" C( r[statements]
LOOP
* ~0 B3 W; x1 V' a1 |语法 2:
6 N" X( n$ t$ X% `; H gDo
[statements]
[Exit Do]
" y- X) |/ O2 ~9 ]5 ][statements]
# ^: {6 m! K' l8 qLOOP [{While | Until } condition ]
当条件condition为真时或直到条件condition为真时,两种形式都重复执行语句。
Erase
3 u* v+ g( o2 A" E0 AErase array
% N+ [- F7 j0 A6 _2 c- ^& @' p) M清理数组,对于固定长度的数组,重新初始化元素;对于动态数组,重置存储空间。
9 ]" D x( o* V' z5 tExit
2 W/ ]4 U0 I2 l% ^Exit Do
退出一个 DO . . . LOOP 循环。
6 b2 E. n% S3 o9 J3 }Exit For
退出一个 For . . . Next 循环或For Each . . . Next循环。
8 G6 }- h2 L8 m9 _; l. M G6 KExit Function
退出一个 函数。
Exit Sub
退出一个子程序。
, L- U+ N7 T. W) j4 T7 Z. p5 u; xFor . . . Next
For counter = start To End [Step step]
[statements]
& {( A2 K0 s: Z/ ^[Exit For]
! m% o* r3 I& T- R# X' d' p[statements]
Next
4 `* O5 Q+ G' H4 n( Z4 C) i由loop 计数器指定的次数重复执行statements语句群。
For Each . . . Next
* f$ \3 Q4 |1 ~. ~" Q5 cFor Each element In group
4 A8 V" ~+ V2 w) p[statements]
6 c3 ^) r+ x% N6 O1 \2 Q2 f[Exit For]
; n" S) [( p1 B[statements]
Next [element]
对于每一个在数组或集合中的元素,重复执行statements语句群。
Function
[Public | Private] Function name [(arglist)]
# M6 X3 S' w0 I( s. | `6 `+ d' `[statements]
* p. g& X( ?! Y. O[name=expression]
[Exit Function]
[statements]
" d/ x& ]1 {. U, P1 Q' a( D[name=expression]
M, h3 K7 G4 G) H4 |9 PEnd Function
5 Z, i+ A3 E h, J* X4 C定义一个函数,指明函数名,参数及代码。
If . . . Then . . . Else
; s8 a+ ~1 m: O |2 h语法1:
* m! `" N% h3 f, r; r+ ^If condition Then statements [Else elsestatements]
+ @' i% u" e, z3 |: \语法2:
, k( Z) k; V0 j0 z" L: ^- B; mIf condition Then
statements
[ElseIf condition-n Then
[elseifstatements]] . . .
[Else
9 K( |9 R' l$ p7 w; C# h[elsestatements]]
; L& E1 K+ b& M( H% Y+ a% VEnd If
4 @* G9 l H' p两种格式都条件执行一系列语句。
On Error
8 u" V' Z: k* y# J/ }' xOn Error Resume Next
; T0 h: E2 v' A! J% F5 v当一个错误发生时,这条语句就执行紧靠发生错误语句后面的语句,或者执行紧靠调用进程后面的语句。
' [5 ^% t) V: r2 R5 Y8 }* jOption Explicit
Option Explicit
, |* M2 ~7 w# s7 s) W7 c: ?8 i- \8 V在使用变量之前强制明确定义该变量,可以用Dim,Private,Public或 ReDim语句定义变量。
Private
8 [ a2 W0 E$ V; X* V3 h r( FPrivate varname[([下标])][, varname[([下标])] . . .
创建私有变量并且分配存储空间。(私有变量只能在定义该变量的脚本中可用)
$ A8 O' ?: k) ]Public
( d. K% s9 Z- j+ H- C- q/ oPublic varname[([下标])][, varname[([下标])] . . .
创建公有变量并且分配存储空间。(公有变量在程序的任何地方均可使用)
Randomize
Randomize [number]
& l" L2 y6 D( _给Rnd函数的随机数发生器一个新种子值。
ReDim
ReDim [Preserve] varname(subscripts)[, varname(subscripts)] . . .
/ U: e" g0 C( `8 D8 N修改维的下标,大小;或重置动态数组的大小。Preserve 保护已存数组的数据。
Rem
语法1:
Rem comment
! X: ]$ s# C- n( t$ }+ m; m语法2:
‘comment
5 S% g8 p! G0 }这两种语句形式都能使注释的句子不被处理。如果Rem和其它语句在同一行上,Rem 语句必须在后且二者之间必须用冒号隔开。
Select Case
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
* d/ z8 J. l9 l2 x. _, p[elsestatements-n]]
End Select
如果某一个expressionlist 和testexpression 匹配,则执行和expressionlist对应的语句;如果没有一个expressionlist 和testexpression 相匹配,则执行和Case Else 相对应的语句。
Set
Set obectvar= {objectexpression | Nothing}
1 z: [3 H0 O) d$ ^5 `赋予一个变量或一个性质对象引用。当赋予的值为Nothing 时,使obectva 和任何以前指明的对象解除关系。
Sub
[Public | Private] Sub name [(arglist)]
6 A. Q% [: f5 V" `( B6 v# ?, l[statements]
[Exit Sub]
' }7 d( w8 X3 e' Z8 W$ @4 o, \[statements]
End Sub
& v( c2 m5 t2 T$ a% P% W$ u+ {; n定义一个子程序,指明名称,参数及代码。
While . . . Wend
! z( | m2 N" B7 N, ^While condition
. |8 U7 ]! ^4 Y b8 W1 L" u[statements]
Wend
不停地连续执行语句statements 直到条件condition为True。
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |