華閱文章網
visual foxpro6.0中for-endfor語句高手請進、急
spaces) + replicate("store 7 to stars &&；星星的數量
store int(stars/*" ";, i)
store spaces - 1 to spaces
next
你大概是要這個效果吧；2) to spaces &&；空格的數量
for i = 1 to stars step 2
? replicate("
1!+2!+3!+
static long GetResult(int n)
{
long sum=0;
for(int i=1;i<=n;i++)
{
long x=1;
for(int j=1;j<=i;j++)
{
x=x*j;
}
sum=sum+x;
}
return sum;
}
//如果是VB 請使用 From 1 To n
100以內的偶數和（for語句）,100以內的奇數和（for語句）
100以內的偶數和（for語句）
s=0
for i=2 to 100 step 2
s=s+i
endfor
? s
或
s=0
for i=1 to 100
if mod(i,2)=0
s=s+i
endif
endfor
? s
100以內的奇數和（for語句）
s=0
for i=1 to 100 step 2
s=s+i
endfor
? s
或
s=0
for i=1 to 100
if mod(i,2)=1
s=s+i
endif
endfor
? s