编写函数 s=a+aa+aaa+…+ aa…aa(n个) a和n在1至9之间,(a=3时,aa表示33)
vb/vbscript
function intsum(n)
dim i
intsum = 0
for i = 1 to n
intsum = intsum + i * n
next
end function
vb/vbscript
function intsum(n)
dim i
intsum = 0
for i = 1 to n
intsum = intsum + i * n
next
end function