包好

编程风格好代码的逻辑_6包好的编程风格提⽰

编程风格好代码的逻辑

1.缩进缩进-过程通常包含⼏个部分。可能会有⼀个部分⽤于错误处理代码，⽤于重复操作的代码⾏组，在某些条件下但在其他条件下不执

⾏的替代语句组等。缩进是识别代码段的⼀种有⽤⽅法。尽管它对编译器绝对没有影响，但确实使您的代码更易于阅读和理解。

Do

movespot=movespot/2

(movespot)

IfStrComp(MyRS![LastName],archadv)<1Then

ElIfStrComp(MyRS![LastName],archadv)=0Then

MsgBox"ExactMatch"

El

(0-movespot)

n

rst

EndIf

EndIf

LoopUntilmovespot<2

2.使⽤注释使⽤注释-在创建代码时，过程语句的⽬的和逻辑可能显⽽易见。⼏天或⼏周后，这种逻辑对您来说可能是难以捉摸的，⽽对其他⼈

则完全令⼈困惑。通过注释代码来节省您⾃⼰和其他⼈的时间和精⼒。在过程的开头应包含注释，以描述过程的⽬的，参数以及函数

过程返回的值。不必注释每⼀⾏代码，事实上，它太右下⾓了，但是您⾄少应包括⼀条注释，以解释每组语句的逻辑。要指定注释

⾏，请在前⾯加上撇号。默认情况下，VB编辑器会将注释⾏更改为绿⾊。

'tLibrary

ation

SetobjExcel=CreateObject("ation")

3.使⽤命名约定使⽤命名约定-为命名在应⽤程序中创建的对象建⽴⼀致的模式⾮常重要。通过为过程，对象，常量和变量选择正确，⼀致地应⽤的

命名约定，您的VBA代码变得更加⾃⽂档化并且更易于理解。

DimstrLastNameAsString

DimlngZipCodeAsLong

DimblnFoundFileAsBoolean

DimdteBirthDateAsDate

DimrstNewAsRecordt

DimdbNorthwindAsDataba

DimdblPieAsDouble

DimastrEmployees(100)'anArrayofStrings

fExtractMiddleInitial(strFullNameAsString)AsString'Function

4.对每个语句使⽤单独的⾏对每个语句使⽤单独的⾏-尽管您可以在⼀⾏中将多个⽤冒号分隔的语句串在⼀起，但是请不要这样做。压缩代码的好处远远超过了

读取代码的难度增加。

'Avoid2statementsonasingleline

yRS![LastName]:xt

Loop

5.使⽤换⾏符使⽤换⾏符-您可能已经注意到，“模块窗⼝”没有⾃动换⾏功能。如果输⼊的语句很长，则可以使⽤由空格和下划线（_）组成的

换⾏符来⾃⾏包装该语句。如果您不使⽤此字符将⼀⾏换成长⾏，则需要使⽤⽔平滚动条来查看语句的各个部分。您不能使⽤换⾏符

将字符串表达式包装到另⼀⾏；取⽽代之的是，您可以将字符串分成较⼩的部分并将其连接起来。

DimstrMsgAsString

'Insteadofthis

'strMsg="emadeanattempttoenteraTrainingRecordforanEmployeeintheTrainingTab

'Uthissyntax

strMsg="emadean"&_

"attempttoenteraTrainingRecordforanEmployeeintheTrainingTable"&_

"whenthisindividualdoesn'texistintheParent(Employees)"&_

"avalidEmployeeRecordfirst,thenproceed"

MsgBoxstrMsg,vbExclamation,"ReferentialIntegrityViolation"

6.在过程开始时声明变量和常量在过程开始时声明变量和常量-通过在过程开始时在过程开始时对所有声明语句进⾏分组，您可以⼀⽬了然地看到这些常数和变量，⽽⽆需遍历

过程代码来查找它们。

PrivateSub_SomeButton_Click()

DimdbMyDBAsDataba,rstMyRSAsRecordt,intNoOfRecordsAsLong

DimintCounterAsInteger,ef,

EndSub

编程风格好代码的逻辑