VB编写三角函数的程序

VB编写三角函数的程序
我是这么编写的里面中文是不会的地方
dim a as integer
dim bas integer
dim c as integer
dim d as integer
private sub commandbutton2_click()
a1=textbox1.text
a2=textbox2.text
a3=textbox3.text
a4=textbox4.text
a5=textbox5.text
c1=textbox7.text
c2=textbox8.text
c3=textbox9.text
c4=textbox10.text
c5=textbox11.text
d1=textbox14.text
d2=textbox15.text
d3=textbox16.text
d4=textbox17.text
d5=textbox18.text
d6=textbox19.text
d7=textbox20.text
c6=a5+d6
label18.caption=c6'这里就出现问题了 比如说我的a5=10,d6=5.则显示出来c6=105而不是15
c7=c6+d3
c8=sqr(d6*d6+d7*d7)'这里我不想要小数点后面的了,取整数
b1=这里要编一个反正切a2/a5 的度数
b4=开平方（b2*b2+b3*b3+2*b2*b3*cos(b1))

谢谢了好久没用忘完啦求指点