摘要:
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)
'根据长度折分.........................
阅读全文