1、.写给初学者如果你是初次接触编程,那么我们给你几个非常重要的建议：一、凡事就怕不敢入门虽然Foxtable看上去比易表难了一些,但是只要你静下心来看帮助,你会发现其实并没有难到哪去,深入之后,你也许会觉得更容易。凡事就怕不敢入门,一旦入门就会觉得：不过如此嘛！二、不要尝试去记住一切学习编程的重点,不是记住什么,而是要了解每一段示例代码的原理和逻辑。要知道,优秀的程序员之所以优秀,绝不是因为他们记住了什么,他们和你我一样,需要不停地借助帮助文件。三、不要急于求成磨刀不误砍柴工,心急也吃不得热豆腐。帮助文件非常详细,提供了大量的示例,内容也是循序渐进的,只要你多点耐心
2、,就一定能掌握。有的用户只是粗略地看了一次帮助,连基本的概念都没有掌握,就开始开发系统,结果往往是事倍功半。四、实践出真知要想全面、深入地掌握Foxtable,在学习初期,应该将帮助中的示例全部实际操作一次,以便加深印象。学习的后期,可以自己尝试写一写代码进行测试,特别是有疑惑的地方。五、三人行必有我师如果你在学习和应用的过程中遇到难题,自己无法解决,可以访问Foxtable社区。在寻求帮助的同时,也别忘记帮助他人,让我们一起进入Foxtable编程的奇妙天地,一起来提高吧。Foxtable社区地址：最重要的两章Foxtable的开发篇非常庞大,其中最重要的
3、有两章,分别是《编程基础》和《Foxtable编程》。这两章既是基础,又是精华,可以说掌握了这两章的内容,剩余的内容都是"小菜",因为开发篇除这两章之外的内容,基本上都是参考性质,在学习的过程中,只需做到有所了解即可,在实际开发的时候再来查阅。所以我们在学习开发篇的时候,应该在这两章花上最多的精力,特别是《Foxtable编程》这一章,要反复看,细致看,多实践,只有基础打好了,才能融会贯通,才能在开发过程中做到游刃有余。再好的程序员,也不能保证自己的代码和设置100%正确,肯定要反复调试,才能最终达到目标。一些错误可能直到运行的时候才被发现,普通的错误没关系,重新修改代码和设置即可；不
6、动作与要求来设置属性、执行方法和响应事件。那么什么是属性、方法和事件呢？我们暂不讲编程,先来一个现实生活的例子,例如对于一辆汽车来说：1、品牌、型号、颜色、座椅个数、发动机排量等等,就是汽车的属性。2、启动、熄火、转弯、刹车就是汽车的方法,汽车通过执行这些方法来完成日常工作。3、为什么踩油门会加速,而踩刹车会减速？这是因为驾驶员的每一个操作,都会被当作一个"事件",并通过传感装置通知到汽车的控制系统。再来看Foxtable中的表,表名、行数、列数就是它的属性；增加行、删除行就是它的方法；而执行方法,又会引发对应的事件,通知系统某个表已经增加了一行、已经删除了一行。任何你在Foxt
8、到32767之间的短整型Integer整数,介于–2147483648到2147483647之间的整数。Long长整数,值的范围为-9223372036854775808到9223372036854775807。Single单精度小数,单精度小数,有效数字为7位。Double双精度小数,有效数字为15位。Decimal高精度小数,有高达28位的有效数字,适用于要求使用大量有效的整数及小数位数并且没有舍入错误的财务计算。Object通用型,可存放任何类型的数据。数值类型较多,一般情况下,小数用Double型,整数用Integ
11、,Str2AsString上面的代码,定义了两个整数型变量Val1、Val2,以及两个字符型变量Str1、Str2。提示：上面出现的彩色字符,是Foxtable的代码编辑器自动加上去的,只是为了便于阅读,并无特殊的意义。关于变量名变量名称必须以字符或者下划线<_>开始,而且至少应该包括一个字符或者数字。变量名不能包含除下划线<_>之外的符号和空格。变量名也不能是关键词,所谓关键词,就是对VisualBasic有特殊意义的单词,例如上面的Dim、As。关键词有几百个,你很难全部记住的,但你只要记住一点,如果输入代码,单击"确定"按钮后,提示"关键词作为标识符无效！"
12、,那么就表明你可能用关键词作为变量名了。圆点符号任何对象的方法和属性,都必须通过圆点符号才能调用和访问,例如：DimdAsDateDimiAsIntegeri=d.Monthd=d.AddDays<36>日期型数据有一个属性Month,用于返回该日期的月份,我们通过圆点符号来访问该属性：i=d.Month现在变量i的值等于日期d的月份。日期型数据有一个AddDays方法,用于给日期加上指定的天数,并返回新的日期,我们同样通过原点符号调用这个方法：d=d.AddDays<36>现在变量d等于原日期加上36天后的新日期。上面的属性
14、AsDated=Date.Today上面的代码将今天的日期值保存在变量d中。请注意用于返回当天日期值的Today属性,它不属于任何一个日期型变量,而是属于日期类型Date,我们直接通过Date类型来访问这个属性。这很好理解,Today这个属性返回的是今天的日期值,和具体的日期变量无任何关系。我们将这种直接通过类型名称访问的属性,称为共享属性。同样直接通过类型名称执行的方法,称为共享方法。在这里,共享的意思就是：大家共用的,不属于某个具体变量的。命令窗口这一节并不是VisualBasic的内容,但是为了便于我们接下来的学习,我们有必要先插入这么一节。我们在学习的过程中,
15、会接触到大量的示例代码,有时我们有必要通过执行示例代码,来加深印象、解除疑虑。命令窗口可以直接输入并执行代码。执行代码在"杂项"功能区,单击下面的按钮,可以打开命令窗口：命令窗口右下角有一个"执行"按钮,用于执行你输入的代码：查看执行结果Foxtable提供了一个Output类型,该类型有一个共享方法Show,用于在命令窗口显示信息。例如将下面的代码复制到命令窗口执行：Dimi1AsInteger=1Dimi2AsIntegeri2=i1*2Output.ShowOutput.Show显示的信息,位于命令窗口的信息显示区
16、,具体位置请看下面的图片：重要特性命令窗口为非模式窗口,可以在不关闭命令窗口的情况下,继续进行其它操作,例如编辑数据、执行菜单命令等等。命令窗口的辅助功能词汇:对于初学编程的人来说,记住Integer、Double、String这些单词不是一件很容易的事,英文基础差的用户更甚。不过没关系,命令窗口的词汇页,列出了所有的常见词汇,双击某个词汇,即可自动输入该词汇：字段在编写代码的时候,要记住所有的表名和列名,几乎是一个不可能的任务。其实完全不需要为此担心,命令窗口的字段页列出了所有表的字段<列>,双击即可自动插入字段名。你还可以选择插入的字段名是否用双引号或单引号
17、括起来,还是不需要任何引号。帮助命令窗口的帮助页内置了整套帮助文档,可以让大家更便捷地获得帮助。不过我个人不太喜欢这个内置的帮助,我觉得独立的帮助文档使用起来更方便。命令窗口的自动输入功能在命令窗口输入：DimxAsd然后按Tab键,将列出所有以d开头的类型供选择：按上下箭头键移动光标,可以选择类型,将光标移到Date,按回车即可输入类型Date：回车后,按下图所示输入"x.",然后按Tab键,系统会自动判断出变量x为日期型,然后列出日期类型所有的方法和属性供选择：选择AddMonths,然后按回车,会自动输入AddMonths,同时显示AddMo
18、nths的帮助：不是任何时候都需要选择的,例如输入：DimxAsStringx.e按Tab键,会自动输入EndsWith:DimxAsStringx.EndsWith这是因为x是一个字符型变量,而字符型变量以E开头的属性或者方法,就只有EndsWith。再例如：DimxAsStringx.r按Tab键,将列出字符型以r开头的属性和方法：显然手工输入能记住的开头字符,可以更加快速的定位所需要的成员。目前介绍的是命令窗口<代码编辑器>的基本功能,其它功能,我们会随着学习的深入逐个介绍。可以看到,在Foxtable中编写代码,
20、s1="我喜欢Foxtable,因为..."Output.Show如果你希望同时关闭全角转换和着色,只需在第一行输入"'''..."。例如：'''...Dims1AsStrings1="我喜欢Foxtable,因为..."Output.Show代码注释给代码的关键位置加上注释,是一个很好的习惯。注释以符号'开始,通常是单独一行,或者位于某一行代码之后。如果注释和代码在同一行,注释和代码之间应该至少有一个空格。注释不会对代码的运行有任何影响。例如:'下面的代码用于测试Month属性,请复制到命令窗口执行Dim
21、d1AsDate'定义变量d1d1=#12/31/2008#'给变量赋值Output.Show'在命令窗口显示月份上面的代码只是为了说明如何加注释,实际使用的时候,只需给关键的位置加上注释即可,太多的注释,反而会影响代码的可读性。在代码编辑窗口,注释的颜色为灰色。字符常量字符型常量用双引号括起来,例如：DimsAsStrings="NBA"等效于：DimsAsString="NBA"表示定义一个字符变量s,并将s的值设为"NBA"。可以在定义变量的时候,设定该变量为指定个数的某字符组成,语法为：
22、Dim变量名AsNewString<字符,重复次数>例如：DimsAsNewString<"*",5>变量s的值将等于"*****",也就是由5个符号*组成。也可以在定义变量后,用NewString语句给变量赋值,例如：DimsAsStrings=NewString<"*",5>实际上上面的语句完全等效于：DimsAsStrings="*****"或：DimsAsString="*****"不过假定你要将变量设置为100个空格或100个符号*,此时用NewString赋值显然要简洁得多。
23、如果字符串中本身包括双引号,那么用每两个双引号表示一个双引号。将下面的代码复制到命令窗口执行：Dims1AsString="利马是有名的""无雨之都"""Output.Show你会发现s1的值为：利马是有名的"无雨之都"日期常量日期型常量必须包括在符号#之间,格式为：#月/日/年#例如：Dimd1AsDate=#12/31/2008#等效于：Dimd1AsDated1=#12/31/2008#表示定义一个日期变量d1,初始值为2008年12月31日。下面是另一种定义日期变量的语法：Dim变量名AsN
24、ewDate<年,月,日>例如：DimStartDateAsNewDate<2008,12,31>同样表示定义一个日期变量StartDate,初始值为2008年12月31日。NewDate表示创建一个新的日期,既然是创建一个日期,当然得指定年、月、日。NewDate是可以单独使用的,例如：DimStartDateAsDateStartDate=NewDate<2008,12,31>'变量值设为2008年12月31日Output.Show这一行代码：StartDate=NewDate<2008,12,3
25、1>等效于：StartDate=#12/31/2008#逻辑常量逻辑常量值就两个,分别为True<是>和False<否>。逻辑变量通常用于保存某一个条件表达式的值。例如：Dimv1AsBoolean=<1=2>Dimv2AsBoolean=<1<2>Dimv3AsBoolean=TrueDimv4AsBoolean上述代码执行后,变量v1的值等于False,变量v2的值等于True,因为1=2是不成立的,而1<2是成立的。逻辑变量的默认初始值为False,所以变量v4的值等于False,而变量v3的值显然等于Tru
26、e。枚举枚举就是一组有名称的整数,例如星期一、星期二、星期三....,就可以看作是枚举,因为他们实际上代表着一个整数,这个整数表示这一天是该星期的第几天。程序中的枚举,通常用于选项设置,选项通常是一些整数,0、1、2表示不同的设置,为了提高程序的可读性,我们用一些更具描述性的字符型名称来代替这些整数,这些代表着不同整数的名称,就是枚举。例如在列属性设置中,有一个名为"中文输入"的属性,它就是一个枚举类型,包括三个值,分别是：Default：保持当前输入法状态不变True：自动打开中文输入法False：自动关闭中文输入法显然,对于用户来说,用Default、True、
27、False表示不同的设置,比用0、1、2表示不同的设置,要容易理解得多。关于枚举,你现在只需要了解这么多,今后我们会接触到更具体的枚举类型,那时你会觉得枚举其实是很容易理解的。数组数组是同一数据类型的一组变量的集合。定义数组语法为：Dim数组名<索引上限>As数据类型例如：DimNames<3>AsString表示定义了一个字符型数组,数组名为"Names",数组的索引从0开始,所以该数组包括4个字符型变量〔我们称之为数组元素,分别是：Names<0>,Names<1>,Names<2>,Names<3>数组有一个Length属性,用于返
28、回数组的长度。下面是一段完整的代码,用于测试数组的基本特性,请复制到命令窗口执行：DimNames<3>AsStringNames<0>="杨国辉"Names<1>="柯迎"Names<2>="陈绍月"Names<3>="朱志欣"Output.Show>'在命令窗口显示第二个数组元素的值。Output.Show'在命令窗口显示数组的长度。可以在定义数组的时候,直接给数组元素赋值,例如：DimValues<>AsInteger={1,3,5}上面的代码定义了一个整
29、数型数组,数组包括三个元素,分别是1、3、5。再例如：Dims1<>AsString={"中国","美国","日本","俄罗斯"}上面的代码定义了一个字符型数组,数组包括四个元素。如果采用直接赋值的方式定义数组,不需要指定数组的索引上限,此时索引上限由值的个数确定。可以在定义数组之后,再给数组批量赋值：Dims1<>AsStrings1=NewString<>{"中国","美国","日本","俄罗斯"}集合集合类似于数组,但是比数组更为灵活,定义集合的语法是：Dim集合名称AsNewList
30、imNamesAsNewList表示定义了一个字符型集合,集合的名称为Names。集合的成员包括：名称类型说明Add方法向集合中增加一个值Insert方法向集合的指定位置插入一个值Remove方法删除指定的值RemoveAt方法删除指定位置的值Contains方法判断集合中是否包括某个值AddRange方法批量增加多个值Count属性返回集合中值的个数一旦定义了集合,我们就可以用Add方法向其中添加值,例如：Names.Add<"电视机"
31、>Names.Add<"电冰箱">Names.Add<"洗衣机">可以用Remove方法删除指定的值,例如：Names.Remove<"电视机">可以用RemoveAt删除指定位置的值,例如：Names.RemoveAt<0>表示删除第一个值。还可以用Insert方法将值插入到指定位置,例如：Names.Insert<0,"电视机">可以用Contains方法判断集合中是否包括某一个对象,例如：IfNames.Contains<"电视机">=FalseThenNames.Add<"电视机">EndIf和数组一样,我们通过索引来引用集合
32、中指定位置的值,例如：Names<0>Names<1>当然也可以改变指定位置的值,例如：Names<0>="微波炉"可以用集合的Count属性返回集合中值的个数：Names.Count下面是一段完整的代码,用于测试集合的基本特性,请复制到命令窗口执行：DimNamesAsNewListNames.Add<"电视机">Names.Add<"电冰箱">Names.Add<"洗衣机">Names.Remove<"电视机">IfNames.Contains<"电视机">=FalseThenNames.Add<"电视
33、机">EndIfNames.Insert<0,"传真机">Names<2>="微波炉"Output.Show'显示集合的长度OutPut.Show>'显示第一个值用AddRange方法,可以将一个数组或另一个集合中的所有元素加入到集合中,例如：Dimv1<>AsString={"中国","美国","日本","俄罗斯"}Dims1AsNewListDims2AsNewLists1.AddRange'将数组中的元素全部加入到集合中
34、s2.AddRange'将集合s1中的元素全部加入到集合s2中字典Dictionary表示键与值的集合,俗称字典。定义一个字典的语法是：Dim变量名AsNewDictionary例如：DimzdAsNewDictionary表示定义了一个字典zd,键的类型是整数型,值的类型是字符型。键和值可以是任何类型,例如：DimzdAsNewDictionary字典的成员包括：名称类型说明Ad
35、d方法将指定的键和值添加到字典中Remove方法移除指定的键和值Clear方法清除所有的键和值ContainsKey方法判断是否包含指定的键ContainsValue方法判断是否包括指定的值Count属性返回字典中键/值对的数目Keys属性返回键的集合Values属性返回值的集合示例DimzdAsNewDictionaryzd.Add<1,"苹果">zd.Add<2,"香蕉">zd.Add<3,"波罗">zd.Add<4,"桔子">
36、zd.Add<5,"桃子">zd.Remove<1>'移除键1及其对应的值zd.Remove<5>'移除键5及其对应的值Output.Show>'显示键2对应的值Output.Show>'显示键3对应的值Ifzd.ContainsKey<1>=FalseThen'是否存在键1zd.Add<1,"苹果">EndIfIfzd.ContainsValue<"桃子">=FalseThen'是否存在值"桃子"zd.Add<5,"桃子">EndIfForEachkAsIntegerInzd.Ke
37、ys'显示所有键及其对应的值Output.Show>NextForEachvAsStringInzd.Values'显示所有值Output.ShowNextzd.Clear'清除所有的键和值算术运算符运算符说明+加-减*乘/除,例如：12/8,等于1.5\整除,只返回结果的整数部分,例如：12\8,等于1^指数运算,例如：2^3,表示2的3次方,等于8Mod取模,例如：10Mod3,表示10除以3的余数,等于1请将下面的代码复制到命令窗口执行：Ou
38、tput.Show<12/8>'测试除法Output.Show<12\8>'测试整除Output.Show<12Mod8>'获得余数Output.Show<2^4>'指数运算关系运算符运算符说明=等于<>不等于>大于<小于>=大于等于<=小于等于逻辑运算符用于连接两个条件表达式,根据左右表达式的计算结果,返回一个新的逻辑值。运算符说明And逻辑与,如果左右表达式的值都为True,则返回True,否则返回FalseAndAlso逻辑与,如果左右表达式的值都为True,则返回True,否则返
39、回FalseOr逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回FalseOrElse逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回FalseNot逻辑非,如果后边的表达式为True,则返回False,否则返回True,也就是对后边表达式的值取反。补充说明：And和Or,都是先计算左右两个表达式的值,然后再返回结果。AndAlso先计算左边表达式的值,如果计算结果为False,则直接返回False,不再计算右边表达式的值。OrElse先计算左边表达式的值,如果计算结果为True,则直接返回True,不再计算右
40、边表达式的值。所以通常用AndAlso和OrElse代替And和Or,因为效率高点。示例Dimv1AsBoolean=True'TrueDimv2asBoolean'FalseDimv3AsBoolean=<1<2AndAlso2>3>'FalseDimv4AsBoolean=<1<2OrElse2>3>'TrueDimv5AsBoolean='TrueDimv6AsBoolean='False字符串连接符运
41、算符&来连接字符串,例如：DimsAsStrings="abc"&"123"'s的值将是"abc123"&可以用来连接任何数据,例如日期型、数值型,在连接之前会自动将非字符型的数据转换为字符型。例如在命令窗口输入并执行下面的代码,即可显示当天的日期：Output.Show<"今天是："&Date.Today>需要注意的是,&运算符前后必须有空格,将下面的代码复制到命令窗口执行：Dims1AsString="abc"Dims2AsString="def"Output.Show'因为没有空格,执行时会出现错误.
42、上述代码在执行时,会出现错误提示,要正确执行,必须改为：Dims1AsString="abc"Dims2AsString="def"Output.Show'&运算符前后有了空格,可以正常执行了Like运算符Like使用通配符来比较字符串。可用的通配符有：字符说明任何单个字符*零或多个字符#任何单个数字〔0到9[字符列表]字符列表中的任何单个字符,例如[abx]表示a、b、x三个字符中的任何一个。[!字符列表]不在字符列表中的任何单个字符,例如[!abx]表示除a、b
43、、x之外的任何一个字符。方括号中的字符列表,可以使用连字符<–>将范围的上下限分开,例如[a-e]表示字母a到e中的任意一个,[a-z]就表示任意一个字母,而[0-9]表示任意一数字。将下面的代码复制到命令窗口执行,请留意注释和执行结果：'任意3个字符,后接3个数字Output.Show<"ABC123"Like"###">'匹配Output.Show<"A1212A"Like"###">'不匹配'任意一个字符,随后是ABC三字符中的任意一个Output.Show<"RB"Like"[ABC]">'匹配Output.Show<"RD"
44、Like"[ABC]">'不匹配'任意一个字符,随后是除ABC三字符之外的任意一个字符Output.Show<"RB"Like"[!ABC]">'不匹配Output.Show<"RD"Like"[!ABC]">'匹配'任意一个字母,随后是两个数字Output.Show<"a12"Like"[a-z]##">'匹配Output.Show<"112"Like"[a-z]##">'不匹配If语句If语句有三种形式单分支形式：If条件表达式Then代码EndIf如果条件表达式的计算结果为True,也就是条件成立的话,
45、则执行代码。例如在命令窗口输入下面的代码：DimMarkAsInteger=61IfMark>=60ThenOutput.Show<"及格">EndIf执行之后,上述的代码会得到结果"及格",如果将变量Mark的值改为59,则不会返回任何内容。双分支形式:If条件Then代码1Else代码2EndIf条件成立,则执行代码1,不成立,则执行代码2。例如,在命令窗口输入下面的代码：DimMarkAsInteger=61IfMark>=60ThenOutput.Show<"及格">
46、ElseOutput.Show<"不及格">EndIf执行之后,上述的代码会得到结果"及格",如果将变量Mark的值改为59,则会得到结果"不及格"。多分支形式：If条件1Then代码1ElseIf条件2Then代码2ElseIf条件3Then代码3.....Else代码XEndIf条件1成立,执行代码1,条件2成立,执行代码2,其余类推,所有条件均不成立,则执行代码X。例如在命令窗口输入：DimMarkAsInteger=90IfMark>=90ThenOutPut.Show
47、<"优秀">ElseIfMark>=80ThenOutPut.Show<"良好">ElseIfMark>=60ThenOutPut.Show<"及格">ElseOutPut.Show<"不及格">EndIf在命令窗口改变变量Mark的值,执行看看会得到什么结果。条件拦截：在多分支形式下,即使多个条件成立,if语句只会执行第一个满足条件的分支。例如在命令窗口执行下面的代码：DimMarkAsInteger=90IfMark>=60ThenOutPut.Show<"及格">ElseIfMark>=80
48、ThenOutPut.Show<"良好">ElseIfMark>=90ThenOutPut.Show<"优秀">ElseOutPut.Show<"不及格">EndIf虽然变量Mark等于90,但是输出的结果是"及格",而不是"优秀",因为Mark等于90的时候,第一个条件=60>成立,所以输出"及格",其余分支不再执行,直接跳转到EndIf。SelectCase语句SelectCase语句也是条件判断语句,通用性不如If语句,只能根据一个值的清单来测试一个变量,但是SelectCase语句比If语句要简洁一些。Selec
49、tCase语句的语法为：SelectCase变量Case值1代码1Case值2代码2Case值3代码3CaseElse代码XEndSelect如果变量的值等于值1,则执行代码1,如果等于值2,则执行代码2,依次类推,如果不等于已经列出的任何值,则执行代码X例如,在命令窗口输入：DimValueAsInteger=5DimResultAsStringSelectCaseValueCase1Result="低于20分"Case2Result="低于60分"Case3Result
50、="低于80分"Case4Result="低于90分"Case5Result="超过90分"CaseElseResult="无效值"EndSelectOutput.Show将变量Value的值分别设为1、2、3、4、5、6,然后执行代码,看看会得到什么结果。一个Case语句可以同时设置多个值,各个值之间用逗号分开,例如：DimValueAsInteger=5SelectCaseValueCase1,3,5,7,9OutPut.Show<"奇数">Case2,4,6,8,10OutPut.Sh
51、ow<"偶数">EndSelectCase语句还可以是一个范围,起始值和终止值用关键词To隔开,例如：DimMarkAsInteger=65DimResultAsStringSelectCaseMarkCase0To40Result="E"Case41To60Result="D"Case61To70Result="C"Case71To90Result="B"Case91To100Result="A"EndSelectOutPut.Show
52、SelectCase语句可以对各种数据类型的变量进行比较,包括字符型、日期型、逻辑型、各种数值型,例如下面使用字符型变量：DimValueAsString="A"DimResultAsStringSelectCaseValueCase"E"Result="低于20分"Case"D"Result="低于60分"Case"C"Result="低于80分"Case"B"Result="低于90分"Case"A"Result="超过90分"CaseElseResult="无效值"EndSelect
53、Output.ShowFor...Next语句For...Next语句是循环语句的一种,可以将一段代码重复执行设定的次数,语法为：For计数器变量=初始值To终止值Step步长值代码Next每执行一次代码,计数器变量就加上步长值,然后再次执行代码,直到计数器变量超过终止值。实际使用的时候,如果步长为1,可以省略Step语句。例如,求1+2+3+...+100的和：DimSumAsIntegerDimiAsIntegerFori=1to100Sum=Sum+iNext
54、Output.Show如果要累加1到100之间的偶数,那么代码应该是：DimSumAsIntegerDimiAsIntegerFori=2To100Step2Sum=Sum+iNextOutput.Show在循环过程中,如果提前退出循环,可以用ExitFor语句,例如：DimSumAsIntegerDimiAsIntegerFori=1To100Ifi=51ThenExitForEndIfSum=Sum+iNextOutPut.
55、Show上面的代码实际上只是求得1到50的累计值,因为在计数器变量i等于51的时候,,程序退出了循环。如果符合特定条件的时候,不执行循环代码,而是直接进行下一次循环,可以用ContinueFor语句,例如对于下面的语句：DimSumAsIntegerDimiAsIntegerFori=1To100IfiMod2=0ThenContinueForEndIfSum=Sum+iNextOutput.Show上面的代码累加了1到100之间的奇数,因为碰到偶数,就直接进行下一次循环,而没有累加到变量
57、Values.Length-1Values=Index*2Next再例如下面的代码,首先定义一个字符型集合,接着向集合加入一些值,最后利用For...Next语句列出集合中所有的值：DimValuesAsNewListValues.Add<"北京市">Values.Add<"上海市">Values.Add<"天津市">ForiAsInteger=0ToValues.Count-1Output.Show>Next我们可以用Step语句将步长设为负值,这样可以
58、倒序来执行,例如：ForiAsInteger=100To1Step-1Output.ShowNext在命令窗口执行下面的代码,会得到：100999897...321ForEach语句ForEach语句用来遍历一个集合或数组的全部成员,语法为：ForEach循环变量In集合代码Next针对集合中每一个成员执行代码；语句中的循环变量,其数据类型必须和集合成员的类型相同。如下面的代码,首先定义一个字符型集合,接着向集合加入一些值,最后利用ForEach语句列出集合中所有的值：Dim
60、lues.Add<"上海市">Values.Add<"天津市">ForEachValueAsStringInValuesOutput.ShowNextForEach语句,同样支持ExitFor和ContinueFor。例如下面的代码,检查集合中的每一个值,如果是北京市,则继续下一次循环,如果是XX市,则提示"找到了",并退出循环；如果是其它值,则显示该值：DimValuesAsNewListValues.Add<"北京市">Values.Add<"上海市">Values.Add<"天津市">F
61、orEachValueAsStringInValuesIfValue="北京市"ThenContinueforElseIfValue="XX市"ThenOutput.Show<"找到了！">ExitForEndIfOutPut.ShowNext实际上,ForEach语句不仅可以用来遍历集合,还可以遍历数组,例如：DimNamesAsString<>={"日期","客户","雇员"}ForEachNameAsStringInNamesOutput.ShowNext上面的代
62、码等效于：DimNamesAsString<>={"日期","客户","雇员"}ForiAsInteger=0ToNames.Length-1Output.Show>Next用何种方式,看各人喜好,我个人更喜欢前者。Do...Loop语句Do...Loop语句比For...Next语句更加灵活,因为它既可以在循环的开始,也可以在循环的结尾测试条件。Do...Loop语句有两种形式,分别为：DoWhile条件代码Loop和：Do代码LoopWhile条件两者的差别是第二种形式会至少执行一次代码,因为
63、它是在执行完代码后再比较条件,而第一种形式是先比较条件,条件符合再执行代码。例如,求1+2+3+...+100的和：DimSumAsIntegerDimiAsInteger=1DoWhilei<=100Sum=Sum+ii=i+1LoopOutput.Show注意,For...Next中,计数器变量是根据步长设置自动增加的,而在Do...Loop中,需要自行编写代码来改变计数器变量的值<粗体代码部分>,否则程序将处于死循环之中。如果要累加1到100之间的偶数,那么代码应该是：DimSumAsIn
64、tegerDimiAsInteger=2DoWhilei<=100Sum=Sum+ii=i+2LoopOutput.Show在循环过程中,如果提前退出循环,可以用ExitDo语句,例如：DimSumAsIntegerDimiAsInteger=1DoWhilei<=100Sum=Sum+ii=i+1Ifi>50ThenExitDoEndIfLoopOutput.Show上面的代码实际上只是求得1到50的累计值,因为在i大于50的时候退出了循环。
65、如果在满足指定条件的时候,不执行循环代码,而是直接进行下一次循环,可以用ContinueDo语句,例如对于下面的代码：DimSumAsIntegerDimiAsInteger=0DoWhilei<100i=i+1IfiMod2=0ThenContinueDoEndIfSum=Sum+iLoopOutput.Show上面的代码累加了1到100之间的奇数,因为碰到偶数,就直接进行下一次循环,而没有累加到变量Sum中。累加1到100之间的奇数,更合理的方法是：DimSumAsIntegerDim
66、iAsInteger=1DoWhilei<100Sum=Sum+ii=i+2LoopOutput.Show循环变量i的初始值为1,每次循环之后,i的值加2。With...EndWith该语句可以用来简化代码,With之后紧跟一个对象,在With和EndWith之间,可以用圆点符号"."代替"变量."。例如：DimStartDateAsDate=Date.TodayWithStartDateOutput.Show<"年:"&.Year>Output.Show<"月:"&.Month>Output.Show<"日:"&.Day>EndWith上面的代码等效于：DimStartDateAsDate=Date.TodayOutput.Show<"年:"&StartDate.Year>Output.Show<"月:"&StartDate.Month>Output.Show<"日:"&StartDate.Day>Year、Month、Day都是