希尔伯特变换的VB代码,本人已经试过,和matlab计算结果相同