如何用VB6编写 已知空间任意可构成三角形的三点 求其任两边夹角 请高手详细回答 编写完整 非常感谢 急急急

Answer 1

【数学】
设该三点坐标为A(x1,y1,z1)B(x2,y2,z2)C(x3,y3,z3)；
可以解出所有边的长度，之后通过余弦定理得到各角的余弦。

【VB】新建一个Command1控件，输入代码如下：
Private Sub Command1_Click()
dim x(3),y(3),z(3),i,j,k as single '记录坐标和辅助变量

for i = 1 to 3
x(i) = inputbox("请输入第 " & i & " 点的X坐标")
y(i) = inputbox("请输入第 " & i & " 点的Y坐标")
z(i) = inputbox("请输入第 " & i & " 点的Z坐标")
next

dim length(3) as single '各边长度
length(1) = Sqr((x(2)-x(1))^2+(y(2)-y(1))^2+(z(2)-z(1))^2)
length(2) = Sqr((x(3)-x(2))^2+(y(3)-y(2))^2+(z(3)-z(2))^2)
length(3) = Sqr((x(3)-x(1))^2+(y(3)-y(1))^2+(z(3)-z(1))^2)

dim cosangle(3) as single '各角余弦
cosangle(1) = (length(1)^2+length(2)^2-length(3)^2)/(2*length(1)*length(2))
cosangle(2) = (length(2)^2+length(3)^2-length(1)^2)/(2*length(2)*length(3))
cosangle(3) = (length(3)^2+length(1)^2-length(2)^2)/(2*length(3)*length(1))

msgbox CStr(cosangle(1)) & vbcrlf & CStr(cosangle(2)) & vbcrlf & CStr(cosangle(3))
End Sub

追问

非常感谢 但我是新手 能否把控件的摆放设置也解释一下 还有msgbox这一行啥意思 感激不尽！！！

追答

这个例子里的输入和输出用的都是最简单的框~
Inputbox函数可以打开一个输入框，可以输入内容的；
Msgbox是输出结果的消息框，CStr是把数字转换成文本的函数。vbcrlf是加入回车符~

控件摆放的话……只需要在窗体上画一个Command1就完了~