现在最先进的机器人:几个ASP确认问题

1、<%x=clng(request.form("a")) 'clng()函数可以把数值前面的0都去掉
y=len(x) 'y即为A项数值的位数%>
2、<%x=1234567890
y=mid(x,6,1) '一即为第6个数字%>
3、<%x=request.form("a")
y=instr(x,"8") 'y即为A项中第一次8出现的位置。%>

1)
sub()
dim m
dim x,y,i
x=1
y=10
document.write("请输入一个整数:")
m=inputbox("输入整数")
for i= 0 to m
if i%y==0
x=x*10
y=y*10
end if
loop
end sub
最后x是几就是几位数

2,3题就不做了
给个参考:
第6讲：VBScript的内部函数（一）
6.1 VBScript内部函数的类型
n 字符串操作函数（本讲重点）

n 数据转换函数

n 数学函数

n 时间和日期函数

n 布尔函数

6.2 Asc函数
n 语法及其说明
Asc（String）（返回字符串的第一个字母对应的ASCII字符代码，String为任意有效的字符串表达式，若String为空，则将发生运行错误）

n 实例
Asc（“Apple”）将返回字母A的ASCII字符码，即65（同一字母的大小写其ASCII不一样，切记！）

6.3 Chr函数
n 语法及其说明
Chr（CharCode）（CharCode必须是能标识字符的数字）

n 实例
Din MyChar

MyChar＝Chr（66）‘返回值B

MyChar＝Chr（98）‘返回值b

MyChar＝Chr（63）‘返回值？

MyChar＝Chr（38）‘返回值&

表5-1 常用的字符串常量

常量
值
描述

VbCr
Chr(13)
回车符

vbCrLf
Chr(13) & Chr(10)
回车符与换行符

VbLf
Chr(10)
换行符

VbNullChar
Chr(0)
值为0的字符

vbNullString
值为0的字符串
与零长度字符串（“”）不同；用于调用外部过程

6.4 InStr函数
n 语法及其说明
InStr（〔Start，〕String1，String2〔，Compare〕）

² Start：可选项，数值表达式，用于设置每次搜索的开始位置，若省略，将从第一个字符的位置开始搜索，若Start包含Null，则肯定出现脚本报错，若指定Compare参数，则必须有Start参数；

² String1：必选项，接受搜索的字符串表达式；

² String2：必选项，接受搜索的字符串表达式；

² Compare：可选项，指示在计算子字符串时使用的比较类型的数值（相关数值参见表5-2、5-3）

表5-2 InStr函数的Compare参数的值

常数
值
描述

VbBinaryCompare
0
执行二进制比较

VbTextCompare
1
执行文本比较

表5-3 InStr函数的返回值

条件
返回值

String1为零长度
0

String1为Null
Null

String2为零长度
Start

String2为Null
Null

String2没有找到
0

在String1中找到String2
找到匹配字符串的位置

Start >Len（String2）
0

n 实例
Dim SearchString，SearchChar，Position（定义变量）

SearchString＝“This is my homepage”（接受搜索的字符串）

SearchChar＝“h”（指定目标搜索字符串）

Position＝InStr（4，SearchString，SearchChar，1）（从SearchString的第4个字符开始搜索SearchChar，进行文本比较，该语句的返回值为12）

Position＝InStr（1，SearchString，SearchChar，0）（从SearchString的第1个字符开始搜索SearchChar，进行二进制比较，该语句的返回值为2）

Position＝InStr（SearchString，SearchChar）（省略了可选参数，表示从SearchString的第1个字符开始搜索SearchChar，进行二进制比较，该语句的返回值为2）

Position＝InStr（1，SearchString，“S”）（从SearchString的第1个字符开始进行二进制的比较，搜索字符“S”，该语句的返回值为0，因为字符串“S”没有找到）

6.5 InStrRev函数
n 语法及其说明
InStrRev（String1，String2〔，Start〔，Copmare〕〕）（InStrRev函数与InStr函数的功能类似，不同之处在于InStrRev函数是从字符串尾部开始进行搜索，而InStr函数是从字符串首部开始搜索）

² String1：必选项，接受搜索的字符串表达式；

² String2：必选项，被搜索的字符串表达式；

² Start：可选项，数值表达式，用于设置每次搜索的开始位置，若省略，则默认值为－1，表示从最后一个位置的字符开始搜索，若Start包含Null，则出现错误；

² Compare：可选项，在计算子字符串时，指示要使用的比较类型的数值，若省略，将执行二进制比较，相关参数参见表5-4、5-5；

