(一)寫一程式輸入三角形的任意三邊長
1. 判斷該三邊是否構成三角形
2. 如果1成立,則判斷其為直角三角形、銳角三角形或是鈍角三角形
3. 分別求出其面積、周長和(必選題)
提示:先將輸入的三邊長作排序,找出最長邊、次長邊及第三邊長 再去判斷是否符合三角形的條件
(二)寫一程式,輸入二數,印出其最大公因數及最小公倍數。(輾轉相除法)
(三)以vb程式畫出一張中華民國國旗
(四)寫一程式輸入存款本金p及年利率r,分別按照單利及複利計算,並輸出存款1年、2年..
.....10年的本利和
單利算法:1+r*n
複利算法:(1+r)^n
拜託~~~~~~~拜託~~~~~~~拜託~~~~~~~~~~
幫幫我吧~~~~~~~~
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • scoties
  • 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
  • mimmy
  • 這好像是作業吧~~~~~~~~~
    -_-"