1. (2021高二上·临河期末) 求1-100间能被3整除的数的和

PRIVATE SUB FORM_CLICK( )

    S=0

    FOR I= 1 TO 100

        

            S=S+I

        END IF

    NEXT I

   PRINT I

END SUB