VB中已知A角与B角,B-A得出C角,求tan-1（C）,如何实现.本人vb初学者,

Question

VB中已知A角与B角,B-A得出C角,求tan-1（C）,如何实现.本人vb初学者,

Answer 1

楼上竟然不知道tan-1是什么函数,挺有意思.你是要求一个数的反正切值.幸好在vb6(你用的是vb6没错吧?)中有直接算反正切的函数,是Atn().不过我有一个小疑问,A和B都是角度,相减之后C还是角度,虽然角度也是数值,但你给一个角度来求反正切就显得有些没有实际意义了.一般都是已知一个角的正切值,将这个值进行反正切能求出这个角的大小.如果完全按照你的要求,代码应该是这样：
A = InputBox("输入角A")
B = InputBox("输入角B")
C = B - A
MsgBox "tan-1(C) = " & Atn(C)
保证功能及运行效果相同,你的代码可以简化成一句：
MsgBox "tan-1(C) = " & Atn(0 - InputBox("输入角A") + InputBox("输入角B"))
最后提醒一下,vb对于三角函数的运算都是采用弧度制的,所以要格外小心.