修改程序如下（大神莫笑，编程新手多指教）有效果。

FUNCTION_BLOCK FB2000

VAR_TEMP
  
    // Temporary Variable
END_VAR

VAR
 A:ARRAY [1..3]OF REAL;  // Static Variables
 cycle:INT;

END_VAR// Block Parameters

VAR_INPUT
   IN:BOOL;
   parameter:REAL; // Input Parameters

END_VAR

VAR_IN_OUT
    // I/O Parameters
END_VAR

VAR_OUTPUT
    OUT:BOOL;// Output Parameters
    status:REAL;

END_VAR

begin
 cycle:=cycle+1;

    IF not IN  THEN
       
      A[cycle]:=parameter; // Statement Section
    
     ELSE
        // Statement Section_ELSE
        ;
    END_IF;
   
     IF cycle = 3 THEN
       
       status:=(A[1]+A[2]+A[3])/3;
  
    ELSE
        // Statement Section_ELSE
        ;
    END_IF;

   
   
    IF cycle > 3 THEN
        // Statement Section_IF
       cycle:=0;
      
       ELSE
        // Statement Section_ELSE
        ;
    END_IF;