Numerical schemes of diffusion asymptotics and moment closures for kinetic equations