谁能帮莪搞定这个小问题，50分

Question

如给予a.b.c 三个数。点击形成键，就会自动形成由a/b/c组成的三角形。其中定义三角形的两边之和大于第三边，才能构成三角形。即：a<b+c。

Answer 1

什么意思？难道只是用正或余弦定理求一个角，然后画坐标么？
Private Sub Command1_Click()
'由正弦定理可知 a/sinA＝b/sinB＝c/sinC＝2R 当然也可用余弦定理求
's=(a+b+c)/2 ,R=abc/sqr(s(s-a)(s-b)(s-c))
Dim a, b, c, iA As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b + c And b < a + c And c < a + b Then
s = (a + b + c) / 2
R = a * b * c / (4 * Sqr(s * (s - a) * (s - b) * (s - c)))Picture1.Line (0, 0)-(200 * Sqr(b ^ 2 - (a * b / (2 * R)) ^ 2), 200 * a * b / (2 * R))
Picture1.Line (0, 0)-(200 * c, 0)
Picture1.Line (200 * c, 0)-(200 * Sqr(b ^ 2 - (a * b / (2 * R)) ^ 2), 200 * a * b / (2 * R))
End If
End SubPrivate Function Arcsin(X As Single) As Single
Dim Temp As Double
If X = 0 Then
Temp = 0
Else
Temp = Atn(X / Sqr(1 - X * X))
End If
Arcsin = Temp
End Function