visual basic高手语法整理篇

《visual basic高手语法整理篇》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1分支结构条件表达式、变量、常数都可以（1）If条件Then语句块EndIf（2）If条件Then语句块1Else语句块2EndIf（3）If条件1Then语句块1ElseIf条件2Then语句块2ElseIf条件NThen语句块NElse语句块N+1EndIf嵌套If语句-------（实际很少用）（4）If条件1ThenIf条件2Then语句块1-1Else语句块1-2EndIf其他语句Else语句块2EndIf作者：xgliyouquan@126.com12-（1）SelectCase变量名或表达式Case表达式1比较具体值是否相等语句块1相等则执行本语句块Case表达式2

2、(1)Case2,4,6,8,10语句块2(2)Case1To10Case表达式N(3)CaseIs>20语句块N(4)Case"ab","ef"CaseElse(5)Case"ab"To"ef"语句块N+1(6)Case2,4,1To10,Is>20,"ab"To"ef"EndSelect要点1，Select语句可以嵌套2，只有当IfElseIf语句中每个表达式都相同时才能用Select语句代替例：Sub多重判断()见VBA57页IfRange(“A1”)<0ThenRange(“B1”)=“小于零”ElseIfRange(“A1”)=0ThenRange(“B1”)=“等于零

3、”ElseIfRange(“A1”)>0ThenRange(“B1”)=“大于零”EndIfEndSubSub多重判断()SelectCaseRange(“A1”)CaseIs<0Range(“B1”)=“小于零”CaseIs=0Range(“B1”)=“等于零”CaseIs>0Range(“B1”)=“大于零”EndSelectEndSub（2）IIF(条件，条件为真的值，条件为假的值）若条件为真，则取第一个值（条件为真的值）否则条件为假，则取第二个值（条件为假的值）作者：xgliyouquan@126.com12-2循环结构（1）For计数变量名=起始值To终止值Step步进

4、值语句块步进为1时可省略Next计数变量名步进值可为正负整数可省略不写（2）For计数变量名1=起始值1To终止值1For计数变量名2=起始值2To终止值2语句块Next计数变量名2其它语句Next计数变量名1要点：1能确定循环终止值时首先确定用ForNext循环2循环内一般不用修改计数变量的值3ExitFor语句只能退出当前循环4第一次进入循环时计数变量会被设定为起始值（1）Do语句块Loop（2）DoWhile条件表达式语句块只要条件表达式成立，就继续执行循环Loop（3）Do语句块LoopWhile条件表达式只要条件表达式成立，就继续执行循环作者：xgliyouquan@1

5、26.com12-（4）Do语句块LoopUntil条件表达式只要条件表达式成立，就退出循环（5）DoUntil条件表达式语句块只要条件表达式成立，就退出循环Loop（1）DoWhile条件表达式语句块只要条件表达式成立，就继续执行循环LoopWhile条件表达式语句块只要条件表达式成立，就继续执行循环Wend（2）GoTo标记功能：可任意前跳后跳标记：语句或空白命名规则与变量相同，汉字串也可以也可用数字（0--2147483647），此时“：“可省略要点：1可以用ExitDo退出Loop循环（If条件表达式ThenExitDo）2For循环自带隐含计数器，其它条件循环必须另加计

6、数器I=I+1(或I=I-1),其它条件循环要在进入循环之前设置计数器初值。实例《实例150》317、377，《VBA》58页（3）ForEach个体变量In指定的集合语句Next个体变量作者：xgliyouquan@126.com12-3子程序结构（1）创建子程序：代码窗口选择"通用"——输入"Sub子程序名"后回车即可。英文汉字都可以（见VBA）模块中输入:PublicSub子程序名()或PrivateSub子程序名()能被任何位置主程序调用(可省略)只能在同一模块（或同一代码窗口）内调用（2）最简单调用：把子程序名当成一个语句即可（3）主程序格式：Call子程序名（变量或常

7、数1，变量或常数2，---）Call子程序名（（变量或常数1），（变量或常数2），---）要点：1实际参数是常数时，常数直接替代形式参数的值。2实际参数是变量时，则以变量本身替代形式参数本身。3变量或常数加上“（）”，则以变量的值或常数本身替代形式参数的值。（4）子程序格式：Sub子程序名(形式参数1As数据类型1,形式参数2As数据类型2，---）语句块EndSubSub子程序名(Byval(或ByRef)形式参数1As数据类型1，Byval(或ByRef)形式参数2As数据类