求2+4+6+8+10+12+14+……100

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100

           S=S+

      NEXT I

      PRINT S

      END SUB