编写程序输入1~100之间能同时被2和9整除的数的和。

x=0
FOR i = 1 to 100
IF I%2=0.AND.I%9=0
        x=x+i
    ENDIF
NEXT
thisform.text1.Value=x

set talk off
clea
s=0
i=0
for i=1 to 100
 if mod(i,2)=0 and mod(i,9)=0
  s=s+i
 endi
next
? s
set talk on
retu