跪求VF编写一个程序计算1到100的乘积?

、

编写程序，求四位数的偶数中，所有各位数字之和是

15

的倍数的数的和。

（

1592376

）

Set talk of

S=0

For i=1000 to 9998 Step 2

A=int(i/1000)

B=int((i-a*1000)/100)

C=int((i-a*1000-b*100)/10)

D=mod(i,1000)

If mod((a+b+c+d),15)=0

S=s+i

End if

End for

?

S

Set talk on

Return

1-1

、

编写程序，求三位数的偶数中，所有各位数字之衡脊和是

15

的倍数的数的和。

(20454)

1-2

、

编写程序，求三位数的奇数中，所有各位数字之和是

15

的倍数的数的和。

(19731)

1-3

、

编写程序，求三位数的奇数中，所有各位数字之和是

12

的倍数的数的个数。

(38)

1-4

编写程序，求四位数的奇数中，所有各位数字之积（且禅埋不为

0

）是

60

的倍数的数的和。

(3456254)

1-5

编写程序，求满足下列条件的所有四位贺拦蚂数

ABCD

的个数，该四位数是

8

的倍数，且

A+B=B+C

，即第

1

位数加上第

2

位数等于第

2

位数加上第

3

位数。

(110)

2

、

编写程序，

求

1

到

5000

之间的能被

5

整除的前若干个偶数之和，

当和值大于

500

时退出，

输出该和值。

（

550

）

Set talk off

S=0

i=2

Do while s<=500

If mod(i,5)=0

S=s+i

End if

End do

?

S

Set talk on

Return

2-1

编写程序，已知：

S=2+4+8+16+32+

„，求

S

不大于

2500

的最大值。

(2046)

Set talk off

S=0

i=2

CLEAR

SUM=0

FOR i=1 TO 10

X=1 &&下面的并备计数循环出现绝扒毁了X这个值，前面却没有赋值，故此

FOR j=1 TO i

X=X*j

ENDFOR

SUM=SUM+X &&为实现累计的效果

ENDFOR

? "1！+2！此毕+……+10！=",SUM

SET TALK ON