VBA代码分析和总结.docxVIP

计算圆周长：

PublicSubcircumference()DimrAsSingle

DimcAsSingle

ConstPI=3.1415926 定义圆周率常量值未 3.1415926r=InputBox(请输入圆半径,输入)

Ifr=0Then

c=2*PI*r计算圆周长

MsgBox(半径为r的圆周长为:c)Else

MsgBox圆半径不能小于零!,vbInformationEndIf

EndSub

求出生日期：

PublicSubbirthday()DimLengthAsIntegerDimIDAsString

DimBornDateAsString

ID=InputBox(请输入身份证号码)弹出输入框，输入内容Length=Len(ID)获取输入的长度

SelectCaseLengthCase15

BornDate=19Mid(ID,7,2)-Mid(ID,9,2)-Mid(ID,11,2)

Case18

BornDate=Mid(ID,7,4)-Mid(ID,11,2)-Mid(ID,13,2)

CaseElse

MsgBox身份证号错误！