#defineN10
intmain()
{
inti;
longterm,sum;
term=1;
sum=0;
for(i=1;i<=N;++i)
{
sum+=term;
term=term*10+1;
}
printf("%ld\n",sum);
return0;
}
如果最后一项中1的个数超过10个，就不能用这种方法了。
大过年的就帮你写了吧。另外VB不是语言，而是编程环境。BASIC才是语言。
BASIC代码如下：
PublicFunctionAdd(NAsInteger)AsLong
termAsLong
sumAsLong
term=1
sum=0
Fori=1ToN
sum=sum+term
term=term*10+1
Nexti
Add=sum
EndFunction
