王牌资源-1visualbasic6.0函数查询手册

AAbs函 Array函 Asc函 Atn函 CCallByName函 Choose函 Chr函 Command函 Cos函 CreateObject函 CurDir函 CVErr函 DDate函 DateAdd函 DateDiff函 DatePart函 DateSerial函 DateValue函 Day函 DDB函 Dir函 DoEvents函 EEnviron函 EOF函 Error函 Exp函 FFileAttr函 FileDateTime函 FileLen函 Filter函 Format函 FormatCurrency函 FormatDateTime函 FormatNumber函 FormatPercent函 FreeFile函 FV函 GGetAllSettings函 GetAttr函 GetAutoServerSettings函 GetObject函 GetSetting函 HHex函 Hour函 IIIf函 IMEStatus函 Input函 InputBox函 InStr函 InStrRev函 Int、Fix函 IPmt函 IRR函 IsArray函 IsDate函 IsEmpty函 IsError函 IsMissing函 IsNull函 IsNumeric函 IsObject函 JJoin函 LLCase函 Left函 Len函 LoadPicture函 LoadResData函 LoadResPicture函 LoadResString函 Loc函 LOFLogLTrim、RTrimTrimM

Mid函数Minute函数MIRR函数Month函数MsgBox函数N

Now函数NPer函数NPV函数O

Oct函 PPartition函数Pmt函数PPmt函数PV函数Q

QBColor函 RRate函数RGB函数Right函数Rnd函数S

Second函数Seek函数Sgn函数 Sin函数SLN函数Space函数Spc函数Sqr函数Str函数p函数StrConv函数String函数Switch函数SYD函数T

Tab函数Tan函数Time函数TimerTimeSerial

TimeValue函 TypeName函 UUCase函 VValW

WeekdayY

Year函 AAbs函 必要的number参数是任何有效的数值表达式，如果number包含Null，则返回Null，如一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1)ABS(1)1AbsDimDimMyNumber '50.3MyNumberAbs(- '50.3Array函 arglist参数Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为0的数组。说面的示例中，第一条语句VariantAA。DimDimAAsA=B=ArrayOptionBase语句指定的下界的决定,Array是由类型库（VBA.ArrayArrayOptionBase的影响。注意没有作为数组的Variant也可以表示数组。除了长度固定的字符串以及用户定义类型之外，VariantVariant和一个元素为Variant类型的数组在概念上有所不同，但对数组元素的方式是相同的。ArrayArrayVariantDimDimMyWeek,MyWeekArray("MonTueWedThuFriSatSun")'返回值假设下界的设置为1（使用OptionBase'语句）MyDay=MyWeek(2) 'MyDay的值为"Tue"。MyDay= 'MyDay的值为"Thu"Asc函数 stringstring中没有包含任何字符，说DBCS0255DBCS-3276832767注意AscB函数作用于包含在字符串中的字节数据，AscB

