(一)寫一程式輸入三角形的任意三邊長
1. 判斷該三邊是否構成三角形
2. 如果1成立，則判斷其為直角三角形、銳角三角形或是鈍角三角形
3. 分別求出其面積、周長和(必選題)
提示：先將輸入的三邊長作排序，找出最長邊、次長邊及第三邊長 再去判斷是否符合三角形的條件
(二)寫一程式，輸入二數，印出其最大公因數及最小公倍數。(輾轉相除法)
(三)以vb程式畫出一張中華民國國旗
(四)寫一程式輸入存款本金p及年利率r，分別按照單利及複利計算，並輸出存款1年、2年..
.....10年的本利和
單利算法：1+r*n
複利算法：(1+r)^n
拜託~~~~~~~拜託~~~~~~~拜託~~~~~~~~~~
幫幫我吧~~~~~~~~
1. 判斷該三邊是否構成三角形
2. 如果1成立，則判斷其為直角三角形、銳角三角形或是鈍角三角形
3. 分別求出其面積、周長和(必選題)
提示：先將輸入的三邊長作排序，找出最長邊、次長邊及第三邊長 再去判斷是否符合三角形的條件
(二)寫一程式，輸入二數，印出其最大公因數及最小公倍數。(輾轉相除法)
(三)以vb程式畫出一張中華民國國旗
(四)寫一程式輸入存款本金p及年利率r，分別按照單利及複利計算，並輸出存款1年、2年..
.....10年的本利和
單利算法：1+r*n
複利算法：(1+r)^n
拜託~~~~~~~拜託~~~~~~~拜託~~~~~~~~~~
幫幫我吧~~~~~~~~
文章標籤
全站熱搜
1.就如您所說的，先使用排序方法， Dim D(2) As Integer Private Sub Command1_Click() D(0) = Val(Text1.Text): D(1) = Val(Text2.Text): D(2) = Val(Text3.Text) For i = 1 To 2 '判斷大小 If D(0) ＞ D(i) Then Call exchange(D(0), D(i)) Next If D(1) ＞ D(2) Then Call exchange(D(1), D(2)) If D(0) + D(1) ＞= D(2) Then y = y + 1 ElseIf D(1) + D(2) ＞= D(0) Then y = y + 1 ElseIf D(0) + D(2) ＞= D(1) Then y = y + 1 End If If y ＜ 3 Then MsgBox "非三角形" Else If D(0) ^ 2 + D(1) ^ 2 = D(2) ^ 2 Then MsgBox "直角三角形" ElseIf D(0) ^ 2 + D(1) ^ 2 ＜ D(2) ^ 2 Then MsgBox "鈍角三角形" ElseIf D(0) ^ 2 + D(1) ^ 2 ＞ D(2) ^ 2 Then MsgBox "銳角三角形" End If End Sub Sub exchange(A, B) temp = A A = B B = temp End Sub
這好像是作業吧~~~~~~~~~ -_-"