您所在位置：主题：灌水： 1+2+...+100 之牛人程序
Ilikefox
[专家分：5770] 发布于 2009-09-12 11:39:00
一牛人的程序：
s=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25 ;
+26+27+28+29+30+31+32+33+34+35+36+37+38+39+40+41+42+43+44+45+46+47+48+49+50 ;
+51+52+53+54+55+56+57+58+59+60+61+62+63+64+65+66+67+68+69+70+71+72+73+74+75 ;
+76+77+78+79+80+81+82+83+84+85+86+87+88+89+90+91+92+93+94+95+96+97+98+99+100
?"结果是：",s
另一牛人的程序：
ACTIVATE WINDOW Calculator
KEYBOARD "C"
FOR i=1 TO 99
c=LTRIM(str(i,2))+'+'
KEYBOARD c
ENDFOR
KEYBOARD "100="
DOEVENTS FORCE
?"结果是：",INT(_Calcvalue)
DEACTIVATE WINDOW Calculator
s=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25 ;
+26+27+28+29+30+31+32+33+34+35+36+37+38+39+40+41+42+43+44+45+46+47+48+49+50 ;
+51+52+53+54+55+56+57+58+59+60+61+62+63+64+65+66+67+68+69+70+71+72+73+74+75 ;
+76+77+78+79+80+81+82+83+84+85+86+87+88+89+90+91+92+93+94+95+96+97+98+99+100
?"结果是：",s
另一牛人的程序：
ACTIVATE WINDOW Calculator
KEYBOARD "C"
FOR i=1 TO 99
c=LTRIM(str(i,2))+'+'
KEYBOARD c
ENDFOR
KEYBOARD "100="
DOEVENTS FORCE
?"结果是：",INT(_Calcvalue)
DEACTIVATE WINDOW Calculator
