Dim a As Double = Math.Sin(90 * Math.PI / 180)‘值 a = Math.Abs(Math.Round(a, 3)) ’3位小数绝对值textbox.text = a;其他操作稍稍修改一下就可以了
什么意思啊?还有绝对值是什么啊text1=text1 & sin(a*3.1415926/180) & vbcrlf
