【图文】ja5_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
&&南开大学商院access课件
大小：1.19MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢Access中的VBA常用语句
来源： &&&&
VBA中的语句是一个完整的命令。它可以包含关键字、运算符、变量、常量以及表达式。语句可以分三类：声明语句、赋值语句，可执行语句。通常情况下一个语句写在同一行中，但也可以利用下划线将语句连续到下一行中。1.语句的分类(1)赋值语句赋值语句用于指定一个值或表达式给变量或常数。赋值语句通常包含一个等号（=)。例如：SubWho()DimyourNameAsStringyourName=：InPutBox(&whatisyouname?&)MsgBox&Yournameis&&yourNameEndSub在该过程中指定InputBox函数的返回值给变量yourName上述的赋值语句还可以写成：LetyourName=InputBox(&Whatisyourname?&)另一个赋值语句是Set语句，它用来指定一个对象给已声明成对象的变量，而Set关键字是必需的，例如：SubApplyFormat()Dimnr/CellAsRangeSetittyCell=Worksheets(&Sheet1&)&Range(&Al&)withmyCell&Font=&宋体&.Bold=T2ue.Italic=TrueEndwithEndSub在此例中，Set语句指定Sheetl上的一个范围给对象变量myCell。(2)可执行语句可执行语句是过程的主体，过程所完成的功能靠可执行语句来实现。一个可执行的语句就是VBA的一个动作，它可以执行一个方法或者函数，并且可以循环或从代码块中分支执行。可执行的语句通常包含数学或条件运算符。(3)声明语句在VBA中通过使用声明语句可以命名和定义过程、变量、数组以及常数。当声明一个过程、变量或常数时，也同时定义了它的范围，此范围取决于声明位置，以及用什么关键字来声明它。下而的实例包含三个声明：SubApplyFormat()ConstlimitAsInteger=3DimnCellAsRangeEndSubSub语句声明一&t&过程名为ApplyFormat,当ApplyFormat过程被调用或运行时，所有包含于Sub与EndSub中的语句都被执行。可以使用Const语句声明一个常数，并且设置它的值；而在常数声明后，不能加以更改或赋予新值。如：ConstMinNumbAsInteger=7也可以连续卢明，但必须为每个常数指定数据类型。如：ConstMinNumbAsInteger=7，MaxNumbAsInteger=100同时可以用Dim语句来声明变量，声明语句放在过程中可以创建属于过程级别的变量，放到模块顶部创建属于模块级别的变量。如：DimstrNameAsString该语句创建了变量strName，并正指定它为String数据类型。同时声明变量时，也可以在一句中声明几个变量，如：DimXAsInteger,YAsString,ZAsCurrency在声明变量时，也存在着作用域问题，但它和变量的定义是一样的，有全局变量和局部变量等。2.流程控制语句无论是结构化程序设计还是面向对象的程序设计，程序的流程一般分为三种：顺序结构、分支结构和循环结构，在VBA程序中，如果不加任何的流程控制语句，则各语句将按照书写的顺序执行，一直到程序的完成。有时用户需要改变这种执行方式，例如，在某种条件满足时执行语句1,不满足时执行语句2,这时用户可以使用流程控制语句来改变语句的流程，实现上述要求。下面主要介绍VBA提供的各种判断结构和循环结构的语句。(1)If条件语句If条件语句是最常见的一种分支语句。它符合人们通常的语言习惯和思维习惯。例如：如果（If)绿灯亮，那么（Then)就可以通车，否则（Else)车辆要等待行人通过。If条件语句有三种语法形式：1)最简单的形式If&条件〉Then&过程语句&2)带有Else的形式If&条件&Then&过程语句丨&Else&过程语句2&EndIf3)带有多重条件的形式江&条件1&Then&过程语句1&ElselfC条件2&Then&过程语句2&Else&过程语句n&EndIf这里的条件是一个数据或一个字符表达式，可以用它来检査真或假，如为真（True),则执行Then后面的过程语句；如为假（False),则无论接下来是什么语句，程序都将检查下一个Else条件或执行Else关键字后的语句。下面的例子可以进一步了解If条件语句的使用，该实例的作用是将学生的百分比成绩转成相应的等级制成绩：DimGradeAsString,ScoreAsIntegerIfScore&60ThenGrade=uEnDebug.Print&成绩不合格&ElselfScore&=60And&70ThenGrade=&D&Debug.Print&成绩合格&ElselfScore&=70And&80ThenGrade=&C&Debug.Print&成绩中等&ElselfScore&=80And&90ThenGrade=&B&Debug.Print&成绩优良&ElseGrade=&A&Debug.Print&成绩优秀&EndIfif语句只能根据一个条件的是或非两种情况进行选择。如果要处理有多种选择的情况则必须使用if语句进行多重嵌套，使句子'结构变得复杂，使程序可读性降低。处理多种选择的最有效方法是使用SelectCase语句。(2)SelectCase语句SelectCase语句的语法如下：SelectCase&检验表达式&[Case&比较列表1&[&过程语句1&]][Case&比较列表2&[&过程语句2&]][Case&比较列表11&[&过程语句n&]]EndSelect其中的检验表达式是任何数值或字符串表达式。下面的实例可以使用户/进一步了SelectCase语句的应用。DimGradeAsString,ScoreAsIntegerSelectCaseScoreCase0To59Grade=&E&Case60To69Grade=&D，，Case70To79Grade=&c&Case80To89Grade二B&CaseElse,1?9Grade=&A&EndSelectCase语句按先后顺序进行比较，执行与第一个case条件相匹配的代码，若不存在匹配的条件，则执行CaseElse语句，然后程序将执行EndSelect语句后的代码。以上两种语句是分支结构的语句，用户可以进行比较一下，看看什么情况下，该用什么语句。3.循环语句(1)While循环While循环结构语法如下：While条件循环体Wend其意义是当条件满足时，执行循环体，否则跳过不执行While循环。例如：Dim AsInteger =1WhileK101=1+1Wend(2)Do......Loop语句Do......Loop语句有以下几种形式：DoWhile〈循环条件〉[&过程语句&]Loop例如：DoWhileI&10工=1+1Loop可以明白地看出DoWhile&&Loop语句和While语句相似，都是执行循环，即先判断，当条件满足时再执行循环体。还有一种和这两种语句相似的Do......Loop语句,但却是先执行循环，再判断，其语法为：Do[&过程语句&]LoopWhile&循环条件&例如：Do1=1+1LoopWhileI&10(3)DoUntil......Loop和Do......LoopUntil语句前者是当型循环，后者是直到型循环。与前两类循环不同的是，这循环是当条件不成立时才执行循环体，其语法和例子如下：DoUntil&ttf4:&&过程语句&Loop例如：DoUntil工&=101=1+1Loop先判断I是否大于等于10，不是则执行连加，如果是就退出循环。Do&过程语句&Loop11111::11&循环条件&例如：Do1=1+1LoopUntilI&=10先执行连加，然后判断I是否大于10,如果是就退出；否则，继续循环。(4)For循环For......Next语句常用于事先知道循环的次数，其语法如下For循环控制变量=初值To终值Step步长循环语句Next其中，&Step步长&可以省略，省略时步长为1。循环控制变量可以为整型、长整型、实数以及字符串；但最常用的还是整型和长整型；并且它的初值和终值的设置受步长的约束。当步长为负数时，初值不小于终值才可能执行循环体；当步长为正数时，初值不大于终值才可能执行循环体。在循环中可以通过ExitFor跳出循环体。下面的例子说明了For循环的使用：For1=1To100Step2Score=Score+10IfScore〉1000ThenExitForNextFor循环执行过程如下：将初值赋予循环控制变量，即变量的值从1开始。判断循环控制变量是否在初始值和终值之间。如果循环控制变量没超出范围，则执行循环体；否则跳出循环体。即当I的值大于100时，跳出循环。在执行完一次循环体后，将循环控制变量加上步长赋给循环控制变量，再返回第二步继续执行。如本例中第二次执行时，循环控制变量I=初值+2=3,接下来是5,7,&&一直到100内的奇数，直到score&。4.其他语句(1)iif函数iif函数是if语句的一种特殊表达式，它的使用如下：temp=iif(条件，表达式1,表达式2)其作用是：先判断条件，如果为真，返回表达式1的值；否则返回表达式2的值。例如：c=iif(a&b,a,b)语句执行后，C为a和b中的最大值。(2)ForEach......Next语句ForEach&&Next语句用于对一个数组或集合中的每个元素重复执行&组语句。例如：ForEachbIna()IfbMod2=0ThenDebug.PrintbEndIfNext例子利用ForEach......Next来依次验证数组a中的每个元素是否能被2整除&如果是则在窗口中立即输出。
本教程由Excel表格网（）制作发布
相关推荐：求根据文字描述写三条access的VBA表达式 （1）随机产生一个大写字母的表达式是什么？ （2）_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
求根据文字描述写三条access的VBA表达式 （1）随机产生一个大写字母的表达式是什么？ （2）
求根据文字描述写三条access的VBA表达式
（1）随机产生一个大写字母的表达式是什么？
（2）发送快递时，若包裹重量不超过一公斤，快递费为12元，若超过一公斤，则超重部分每公斤收费10元，写出计算超过一公斤以后快递费的表达式（假设变量weight表示重量，使用...
我有更好的答案
12,12+(weight-1)*10)iif(a+b&c&nbspchr(int(rnd*26+65))iif(weight&=1;and a+c&b and b+c&a
采纳率：75%
来自团队：
为您推荐：
其他类似问题
大写字母的相关知识
换一换
回答问题，赢新手礼包●谁能帮我解决一道access的vba语句问题？●_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
●谁能帮我解决一道access的vba语句问题？●
编程实现下列求和功能。
S =1-2+3-4+5-6+ ……-100----------------------------------------------麻烦告诉我程序代码是什么谢谢！！创建一个窗体，设置相应的控件
我有更好的答案
j=1for i = 1 to 100j=-js = s+ (-1)*j*inext iprint s
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包ACCESS中在哪里编写VBA语句，如何编写_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
ACCESS中在哪里编写VBA语句，如何编写
VBA语句编写是在模块或者窗体的事件中进行，至于如何编写就复杂了，给你一个简单的例子。单击退出access事件的语句：Private Sub 退出系统_Click()If MsgBox(&你确定要退出Access系统？&, vbQuestion + vbYesNo, &确认&) = vbYes Then
docmd.Quit
End IfEnd Sub
采纳率：40%
【visual basic 编辑器】 即可在里面编写VBA语句了。至于能写出什么东西就看你的水平了以2003为例子，选择【宏】---&gt，你点击【工具】菜单
参考资料：
本回答被提问者采纳
EXCEL中到175以后就已经非常大了,数值太大就会溢出的,溢出错误.你是不是要在ACCESS中做个自定义函数求?Public Function fac(x As Long)fac = 1For i = 1 To xfac = fac * iNext iEnd Function我这里没有帮你加错误判断进去没有任意数的
为您推荐：
其他类似问题
您可能关注的内容
vba的相关知识
换一换
回答问题，赢新手礼包