表5-4 InStrRev函数的Compare参数的值

常数
值
描述

VbBinaryCompare
0
执行二进制比较

VbDatabaseCompare
2
执行基于包含在数据库中的信息的比较

表5-5 InStrRev函数的返回值

条件
返回值

String1为零长度
0

String1为Null
Null

String2为零长度
Start

String2为Null
Null

String2没有找到
0

在String1中找到String2
找到匹配字符串的位置

Start >Len（String2）
0

n 实例
Dim SearchString，SearchChar，Position（定义变量）

SearchString＝“This is my homepage”（接受搜索的字符串）

SearchChar＝“h”（指定目标搜索字符串）

Position＝InStrRev（SearchString，SearchChar，12，0）（从SearchString结尾的第12个字符开始搜索SearchChar，比较类型是二进制比较，该语句的返回值为12）

Position＝InStrRev（SearchString，SearchChar，－1，1）（从SearchString的结尾开始搜索SearchChar，比较类型为文本比较，该语句的返回值为12）

Position＝InStrRev（SearchString，SearchChar，6）（从SearchString结尾的第6个字符开始搜索SearchChar，比较类型省略，表示默认的二进制比较，该语句的返回值为2）

6.6 LCase函数
n 语法及其说明
LCase（String）（将大写字母转换成小写字母，若String本身即为小写字母或非字母字符，函数的返回值不变；若String为Null，则函数返回值为Null）

n 实例
LCase（“TSINGHUAGYC”）＝“tsinghuagyc”

LCase（“abcd”）＝“abcd”

LCase（“AbCd”）＝“abcd”

6.7 UCase函数
n 语法及其说明
UCase（String）（将小写字母转换成大写字母，其它转换规则与LCase函数类似）

n 实例
UCase（“Apple”）＝“APPLE”

UCase（“abcd”）＝“ABCD”

6.8 Left函数
n 语法及其说明
Left（String，Length）（返回指定数目的，从字符串左边算起的字符）

² String：字符串表达式，其最左边的字符被返回，若String参数中包含Null，则返回Null；

² Length：数值表达式，指定要返回的字符数目，如果Length＝0，则返回零长度的字符串（“”），如果Length大于或等于String的总字符数，则返回整个字符串；

n 实例
Left（“VBScript”，5）＝“VBScr”

Left（“Federal Education”，10）＝“Federal Ed”（注意：空格也是字符）

Left（“abcd”，12）＝“abcd”

6.9 Right函数
n 语法及其说明
Right（String，Length）（从字符串右边返回指定数目的字符）

² String：字符串表达式，其最右边的字符被返回，若String参数中包含Null，则返回Null；

² Length：数值表达式，指定要返回的字符数目，如果Length＝0，则返回零长度的字符串（“”），如果Length大于或等于String的总字符数，则返回整个字符串；

n 实例
Right（“VBScript”，5）＝“cript”

Right（“Federal Education”，11）＝“l Education”（注意：空格也是字符）

Right（“abcd”，12）＝“abcd”

6.10 Mid函数
n 语法及其说明
Mid（String，Start〔，Length〕）（从字符串中返回指定数目的字符）

² String：字符串表达式，其最右边的字符被返回，若String参数中包含Null，则返回Null；

² Start：String中被提取的字符部分的开始位置，若Start超过了String中字符的数目，Mid将返回零长度的字符串（“”）；

² Length：要返回的字符数，如果省略或Length超过文本的字符数（包括Start处的字符），将返回字符串中从Start到字符串结束的所有字符；

n 实例
Mid（“She is a Good Girl!！！！”，8，18）＝“a Good Girl!!!!”（空格也属于字符）

Mid（“abcd”，5，2）＝“”（Start的值大于字符个数）

Mid（“abcd”，2）＝“bcd”（Length省略）

Mid（“abcdef”，3，10）＝“cdef”（Length的值超过字符个数）

6.11 Len函数
n 语法及其说明
Len（String | VarName）（返回字符串内字符的数目）

² String：任意有效的字符串表达式，如果String参数包含Null，则Len函数的返回值为Null；

² VarNme：任意有效的变量名，如果VarName参数包含Null，则Len函数的返回值为Null；

n 实例
Len（“When a Girl Loves a Man！”）＝24

Dim MyVarChar

If Len（MyVarChar）>50 Then MsgBox “请输入正确的用户名！！”

6.12 Ltrim、Rtrim和Trim函数
n 语法及其说明
² Ltrim函数返回不带前导空格的字符串，其语法为Ltrim（String）；

