declare function size(aa as string) as string
sub main
dim a,as_string as string
a=inputbox("please input first number")
as_string=size(a)
end sub
function size(a as string)
dim a_a,size_na,size_length,A_string,size_test as string
dim q,w,a_if,a_instr ,a_length as integer
size_length=""
a_length=len(a)
'根据长度折分
for q=1 to a_length
a_a=mid(a,q,1)
a_if=instr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ",a_a)
A_string="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
if(a_if>26) then
size_na=a_a
else
size_na=mid(A_string,a_if,1)
'msgbox size_na+"***"
end if
size_length=size_length+size_na
next q
msgbox size_length
'msgbox a_if
'if(a_if>26 or a_if<1) then
'a =inputbox("请重新输入")
' end if
' msgbox size_na
'size_na=lof(a)
'msgbox size_na
end function