vb脚本问题？asp函数的VBScript常用函数

函数返回一个包含数组的Variant。下标由0开始。语法：Array(arglist)arglist 参数是以逗号分隔的Variant，可以是字符串，数值，日期等类型《%Dim arrn, arrsarrn = Array(1,2,3)arrs = Array(A,B,C)Response.Write arrn(1) ‘ 输出结果：2Response.Write arrs(2) ’ 输出结果：C%》 函数将一个表达式转化为数字类型表达式 CInt(expression)允许数据类型： 任何有效的字符均可实例：《%f = 234response.write cINT(f) + 2%》返回结果： 236转化字符234为数字234，如果字符串为空，则返回0值 函数建立和返回一个已注册的ACTIVEX组件的实例。表达式 CreateObject(objName)允许数据类型： objName 是任何一个有效、已注册的ACTIVEX组件的名字.实例：《%Set con = Server.CreateObject(ADODB.Connection)%》 函数转化一个表达式为字符串.表达式 CStr(expression)允许数据类型： expression 是任何有效的表达式。实例：《%s = 3 + 2response.write The 返回结果 is: & cStr(s)%》转双精度型函数　　Cdbl（数值表达式） 把数值表达式值转换为双精度型。　　转单精度型函数　　Csng（数值表达式） 把数值表达式值转换为单精度型。　　转日期型函数　　Cdate（表达式） 把表达式值转换为日期型。 　　转变体型函数　　Cvar（表达式） 把表达式值转换为变体型。 函数返回当前系统日期.表达式 Date()允许数据类型： None.实例：《%=Date%》返回结果： 9/9/00 函数返回一个被改变了的日期。表达式 DateAdd(timeinterval,number,date)允许数据类型：timeinterval is the time interval to add;number is amount of time intervals to add;and date is the starting date.实例：《%currentDate = #9/9/00#newDate = DateAdd(m,3,currentDate)response.write newDate%》《%currentDate = #12:34:45 PM#newDate = DateAdd(h,3,currentDate)response.write newDate%》返回结果： 9/9/003:34:45 PMm = month;d = day;If currentDate is in time format then,h = hour;s = second; 函数返回两个日期之间的差值。表达式 DateDiff(timeinterval,date1,date2 [,firstdayofweek [,firstweekofyear]])允许数据类型： timeinterval 表示相隔时间的类型，如“M“表示“月”。实例：《%fromDate = #9/9/00#toDate = #1/1/2000#response.write There are & _DateDiff(d,fromDate,toDate) & _ days to millenium from 9/9/00.%》返回结果： 从9/9/00 到2000年还有 150 天. 函数返回一个月的第几日 .表达式 Day(date)允许数据类型： date 是任何有效的日期。实例：《%=Day(#9/9/00#)%》返回结果： 4 函数返回表达式，此表达式已被格式化为货币值表达式 formatCurrency(Expression [,Digit [,LeadingDigit [,Paren [,GroupDigit]]]])允许数据类型： Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置； LeadingDigit 三态常数，指示是否显示小数值小数点前面的零。实例：《%=formatCurrency（34.3456）%》返回结果： $34.35 函数返回表达式，此表达式已被格式化为日期或时间表达式 formatDateTime(Date,[,Namedformat])允许数据类型： Namedformat 指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate.实例：《%=formatDateTime(09/9/00,vbLongDate)%》返回结果： Sunday,September 09,2000 函数返回表达式，此表达式已被格式化为数值.表达式 formatNumber(Expression [,Digit [,LeadingDigit [,Paren [,GroupDigit]]]])允许数据类型： Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。； LeadingDigit i指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。； Paren 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。； GroupDigit i指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置..实例：《%=formatNumber（45.324567,3）%》返回结果： 45.325 函数返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以 100 ）。（%)表达式 formatPercent(Expression [,Digit [,LeadingDigit [,Paren [,GroupDigit]]]])允许数据类型： 同上.实例：《%=formatPercent(0.45267,3）%》返回结果： 45.267% 函数以24时返回小时数.表达式 Hour(time)允许数据类型：实例：《%=Hour(#4:45:34 PM#)%》返回结果： 16（Hour has been converted to 24-hour system) 函数返回字符或字符串在另一个字符串中第一次出现的位置.表达式 Instr([start,] strToBeSearched,strSearchFor [,compare])允许数据类型： Start为搜索的起始值，strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符.compare比较方式（详细见ASP常数）实例：《%strText = This is a test!!pos = Instr(strText,a)response.write pos%》返回结果： 9 InstrRev()函数同上，只是从字符串的最后一个搜索起表达式InstrRev([start,] strToBeSearched,strSearchFor [,compare])允许数据类型： 同上.实例：《%strText = This is a test!!pos = InstrRev(strText,s)response.write pos%》返回结果： 13 函数返回数值类型，不四舍五入。表达式 Int(number)允许数据类型：实例：《%=INT（32.89）%》返回结果： 32 IsArray()函数判断一对象是否为数组，返回布尔值 .表达式IsArray(name)实例：《%strTest = Test!response.write IsArray(strTest)%》返回结果： False 函数判断一对象是否为日期，返回布尔值表达式 IsDate(expression)实例：《%strTest = 9/4/2000response.write IsDate(strTest)%》返回结果： True 函数判断一对象是否初始化，返回布尔值.表达式 IsEmpty(expression)实例：《%Dim iresponse.write IsEmpty(i)%》返回结果： True 函数判断一对象是否为空，返回布尔值.表达式 IsNull(expression)实例：《%Dim iresponse.write IsNull(i)%》返回结果： False 函数判断一对象是否为数字，返回布尔值.表达式 IsNumeric(expression)实例：《%i = 345response.write IsNumeric(i)%》返回结果： True就算数字加了引号，ASP还是认为它是数字。 IsObject()函数判断一对象是否为对象，返回布尔值.表达式 IsObject(expression)实例：《%Set con = Server.CreateObject(ADODB.Connection)response.write IsObject(con)%》返回结果： True 函数返回指定数组维的最小可用下标.表达式 Lbound(arrayname [,dimension])实例：《%i = Array(Monday,Tuesday,Wednesday)response.write LBound(i)%》返回结果： 0 函数 返回字符串的小写形式表达式 Lcase(string)实例：《%strTest = This is a test!response.write LCase(strTest)%》返回结果： this is a test! 函数返回字符串左边第length个字符以前的字符（含第length个字符）.表达式 Left(string,length)实例：《%strTest = This is a test!response.write Left(strTest,3）%》返回结果： Thi 函数返回字符串的长度.表达式 Len(string | varName)实例：《%strTest = This is a test!response.write Len(strTest)%》返回结果： 15 函数去掉字符串左边的空格.表达式 LTrim(string)实例：《%strTest = This is a test!response.write LTrim(strTest)%》返回结果： This is a test! 函数返回特定长度的字符串（从start开始，长度为length).表达式 Mid(string,start [,length])实例：《%strTest = This is a test! Today is Monday.response.write Mid(strTest,17,5）%》返回结果： Today 函数返回时间的分钟.表达式 Minute(time)实例：《%=Minute(#12:45:32 PM#)%》返回结果： 45 函数返回日期.表达式 Month(date)实例：《%=Month(#08/04/99#)%》返回结果： 8MonthName()函数返回指定月份表达式 MonthName(month,[,Abb])实例：《%=MonthName(Month(#08/04/99#))%》返回结果： August 函数返回系统时间表达式 Now()实例：《%=Now%》返回结果： 9/9/00 9:30:16 AM 函数返回字符串右边第length个字符以前的字符（含第length个字符）.表达式 Right(string,length)实例：《%strTest = This is an test!response.write Right(strTest,3）%》返回结果： st! 函数产生一个随机数.表达式 Rnd [ (number) ]实例：《%Randomize()response.write RND()%》返回结果： 任何一个在0 到 1 之间的数 函数返回按指定位数进行四舍五入的数值.表达式 Round(expression [,numRight])实例：《%i = 32.45678response.write Round(i)%》返回结果： 32 函数去掉字符串右边的空格.表达式 Rtrim(string)实例：《%strTest = This is a test!! response.write RTrim(strTest)%》返回结果： This is a test!! 函数将一个字符串分割并返回分割结果表达式 Split (S[，d])实例：《%V= Split(A,B,C)For i = 0 To UBound(V)Response.Write V(i)Next%》返回结果： A B C 函数返回秒.表达式 Second(time)实例：《%=Second(#12:34:28 PM#)%》返回结果： 28 函数反排一字符串表达式StrReverse(string)实例：《%strTest = This is a test!!response.write StrReverse(strTest)%》返回结果： !!tset a si sihT 函数返回系统时间.表达式 Time()实例：《%=Time%》返回结果： 9:58:28 AM 函数去掉字符串左右的空格.表达式 Trim(string)实例：《%strTest = This is a test!! response.write Trim(strTest)%》返回结果： This is a test!! 函数返回指定数组维数的最大可用下标》.表达式Ubound(arrayname [,dimension])实例：《%i = Array(Monday,Tuesday,Wednesday)response.write UBound(i)%》返回结果： 2 函数返回字符串的大写形式.表达式 UCase(string)允许数据类型：实例：《%strTest = This is a test!!response.write UCase(strTest)%》返回结果： THIS IS A TEST!! 函数返回指示变量子类型的值表达式 VarType(varName)实例：《%i = 3response.write varType(i)%》返回结果： 2（数字）详见asp常数 函数返回在一周的第几天.表达式 WeekDay(date [,firstdayofweek])实例：《%d = #9/9/00#response.write Weekday(d)%》返回结果： 4（星期三） 函数返回一周第几天的名字.表达式WeekDayName(weekday [,Abb [,firstdayofweek]])实例：《%d = #9/9/00#response.write WeekdayName(Weekday(d))%》返回结果： Wednesday 函数返回当前的年份.表达式 Year(date)实例：《%=Year(#9/9/00#)%》返回结果： 1999

　　下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click-vb脚本

        Dim nianxian As Integer ’年限变量

        Dim dingcun As Integer ’定存变量

        Dim fuli_big As Long ’大复利

        Dim fuli_small As Long ’小复利

        Dim i As Integer ’循环变量

        Dim DATAstring As String ’数据字符串

        nianxian = Val(年限_TextBox.Text)

        dingcun = Val(定存_TextBox.Text)

        DATAstring = ““

        For i = 1 To nianxian

            fuli_small = dingcun * (1 + 0.1875)

            dingcun = fuli_small

            fuli_big = fuli_big + fuli_small

            DATAstring = DATAstring + “[“ + Trim(Str(i)) + “]“ + Str(fuli_big) + Chr(13) + Chr(10)

            ’DATAstring = DATAstring + “[“ + Trim(Str(i)) + “]“ + Str(fuli_small) + Chr(13) + Chr(10)-vb

        Next

        ’fuli_big = fuli_small

        TextBox1.Text = DATAstring

        结果_TextBox.Text = Str(fuli_big) + “元“

    End Sub