AscAsc函数返回字符串首字母的字符值（ASCII值）DimDimMyNumber '返回65MyNumber=Asc("a") '返回97。MyNumber=Asc("Apple") '返回65。Atn函 Atn(number)为直角三角形两边的比值并返回以弧度为单位的角。这个比值-pi/2pi/2注意Atn是Tan的反三角函数，Tan的参数值为角度，返回直角三角形的两条边的比值。不要将Atn和余切函数，余切函数值是正切函数值的倒数，cotangent=(1/tangent)。AtnAtnDimDimpi4* 'CCallByName函 CallByName说CallByName函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一Result=CallByNameResult=CallByName(Text1,"MousePointer",vbGet)CallByNameText1,"Move",vbMethod,100,100Choose函Choose(index,choice-1[,choice-2,...[,choice- Choose1和可选择说Chooseindexindex1Choose会1index22个选择项，以此类可以使用Choose来查阅一个列表中的项目。例如，如果index所指定的值为3，而choice-1="one"、choice-2="two"choice-3="three"Choose"three"。当index代表一选项组中的值时，则这项功能将会特别有用。项副作用。例如，当在每个选择项表达式MsgBox函数作为其中的一部分时，每index1或大于列出的选择项数目时，ChooseNull。如果index不是整数，则会先四舍五入为与其最接近的整数。ChooseFunctionGetChoice(IndAsGetChoiceFunctionGetChoice(IndAsGetChoice=Choose(Ind,"Speedy","United","Federal")EndFunctionChr函 31ASCII代码相同。例如，Chr(10)可以返回换行字符。charcode的正常范围为0–255DBCS系统，charcode的实际范围为-3276865535注意ChrB函数作用于包含在String中的字节数据。ChrB返回一个字符，一个字符可能是一个或两个字节。ChrW函数返回包含若在不支持Unicode的平台上，则其功能与Chr函数相同。

Unicode的ChrChrDimDimMyChar=Chr(65)'返回A。MyChar=Chr(97)'返回a。MyCharChr(62)'返回>。MyCharChr(37)'%Command函语说VB/cmd当从命令行装入VisualBasic时，/cmd之后令行的作为命令行的参数传递给程序。下面的示例中，cmdlineargs代表CommandVB/cmdVisualBasic.exe文件的应用程序，Command返回出现在命令MyAppMyAppCommand Dim DimCCmdLineCmdLnLenInArgINumArgs'检查是否提供了MaxArgs参数。IfIsMissing(MaxArgsThenMaxArgs10'使数组的大小合适。ReDimArgArray(MaxArgs)NumArgs0InArgFalseCmdLine=Command()ForI=1ToCmdLnLenC=Mid(CmdLine,I,'spacetabIf(C<>""AndC<>vbTab)'spacetabIfIfNotInArgThenIfNumArgs=MaxArgsThenExitForNumArgs=NumArgs+1InArg=EndArgArray(NumArgsArgArray(NumArgs&C'spacetab'InArgFalse。InArg=FalseNextIReDimPreserveArgArray(NumArgs)EndFunctionCos函 numberDouble说-11CosCosDimDimMyAngle,MyAngle '定义角度（以“弧度”为单位）MySecant1 '利用余弦计算正割（sec()）CreateObject函创建并返回一个对ActiveX对象的 CreateObject).可选的；Variant 要在其上创建对象的网络服务器名称classappname.objecttype说会提供Application对象， 对象，以及Toolbar对象。ActiveXCreateObject 。DimasObject采用后期绑定方式DimExcelSheetAsSetExcelSheet='ApplicationExcel可见ExcelSheet.Application.VisibleTrueExcelSheet.Cells(11).ValueThisiscolumnArow1"'将该表格保存到C:\test.docExcelSheet.SaveAs"C:\'QuitExcel。SetExcelSheet=上述代码将启动该应用程序创建该对象，在本例中就是创建一个Excel电子'ApplicationExcel可见ExcelSheet.Application.VisibleTrueExcelSheet.Cells(11).ValueThisiscolumnArow1"'将该表格保存到C:\test.docExcelSheet.SaveAs"C:\'QuitExcel。SetExcelSheet=使用AsObject子句对象变量，可以创建一个能包含任何类型对象的变量。不定类ID。例如，可以并创建下列Excel：DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimDimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.WorkSheetSetxlBook=xlApp.Workbooks.AddSetxlSheet=前期绑定的变量可以提供更好的性能，但该变量只能存放中所指定的类的引用。CallMySub建并传递了一个Excel.ApplicationCallMySub可以在一个远端连网的计算机上创建一个对象，方法是把计算机的名称传递给CreateObjectservername参数。这个名称与共享名称的机器名部份相同：对于一个共享名称为"\\\\MyServer\\Public,"的servername参数是"MyServer"。MyServerExcelDimDimxlAppAsSetxlApp=CreateObject("Excel.Application","MyServer")Debug.PrintxlApp.Version当该对象当前没有实例时，应使用载一个文件，可以使用GetObject函数。CreateObject，都只能创建该对象CreateObjectDimxlAppAs VisibleTrue。xlApp.Visible=True'可以使用 Excel 'QuitSetxlAppDimxlAppAs VisibleTrue。xlApp.Visible=True'可以使用 Excel 'QuitSetxlApp 。CurDir函返回一个(语 drive参数是一个字符串表达式，它指定一个存在的驱动器。如果没有指定驱动器，或drive是零长度字符串("")，则CurDir会返回当前驱动器的路径。CurDirCurDir''C驱动器的当前路径为“C:\WINDOWS\SYSTEM”'D驱动器的当前路径为“D:\EXCEL”'CDimMyPath=CurDir '返回“C:\WINDOWS\SYSTEM”。MyPath=CurDir("C") '返回“C:\WINDOWS\SYSTEM”。MyPath=CurDir("D") '返回“D:\EXCEL”。CVErr函 可以在过程CVErr函数来创建用户自定义错误。例如，如果创建一个函数，CVErr可以返回一个错误号，并告知应该采取的行动。注意Error的隐式转换是不允许的，例如，不能直接把CVErr的返回值赋值给一个非Variant的变量。然而，可以对CVErr的返回值进行显式转换（使用CInt、CDbl等等，CVErrCalculateDoubleSubEnd'CalculateDoubleIfIsNumeric(Number)ThenCalculateDouble=CalculateDoubleSubEnd'CalculateDoubleIfIsNumeric(Number)ThenCalculateDouble=Number*2EndIfEnd''DDate函 说DateDateDimDimMyDate MyDateDateAdd函DateAdd(interval,number,date) DateAdd函数语法中有下列命名参数：必要。Variant(Date)或表示日期的文字，这一日期还加上了时间间隔。设年q季m月yd日w周h时ns秒说DateAddDateAdd来计算距今天为三十天的日期；或者计算距现在为45分钟的时间。date加上“日”，可以使用“一年的日数y”)，“日d”)或“一周的日数w”)。DateAdd函数将不返回有效日期。在以下实例中将131日加上一个月：DateAdd(m,1,31-Jan-上例中，DateAdd19952281995231199613119961996229100年（date中的年份）numberLong注意DateAdd返回值的格式由ControlPanel设置决定，而不是由传递到date参数的格式DateAddDimDimFirstDateAs DimIntervalTypeAsStringDimNumberAsIntegerDimMsgIntervalType="m" "m"指定以“月份”作为间隔。FirstDate=InputBox("Enteradate")Number=InputBox("EnternumberofmonthstoMsg="Newdate:"&DateAdd(IntervalType,Number,FirstDate)MsgBoxMsgDateDiff函必要。字符串表达式，表示用来计算date1date2必要。字符串表达式，表示用来计算date1date2的时间差的时必要 (Date)。计算中要用到的两个日期11设年q季m月yd日w周h时ns秒firstdayofweek值0NLSAPI12345670NLSAPI111日的星期开始（缺省值）23说date1date2相差的日数，可以使用“一年的日数”(y)或“日”(d)interval是“一周的日数”(w)时，DateDiffdate1是星期一，DateDiff计date2date2date1interval是“周”(ww)DateDiff函数返回两日期间的“日历周”数。由计算date1与date2之间星期date2date2DateDiff的计数结果中；但不论date1是否为星期日，都不将它算进去。date1date2DateDifffirstdayofweek“W”“WW”如果date1或date2是日期文字，则指定的年份成为该日期的固定部分。但是，如果date1或date2引号("")括起来，且年份略而不提，则在每次计算表达式date1或date2时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。在计算12月31日和来年的1月1日的年份差时，DateDiff返回1表示相差一个DateDiffDateDiffDimDimTheDateAsDim'TheDate=InputBox("EnteraMsg="Daysfromtoday:"&DateDiff("d",Now,TheDate)MsgBoxMsgDatePart函 DatePart11日设年q季m月yd日w周h时ns秒firstdayofweek值0NLSAPI1234567firstweekofyear值0NLSAPI111日的星期开始（缺省值）23说DatePart函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart计算某个firstdayofweek“W”“WW”如果date是日期文字，则指定的年份成为该日期的固定部分。但是，如果date引date表达式时，当前年份都会插入到代码DatePartDimDimTheDateAsDim'TheDate=InputBox("EnteraMsg="Quarter:"&DatePart("q",TheDate)MsgBoxMsgDateSerial函DateSerial(year,month, 必要；Integer。任何数必要；Integer。任何数说19911231日，DateSerial函数中的每个参数围应该是可接受的；即，日的取值范围应在1-31之间，而月的取值范围应在1-12之间。以下示例中使用了数值表达式代替绝对日期。这里，DateSerial19908(1990-10)(8-2)(1-1)1980531 DateSerial(1990-10,8-2,1- year0292000–2029301930–1999year参数，则请用四位数值表示（1800）。35天，则这个天数被解释成一个月加上多出来的日数，多出来的日数将-32，76832，767的范围，就会导致错误DateSerialDateSerialDate Dim MyDate=DateSerial(1969,2,12)'返回日期 DateValue函 datedate1001199991231日之间的一个日期。但是，date也可以是任何表达式，其所代表的日期、时间在上述说date是一个字符串，且其内容只有数字以及分隔数字的日期分隔符DateValue就会根据系统中指定的短日期格式来识别月、日、年的顺序。DateValue也识别明确的英文月份名称，全名或缩写均可。例如，除了12/30/1991和12/30/91之外，DateValue也识别December30,1991和Dec30,1991。如果date中略去了年这一部分，DateValuedateDateValuedate间信息（89:98）DateValueDateMyDate#2/12/69#DimDim 'Day函VariantInteger)131dateVariant、数值表达式、字符串表达式或它们的组合。如果date包含Null，则返回Null。DayDimMyDate,MyDateDimMyDate,MyDateFebruary12 'MyDay MyDay12DDB函语DDB(DDB(cost,salvage,life,period[,DDB必要。Double.指定使用年限结束时的可选。Variant指定收复平衡下落时的速度。如果省略的话，2（双下落方法）说lifeperiod参数lifeperiod也DDB函数使用下列公式计算在一定时期后的折旧：折旧/period=((cost–alvage)*factor)/lifeDDBDimFmtInitCostSalvageValMonthLifeLifeTimeDepYearDeprConstYRMOS=12 '一年之中的月份数。FmtDimFmtInitCostSalvageValMonthLifeLifeTimeDepYearDeprConstYRMOS=12 '一年之中的月份数。Fmt=InitCost=InputBox("What'stheinitialcostoftheasset?")SalvageVal=InputBox("Entertheasset'svalueatendofitslife.”)MonthLife=InputBox("What'stheasset'susefullifeinmonths?")DoWhileMonthLife<YRMOS MsgBox"AssetlifemustbeayearorMonthLife=InputBox("What'stheasset'susefullifeinmonths?")LifeTimeMonthLife 'IfLifeTime<>Int(MonthLife/YRMOS)LifeTimeLifeTimeInt(LifeTime EndDepYear=CInt(InputBox("Enteryearfordepreciationcalculation."))DoWhileDepYear<1OrDepYear>LifeTimeMsgBox"Youmustenteratleast1butnotmorethan"&LifeTimeDepYear=InputBox("Enteryearfordepreciationcalculation.")Depr=DDB(InitCost,SalvageVal,LifeTime,MsgBox"Thedepreciationforyear"&DepYear&"is"&_Format(Depr,Fmt)&"."Dir函返回一个String，用以表示一个文件名、 语 Dir 器。如果没有找到pathname，则会返回零长度字符串("")。匹配pathname但不包含属性的文件。设置值0(缺省)1248注意这些常数是由VBA所指定的，在程序代码中的任何位置，可以使用这些常数来替换说Dir(*MacintoshMacID函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称: 在Windows中，如果在Dir函数中使用MacID函数，将产生错误。任何大于256的attribute值都被认为是MacID函数的值。在第一次调用Dir函数时，必须指定pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括pathname。Dirpathname的第一个文件名。若想得到其它匹配pathname的文件名，再一DirDir会返回一个零长度字符串("")。一旦返回值为零长度字符串，并要再次调用Dir时，就必须指定pathname，否则会产生错误。不必到所有匹配当前pathname的文件名，就可以改变到一个新的pathnameDirvbDirectoryDir不能连续地返回子。提示由于文件名并不会以特别的次序来返回，所以可以将文件名在一个数组中，然后Dir本示例使用Dir函数来检查某些文件或是否存在。在Macintosh计算机上，默认“HD”，并且路径部分由冒号取代反斜线隔开。而且Windows的通MacMacID函数来指定文件组。 DimMyFile,MyPath, ''返回“WIN.INI”（如果该文件存在）MyFile=*.iniMyFile='若第二次调用Dir*.iniMyFile='*.TXTMyFile=Dir("*.TXT",'显示 MyPath ' 'DoWhileMyName<>'跳过当前 及上'。IfMyName<>"."AndMyName<>".."'使用位比较来确定MyName代表 If(GetAttr(MyPath&MyName)AndvbDirectory)=vbDirectoryThenDebug.PrintMyName '如果它是一个 EndEndMyName='。DoEvents函DoEvents( 说返回DoEventsSendKeys队DoEvents对于简化诸如允许用户取消一个已启动的过程—例如搜寻一个文件—特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给ActiveXEXE部件来确保以DoEvents放弃控制权的过程，在第一次DoEvents返回之前，不能再次被其程以不可预知的方式进行交互操作，那么也不要使用DoEvents，因为此时不能放弃控制权。DoEvents'VisualBasicDimI,ForI'VisualBasicDimI,ForI1To 'IfIMod10000 '1000OpenForms 'EndNext 'EEnviron函StringMacintoshEnviron({envstring| 序。number参数可以是任意的数值表达式，不过在计算前，它会先转换为一说则Environ会返回一段文本，文本是赋值给指定的envstring的，也就是说，在环境字符串表格中对应那个环境变量的等号(=)后面的那段文本。如果指定了number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ会返回整个文本，包括envstring。如果在指定位置上没有环境字符串，那么Environ会返回一个零长度字符串。EnvironEnvironPATHDimEnvString,Indx,Msg, Indx=1 Indx=1 1。EnvString IfLeft(EnvString5PATH 'PATH 'Msg="PATHentry="&Indx&"andlength="&PathLenExitDoIndxIndx 'PATHEnd LoopUntilEnvString=""IfPathLen>0ThenMsgBox 'MsgBox"NoPATHenvironmentvariableexists."EndIfEOF函IntegerBooleanTrueRandomInput打语 直到到达文件的结尾，EOF函数都返回False。对于为Random或Binary而打开的文件，直到最后一次执行的Get语句无法读出完整的记录时，EOF都返回False。对于为Binary而打开的文件，在EOF函数返回True之前，试图使用Input函数InputLOFLocEOFGetEOFOutput打开的文件，EOFTrueEOFEOFMYFILEDimDimOpenMYFILEForInputAs 'DoWhileNot 'LineInput#1 ' 'Close 'Error函 errornumber参数errornumber是有效的错Error将返回字符串“应用程序定义的错误或对象定义的错误”。如果errornumber不是有效的错误号，则会导致错误发生。如果省略errornumber，就会返回与最近一次运行时错误对应的消息。如果没有发生运行时错误，或者errornumber是0，则Error返回一个长度为零的字符串("")。说Err对象的属性设置，以便认定最近一次运行时错误。Error函数的返回值对应于Err对象的Description属性。ErrorErrorDimDimForErrorNumber=61To64 '从错误代号61循环到64。Debug.PrintError(ErrorNumber) '将错误信息在立即窗口中显示。NextExp函 numbernumberDouble如果number的值超过 ，则会导致错误发生。常数e的值大约注意Exp函数的作用和Log的作用互补，所以有时也称做数ExpExpe（e~2.71828）DimDimMyAngle,'定义角度（以“弧度”为单位）MyAngle='计算双曲正弦函数值（sin()）MyHSin=(Exp(MyAngle)-Exp(-1*MyAngle))/FFileAttrLongOpen 必要。Integer必要。Integer类型。它是数字，返回信息的类型。指定1则可返回一返回当returntype参数值为1时，下列返回值文件方式值1248FileAttrDimFileNum,Mode,HandleFileNum=1 指定文件号。Open"TESTFILE"ForAppendAsFileNum'打开文件。Mode=FileAttr(FileNum,1)'返回8（增加文件方式）。Handle=FileAttr(FileNum,2)'返回文件句柄。CloseDimFileNum,Mode,HandleFileNum=1 指定文件号。Open"TESTFILE"ForAppendAsFileNum'打开文件。Mode=FileAttr(FileNum,1)'返回8（增加文件方式）。Handle=FileAttr(FileNum,2)'返回文件句柄。CloseFileNum'FileDateTime函 pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含FileDateTimeDim'假设TESTFILEDim'假设TESTFILE上次被修改的时间为1993年2月12日下午4时3547'English/U.S.MyStamp=FileDateTime("TESTFILE")Filedatetime("TESTFILE") '“2/12/934:35:47PM”。FileLen函 pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含说FileLen函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前注意若要取得一个打开文件的长度大小，使用LOFFileLenFileLenTESTFILE Dim MySize 'Filter函描语Filter(InputStrings,Value[,Include[, Filter函数语法有如下几部分：设置值012 说如果在InputStrings中没有发现与 相匹配的值，Filter返回一个空数组。如InputStrings是Null一个一维数组，则产生错误Filter函数所返回的数组，其元素数目刚好是所找到的匹配项目数。Format函语 Format设置firstdayofweek参数有下面设置：值0NLSAPI1234567firstweekofyear值0NLSAPI123说如果在格式化数字时没有指定format，Format会提供与Str函数类似的功能，尽管它是的。然而，以Format作用在正数上不会保留正负号空间，而以Str的话则会。FormatFormat函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），AM/PM等文本而言，其真正的显示格式会因计算机上的国际标准不同而有不相同。本示例中是假设国际标准为English/UnitedStates。MyTimeMyDateDimDimMyTime,MyDate,MyStrMyTime=#17:04:23#MyDate=#January27,'MyStr=Format(Time,"Long'MyStr=Format(Date,"LongMyStrFormat(MyTime '"17:4:23"MyStrFormat(MyTimehh:mm:ss '"05:04:23PM"MyStr=Format(MyDate,"dddd,mmmd '"Wednesday,Jan1993"'MyStr '返回"23" '返回"5,459.40"MyStr=Format(334。9,"###0。00") '返回"334.90"。MyStr=Format(5,"0。00%") '返回"500.00%"。MyStr=Format(" O","<") '返回" MyStrFormat("Thisisit '"THISISIT"FormatCurrency函描[,UseParensForNegativeNumbers[,GroupDigits]]]])设置设置和值0说注意除起始的零外，所有设置值信息都来自“区域设置”的“货币”选项卡，起始的零来FormatDateTime函描值01234描[,UseParensForNegativeNumbers[,GroupDigits]]]])设置IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下：值0说注意所有设置值信息都来自“区域设置”的“数字”选项卡。FormatPercent函描乘以语[,UseParensForNegativeNumbers[,GroupDigits]]]])FormatPercent函数语法有如下设置IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下：值0说注意所有的设置值信息都来自“区域设置”的“数字”FreeFile函语 rangenumberVariant，它指定一个范围，以便返回该范围之内的下0（缺省值）1–2551256511之间的文件号。描[,UseParensForNegativeNumbers[,GroupDigits]]]])FormatPercent函数语法有如下设置IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下：值0说注意所有的设置值信息都来自“区域设置”的“数字”选项卡。FreeFileDimMyIndex,ForDimMyIndex,ForMyIndex1To 'FileNumber 'OpenTEST&MyIndexForOutputAs 'WriteFileNumberThisisa ' 'NextFV函 FV(rate,nper,pmt[,pv[,type]]) FV函数有下列命名参数：之十且按月付款的汽车，则利率为0.1/12或0.0083。款选择按月付款方式，则期限共有4*12（或48）个付款期。缺省值为0。如款在周期开始时到期，请使用1。如果省略的话，缺省值为0。说ratenper参数ratenperFVFV函数计算某项投资的未来价值，计算时给定每期的利率（APR12），DimFmt,Payment,APR,TotPmts,PayType,PVal,FValConstENDPERIOD=0,BEGINPERIOD=1 付款方式。Fmt 'DimFmt,Payment,APR,TotPmts,PayType,PVal,FValConstENDPERIOD=0,BEGINPERIOD=1 付款方式。Fmt 'PaymentInputBox("Howmuchdoyouplantosaveeachmonth?")APR=InputBox("Entertheexpectedinterest年利率.")IfAPR1ThenAPRAPR 'TotPmts=InputBox("Forhowmanymonthsdoyouexpecttosave?")PayType=MsgBox("Doyoumakepaymentsattheendofmonth?",vbYesNo)IfPayType=vbNoThenPayType=BEGINPERIODElsePayType=PVal=InputBox("HowmuchisinthissavingsaccountFVal=FV(APR/12,TotPmts,-Payment,-PVal, MsgBox"Yoursavingswillbeworth"&Format(FVal,Fmt)& GGetAllSettings函从Windows表中返回应用程序项目的所有表项设置及其相应值（开始是SaveSetting产生）。 GetAllSettings(appname, 说appnamesectionGetAllSettingsVariantGetAllSettings'GetAllSettings'本示例首先使用SaveSetting语句来建立Windows区里appname应用程序的项称不能用GetAllSettings'GetAllSettings'DimDimMySettingsAsVariant,intSettingsAsInteger'在 SaveSettingappname:="MyApp",section:="Startup",_key:="Top",setting:=75SaveSetting"MyApp","StartupLeft50'取得输入项的设置值。MySettings=GetAllSettings(appname:="MyApp",section:="Startup")ForintSettings=LBound(MySettings,1)ToUBound(MySettings,1)Debug.PrintMySettings(intSettings,0),MySettings(intSettings,1)NextintSettingsGetAttr函返回一个Integer，此为一个文件、 pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含返回GetAttr值0124注意这些常数是由VBA指定的，在程序代码中的任何位置，可以使用这些常数来替说若要判断是否设置了某个属性，在GetAttr函数与想要得知的属性值之间使用And运表达式中，如果(Archive)属性没有设置，则返回值为零：GetAttr本示例使用GetAttr函数来得知文件 DimDim'TESTFILEMyAttr '返回2''TESTFILEDebug.PrintMyAttrAnd'TESTFILEMyAttr '返回3''TESTFILEDebug.PrintMyAttrAnd(vbHidden+'MYDIRMyAttr '返回16GetAutoServerSettings函返回关于ActiveX部件的状态的信息 object.GetAutoServerSettings([progid], 可选的。variantProgID可选的。variantCLSID返回GetAutoServerSettings函数返回含有关于给定的ActiveX部件的值的数组的值1若ActiveX部件被则为True23RPC4RPC验证级说VariantGetAutoServerSettings这个示例检索关于对象 o"的信息SubDimDimoRegClassAsNewRegClassDimvRCAsVariantvRC=oRegClass.GetAutoServerSettings_ IfvRC(1)ThenMsgBox" oisregisteredremo yona"_&"servernamed:"&vRC(1)MsgBox" oisregisteredlocally."EndIfEndEndGetObject函返回文件中的ActiveX对象的 略pathname，则class是必需的。可选的 (String)。代表该对象的类的字符串的语法格式为必需的 (String)。提供该对象的应用程序名称必需的 (String)。待创建对象的类型或类说使用GetObject函数可以文件中的ActiveX对象，而且可以将该对象赋给对象变量。可以使用Set语句将GetObject返回的对象赋给对象变量。例如：SetCADObject=pathname相关联的应用程序，同时激活指定文pathname("")GetObject返回指定类型的新的对象实pathnameGetObject返回指定类型的当前活动的对象。如果当前(!)以及SetLayerObject=SetLayerObject=类型的对象：Application对象，DrawingToolbar对象，所有这些都是同一个文class参数。DimDimMyObjectAs 在上述例子中，FIGMENTDRAWING则是它支持的MyObject.Line9,MyObject.InsertText9,100," o,world."可以使用对象变量MyObjectMyObject.Line9,MyObject.InsertText9,100," o,world."如果对象当前还没有实例，或不想启动已加载文件的对象，则应使用CreateObject函数。如果对象已为单个实例的对象，则不管执行多少次CreateObject，都只能创建该对("")语法调用时，GetObjectBasic创建的类的。GetObject APIDeclareFunctionFindWindowLib"user32"Alias_"FindWindowA"(ByVallpClassNameasString,_ByVallpWindowNameAsLong)AsDeclareFunctionSendMessageLib"user32"Alias_"SendMessageA"(ByValhWndasLong,ByValwMsgasLong_ ramasLong,ByVallParamAsLong)AsSubDimMyXLAs ExcelOnErrorResume 'Getobject SetMyXLGetobjectExcel.Application")该示例使用GetObject函数来获取对指定的Excel的工作表(MyXL)的引用。它使用工作表的Application属性来显示或关闭Excel等等。DetectExcelSub过程通过调用两个API APIDeclareFunctionFindWindowLib"user32"Alias_"FindWindowA"(ByVallpClassNameasString,_ByVallpWindowNameAsLong)AsDeclareFunctionSendMessageLib"user32"Alias_"SendMessageA"(ByValhWndasLong,ByValwMsgasLong_ ramasLong,ByVallParamAsLong)AsSubDimMyXLAs ExcelOnErrorResume 'Getobject SetMyXLGetobjectExcel.Application")IfErr.Number0ThenExcelWasNotRunningTrue '如果发生错误则要清除Err对象。 Excel在运行 SetMyXL='设置其Application属性，显示 '然后使用MyXL对象 的Windows集合MyXL.Application.Visible=True'... Excel的这份副本不在运行中'ApplicationQuit Excel时IfExcelWasNotRunning=TrueThenEndSetMyXL EndSubConstWM_USER=1024DimhWndAs'ExcelAPIIfhWnd0 '0Excel'ExcelSendMessageAPISendMessagehWnd,WM_USER+18,0,0EndIfEndGetSetting函从Windows表中的应用程序项目返回表项设置值 GetSetting(appname,section,key[, 则default取值为长度为零的字符串("")。说GetSettingGetSettingdefaultGetSetting本示例首先使用SaveSetting语句来建立Windows区（或16位Windows平'GetSettingDimMySettingsAsVariant'在 SaveSetting"MyApp","Startup",'GetSettingDimMySettingsAsVariant'在 SaveSetting"MyApp","Startup","Top",75key:="Left",default:=HHex函 number零的&H10代表十进制的16。HexHex16DimDimMyHex=Hex(5) '返回5。MyHex=Hex(10) '返回A。MyHex '1CBHour函VariantInteger)023 它们的组合。如果time包含Null，则返回Null。HourDimMyTime,MyTimeDimMyTime,MyTime4:35:17 'MyHour MyHour16IIIf函 IIf(expr,truepart, IIf说IIftruepartfalsepart，虽然它只返回其中的一个。因此要注意到这个副作用。例如，如果falsepart产生一个被零除错误，那么程序就会发生错误，即使expr为IIfIIfCheckItTestMeFunctionFunctionCheckIt(TestMeAsCheckIt=IIf(TestMe>1000,"Large","Small")EndFunctionIMEStatus函返回一个Integer，用来指定当前 Windows的输入法(IME)方式；只对东亚语 返回值01打开2关闭3IME4Hiragana5Katakana6Katakana7Alphanumeric8Alphanumeric值7Alphanumeric8Alphanumeric9HangulHangul值01打开2关闭Input函StringInputBinary Input说Print#或Put将Input函数读出的数据写入文件。InputBinary与Input#语句不同，Input函数返回它所读出的所有字符，包括逗号、回车符、空白对于Binary类型打开的文件，如果试图用Input函数读出整个文件，则会在EOFTrueInput读出二进制文件时，要用LOFLocEOF函数，而在使用EOF函数时要配合以Get函数。注意对于文本文件中包含的字节数据要使用InputB函数。对于InputB来说，numberInputTESTFILEDimDimOpenTESTFILEForInputAs 'DoWhileNotEOF(1) '循环至文件尾。MyChar=Input(1,#1) '读入一个字符。 '显示到立即窗口Close 'InputBox函(Chr(13))(Chr(10(Chr(13)&Chr(10来省略default，则文本框为空。如果省略xpos，则框会在水平方向居中。略ypos，则框被放置在屏幕垂直方向距下边大约三分之一的位置。助。如果已提供helpfile，则也必须提供context。已提供context，则也必须要提供helpfile。说如果同时提供了helpfile与context，用户可以按F1来查看与context相应的帮助主题。某些主应用程序，例如，Excel，会在框中自动添加一个Help按钮。如果用户单击OK或按下ENTER，则InputBox函数返回文本框中的内容。如果用户单击Cancel，则此函数返回一个长度为零的字符串("")。如果还要指定第一个命名参数以外的参数，则必须在表达式中使用InputBox。如InputBoxDimMessage,Title,Default,MessageEnteravaluebetween1and 'TitleInputBoxDimMessage,Title,Default,MessageEnteravaluebetween1and 'TitleInputBox 'Default ''MyValue=InputBox(Message,Title,'MyValue=InputBox(Message,Title,,,,"DEMO.HLP",'100100MyValue=InputBox(Message,Title,Default,100,InStr函返回 InStr一定要有start参数。compare，OptionCompare的设置将决定比较的类型。设compare值-012 返回InStrstring10string1string2string2string20string1中找到start>0说InStrBInStrB返回的是字节位置，而不InStrDimDimSearchString,SearchChar,SearchString ' '"P"''pPMyPos=Instr(4,SearchString,SearchChar,'9（P）'pPMyPos=Instr(1,SearchString,SearchChar,'缺省的比对方式为二进制比较（最后一个参数可省略）= '9MyPosInstr(1SearchString '返回0InStrRev函描 InstrRev(string1,string2[,start[, InstrRev函数语法有如下设置值012 InStrRev返回值如string1长度为0string2string2没有找0start>0说Int、Fix函numberDoublenumberNull，则返回Null。说IntFixnumberFix(number)Sgn(number)*IntFixnumberIntnumber的Fixnumber的第一个负整数。例如，Int-8.4Fix(number)Sgn(number)*Int函数，FixIntFix函数在返回某数值的整数部分时有何不同。当参数为负数时，IntDimMyNumber='返回99MyNumber='返回99'返回-100'返回-99'返回-100'返回-99IPmt函语中选择按月付款方式，则共有4*12（或48）个付款期。在付清后为0。但是，如果想要在18存下50，000作为教育基金，那么50，000为未来值。如果省略的话，缺省值为0。款在周期开始时到期，请使用1。如果省略的话，缺省值为0。说ratenper参数rate用月份计算，则nper也必须用月份计算。IPmt/DimDimFValFmtPValAPRTotPmts,PayTypePeriodIntPmtTotIntMsgConstENDPERIOD=0,BEGINPERIOD=1 '付款方式。FVal= ' Fmt 'PVal=InputBox("HowmuchdoyouwanttoAPRInputBox("Whatistheannualpercentagerateofyourloan?")IfAPR>1ThenAPR=APR/100 '确保格式正确。TotPmts=InputBox("HowmanymonthlyPayType=MsgBox("Doyoumakepaymentsatendofthemonth?",IfPayType=vbNoThenPayType=BEGINPERIODElsePayType=ForPeriod1To 'IntPmt=IPmt(APR/12,Period,TotPmts,-PVal,FVal,PayType)TotInt=TotInt+IntPmtNextMsg="You'llpayatotalof"&Format(TotInt,Fmt)Msg=Msg&"ininterestforthisloan." MsgBox '显示结果 IRR函 IRR说IRRguess的值开始，IRR反复循环进行计算，直到精确度达到0.00001%。如果经过20次反复叠代测试还不能得到结果，则IRR计算失败。IRRDimGuess,Fmt,RetRate,StaticValues(5)As Guess Guess10%Fmt 'Values(0 '在本示例中，IRRValues()5笔现金流量之实DimGuess,Fmt,RetRate,StaticValues(5)As Guess Guess10%Fmt 'Values(0 'Values(1)=22000:Values(2)=25000Values(3)=28000:Values(4)=RetRate=IRR(Values(),Guess)*100'Msg="Theinternalrateofreturnforthesefivecashflowsis"Msg=Msg&Format(RetRate,Fmt)&"percent."MsgBox '显示实 IsArray函返回Boolean值，变量是否为一个数组 IsArrayTrueFalsevariant表达式来说，IsArray尤为有用。IsArrayIsArrayDimDimMyArray(1To5)AsInteger,YourArray, YourArrayArray(12 'MyCheck=IsArray(MyArray) '返回True。MyCheck=IsArray(YourArray) '返回True。IsDate函返回Boolean值，一个表达式是否可以转换成日期 expressionVariant，包含日期表达式或字符串表达式，这里的字符说如果表达式是一个日期，或可以作为有效日期识别，则IsDate返回True；否则返回False。在Windows中，有效日期的范围介于公元100年1月1日与公元99991231IsDateIsDateMyDate="February12,1969":YourDate=#2/12/69#:NoDate=" MyCheck=IsDate(MyDate) '返回True。MyCheck '返回TrueMyCheck 'FalseIsEmpty函语 必要的expression参数是一个Variant，包含一个数值或字符串表达式。但是，因为IsEmpty被用来确定个别变量是否已初始化，所以expression参数通常是单一变量名。说EmptyIsEmptyTrueFalse。expressionIsEmptyFalseIsEmptyvariant表IsEmptyIsEmptyDimDimMyVar,MyCheck 'TrueMyVar '赋以NullMyCheck '返回FalseMyVar 'EmptyMyCheck 'TrueIsError函返回Boolean值，表达式是否为一个错误值 说CVErr函数将实数转换成错误值就会建立错误值。IsError函数被用来确定一个数值表达式expressionIsErrorTrue；否则返False。IsErrorDimReturnVal,MyCheckMyCheck '返回True本示例使用IsError函数检查数值表达式的结果是否为错误代号。用CVErr函数从用ErrorVariantDimReturnVal,MyCheckMyCheck '返回TrueIsMissing函返回Boolean值，一个可选的Variant参数是否已经传递给过程 argnameVariant使用IsMissing函数来检测在调用一个程序时是否提供了