dim a ,i ,b,c as string '声明变量a =13i =0c=1.008while b>26b = c^(i+1)*a ' b= c的 i+1次方 乘以a i=i+1wendmsgbox i
