Question

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))

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

Answer 1

拜托，这么多输入你就用列表啦，用那么多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 转换类型为单精度或双精度类型，这要看的的需求了，不过通常做这种三角函数的时候用双精度类型比较合适。

Answer 2

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内置的开平方函数。

追问

非常感谢 但是角度那个不对吧！默认的应该是弧度的 我要用角度 是不是要换算一下

追答

你看看能不能求出弧度后，再通过什么数学公式转成角度，应该可以的吧。。。不过这种数学问题我不懂。。。帮不了你了。。

追问

好的 谢谢 这个我会 问您一下 VB中π（3.14159,。。。。。。）是用pi表示吧！

追答

不是的。vb默认没有π的，你要自己声明一个常量：

Const Pi as Double=3.1415926

然后才能引用Pi作为π