² Rtrim函数返回不带后续空格的字符串，其语法为Rtrim（String）；

² Trim函数返回不带前导与后续空格的字符串，其语法为Trim（String）；

n 实例
Ltrim（“ abcd”）＝“abcd”

Rtrim（“abcd ”）＝“abcd”

Trim（“ abcd ”）＝“abcd”

6.13 StrComp函数
n 语法及其说明
StrComp（String1，String2〔，Compare〕）（返回一个表明字符串比较结果的值）

² String1：必选项，任意有效的字符串表达式；

² String2：必选项，任意有效的字符串表达式；

² Compare：可选项，指示在计算字符串时使用的比较类型的数值，若省略，则执行二进制比较，相关数值见5-6、5-7；

表5-6 StrComp函数中Compare的参数值

常数
值
描述

VbBinaryCompare
0
执行二进制比较

VbTextCompare
1
执行文本比较

表5-7 StrComp函数的返回值

条件
返回值

String1小于String2
－1

String1大于String2
0

String1等于String2
1

String1或String2为Null
Null

n 实例
Dim Str1，Str2，MyChar

Str1＝“VBScript”

Str2＝“vbscript”

MyChar＝StrComp（Str1，Str2，1）（返回0）

MyChar＝StrComp（Str1，Str2，0）（返回－1）

MyChar＝StrComp（Str1，Str2）（返回1）

6.14 StrReverse函数
n 语法及其说明
StrReverse（String）（返回一个与指定字符串顺序相反的字符串，String为进行字符串反向的字符串，若String为零长度字符串“”，则函数的返回值为“”，若String为Null，则函数在执行时出现错误）

n 实例
StrReverse（“guoyongcan”）＝“nacgnoyoug”

StrReverse（“abcd”）＝“dcba”

6.15 String函数
n 语法及其说明
String（Number，Char|ASCII）（返回一个字符串，字符串的组成为将Char/CharASCII重复Number次）

² String：关键字，必选；

² Number：必选，表示重复的次数；

² Char|ASCII：必选，字符或字符的ASCII码；

n 实例
String（5，“A”）＝“AAAAA”

String（5，65）＝“AAAAA”（字母A的ASCII码为65）

String（5,“abcd”）＝“aaaaa”（若Char为字符串，函数的返回值同样为Char的第一个字母）

6.16 Space函数
n 语法及其说明
Space（Number）（返回由指定数目的空格组成的字符串）

² Space：必选关键字；

² Number：必选，表示空格的个数；

n 实例
Dim Char，MyChar

Char＝Space（5）

MyChar＝“新北京”& Char &“新奥运”

6.17 Replace函数
n 语法及其说明
Replace（Expression，Find，ReplaceWith〔，Compare〔，Count〔，Start〕〕〕）（返回字符串，其中指定数目的某子字符串被替换为另一个子字符串）

² Expression：必选项，字符串表达式，需包含要替代的子字符串；

² Find：必选项，被搜索的子字符串；

² ReplaceWith：必选项，用于替换的字符串；

² Start：可选项，Expression中开始搜索子字符串的位置，若省略，其默认值为1；

² Count：可选项，执行子字符串替换的数目，若省略，默认值为－1，表示进行所有可能的替换，在和Start关联时必须用；

² Compare：可选项，指示在计算子字符串时使用的比较类型的数值，若省略，缺省值为0，即进行二进制比较，相关参数见表5-8、5-9；

表5-8 Replace函数中的Compare参数的可选值

常数
值
描述

VbBinaryCompare
0
执行二进制比较

VbTextCompare
1
执行文本比较

表5-9 Replace函数的返回值

条件
返回值

Expression为零长度
零长度字符串（“”）

Expression为Null
错误

Find为零长度
Expression的副本

Replacewith为零长度
Expression副本，其中删除了所有由Find参数指定的内容

Start>Len（Expression）
零长度字符串（“”）

Count为0
Expression的副本

n 实例
Replace（“ABCeabce”，“e”，“D”）＝“ABCDabcD”

Replace（“ABCeabce”，“e”，“D”，5，－1，1）＝“abcD”

兄弟你好，我现在也正在学asp的,我的回答你不要见笑
我只是路过的，看到你的问题
我记得vbscript有几个函数是专门的字符串函数
是什么，我忘记了，我在网吧上网，你回去看下asp的书，或者你去看下
<<迈致科的asp教程>>
反正你说的问题，通过vb的那几个函数都可以做到的

其实这种问题我感觉就是纯数学问题
你可以除10的倍数，然后判断他的值小于一时，在得出一共除了几次就可以了