使用vb实现光学折射模拟