求3+33+333+3333+….+333333333的值

Dim a As Integer, b As Double, s As Double
b = 3
s = 3
For a = 1 To 8
b = b + b * 10 ^ a
s = s + b
Next
Print s

dim m as string,n as string,s as unsigned long //范围是0-4294967295
n="3"
s=0
for i=1 to 9
m=""
for j= to i
m=m+n
next j
s=s+val(m)
next i

dim m as string,n as string,s as integer
n="3"
s=0
for i=1 to 9
m=""
for j= to i
m=m+n
next j
s=s+val(m)
next i