这样改试试

Option Explicit

Function action

Dim TJJMZ1_N,TJJXZ1_N,TJJWZ1_N

TJJMZ1_N=HMIRuntime.Tags("TJJMZ1").Read

TJJXZ1_N=HMIRuntime.Tags("TJJXZ1").Read

TJJWZ1_N=HMIRuntime.Tags("TJJWZ1").Read

If  TJJMZ1_N>=1 And  TJJMZ1_N<11 Then 

    TJJWZ1_N=80+(TJJMZ1_N-1)*3

End If

If  TJJMZ1_N>11 And  TJJMZ1_N<=65 Then 

    TJJWZ1_N=110+(TJJMZ1_N-11)*10

End If

HMIRuntime.Tags("TJJWZ1").Write TJJWZ1_N

If  TJJMZ1_N>=1 And  TJJMZ1_N<11 Then 

    TJJXZ1_N=TJJMZ1_N-10

End If

If  TJJMZ1_N>11 And  TJJMZ1_N<=65 Then 

    TJJXZ1_N=TJJMZ1_N.Value-30

End If

HMIRuntime.Tags("TJJXZ1").Write TJJXZ1_N

End Function