新建一表單，在表單上畫一個名為Text1的的文本框和一個名Commend1的命令按鈕，單擊該命令按鈕，隨機產生三個100—300之間的整數，判斷這三個整數是否能構成三角形，如不能，重新產生三個100—300之間的整數，直至三個數可以直接構成三角形，然后求出三角形的面積，并在文本框中輸出三角形的面積（保留兩位有效數字），同時在表單上畫出這個三角形。
uj5u.com熱心網友回復：
如何判斷3個整數是否能構成三角形？uj5u.com熱心網友回復：
呵呵。。。樓主說的三個整數可能是指這三個整數對應的線段能不能組成三角形吧。。
uj5u.com熱心網友回復：
我明白樓主的意思，但3個整數能否構成三角形早就忘了。
如100,200,300這三個數能嗎？
uj5u.com熱心網友回復：
三個整數...三個坐標還差不多, 三個整數能干啥?
uj5u.com熱心網友回復：
三個整數是三角形三條邊的長度就有可能構成三角形了哇
uj5u.com熱心網友回復：
如果是三條邊長的話, 只要最大的數小于其余兩個數字之和即可構成三角形. 然后直接套海倫公式就可以得出面積.
初中數學知識.
uj5u.com熱心網友回復：
貌似：If (a + b > c) Or (b + c > a) Or (c + a > b) Then
s = ( ((a + b + c) * (a + b - c) * (b + c - a) * (c + a -b)) ^ 1/2) / 4
End If
三角形兩邊和大于第三邊。
uj5u.com熱心網友回復：
暈。。。。三角形任意兩邊之和必須大于第三邊。。。
三角形任意兩邊之差必須小于第三邊。。。
uj5u.com熱心網友回復：
換個意思說，就是隨機產生3個整數，然后判斷能不能構成三角形，如能，就計算三角形的面積，用海倫公式：設P=（a+b+c）/2 則：面積S=(p(p-a)(p-b)(p-c))^0.5,a,b,c為三角形三邊長度.如何判斷能否構成三角形呢？用a+b>c 且a-b<c就行了
然后就可以畫圖了，應為對圖形沒要求，所以只需要畫出任何一個三邊邊長為a,b,c的三角形就行了
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim t
Randomize
Do
t = Split(Int(100 + Rnd * 200) & " " & Int(100 + Rnd * 200) & " " & Int(100 + Rnd * 200))
Me.Caption = Join(t, ",")
Loop Until area(Val(t(0)), Val(t(1)), Val(t(2))) = True
End Sub
Private Sub Form_Load()
Me.Scale (-100, 400)-(400, -100)
End Sub
Function area(a, b, c) As Boolean
If (a + b > c) And (b + c > a) And (c + a > b) Then
area = True
Text1.Text = (((a + b + c) * (a + b - c) * (b + c - a) * (c + a - b)) ^ 1 / 2) / 4
Dim cosb As Single
cosb = (a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c)
Me.Cls
Me.Line (0, 0)-(b, 0), vbRed
Me.Line (0, 0)-(a * cosb, a * Sqr(1 - cosb ^ 2)), vbRed
Me.Line (b, 0)-(a * cosb, a * Sqr(1 - cosb ^ 2)), vbRed
End If
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/118106.html
標籤：VBA