VB编写三角函数的程序

拜托，这么多输入你就用列表啦，用那么多textbox，你不累我看得都累。
还有，你要求的是什么尽量用数学的方式表达出来，有图更好
至于你的a5 d6 的问题，是因为你的是字符串运算而不是数值运算，转换一下类型就可以了
c6=clng(a5)+clng(d6)

取整数也要看你需不需要四舍五入，如果不需要，直接强制转换类型就可以了，如

c8=clng(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))

或
c8=int(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))

如果需要四舍五入可以用 Fix 来实现四舍五入取整，如
c8=Fix(sqr(cdbl(d6)*cdbl(d6)+cdbl(d7)*cdbl(d7)))

当然，如果你希望有小数，可以用如 csng 或 cdbl 转换类型为单精度或双精度类型，这要看的的需求了，不过通常做这种三角函数的时候用双精度类型比较合适。

1. c6=a5+d6 改成： c6=val(a5) + val(d6) ，因为a5和d6都是文本型，+号相当于把这两个字符串连接起来，而不是进行运算。要用val函数把a5和d6转成数值型再加，才是加法运算。

2. c8=fix(sqr(d6*d6+d7*d7)) ，fix就是vb内置的取整函数。

3. b1=atn(a2/a5) ，atn就是vb内置的反正切函数。

4. b4=sqr(b2*b2+b3*b3+2*b2*b3*cos(b1)) ，sqr就是vb内置的开平方函数。