跪求光的反射和折射的vb程序

跪求光的反射和折射的vb程序 --------------------编程问答-------------------- 顶顶，同等算法。 --------------------编程问答-------------------- 设a1角是法线和入射角的夹角，a2是法线和出射角的夹角，c1是光在介质1里面的光速，c2是光在介质2里面的光速。
反射：
a2 = a1
折射：
a2 = a1 * c1 / c2 --------------------编程问答-------------------- 设a1角是法线和入射角的夹角，a2是法线和出射角的夹角，c1是入射光在介质1里面的速度，c2是折射光在介质2里面的速度。
反射：
a2 = a1
折射：
sin(a1*3.1415/180)/sin(a2*3.1415/180)=c1/c2 --------------------编程问答-------------------- 楼主要得是程序，但这个应该是纯物理问题吧？ --------------------编程问答-------------------- 物理...伤心之痛

补充：VB ,  基础类