關於部落格
開心就好 ,生活就是要活的自在快樂 。 

  • 1366

    累積人氣

  • 0

    今日人氣

    0

    追蹤人氣

vb - 3題

 設自來水公司水費計算方式如下:
50度以下,每度4.2元(設無基本費限制)。
51度~80度,每度5元。
81度以上,每度5.5元。
試設計一程式,輸入用水度數,並印出應繳水費。
  
 Dim x As Integer
    x = Val(InputBox("請輸入水度數", "水費"))
    If x <= 50 Then
    x = x * 4.2
    Print "水費是:"; x
    Else
        If x > 51 And x = 80 Then
        x = x * 5
        Print "水費是:"; x
        Else
            If x >= 81 Then
            x = x * 5.5
            Print "水費是:"; x
            End If
        End If
    End If
  

輸入三個數字,找出其中最大值。
 
Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    a = Val(InputBox("請輸入數值:", "第一個數值"))
    b = Val(InputBox("請輸入數值:", "第二個數值"))
    c = Val(InputBox("請輸入數值:", "第三個數值"))
    If a > b And a > c Then
    MsgBox "a最大!!", 0, "最大值"
    Else
        If b > a And b > c Then
        MsgBox "b最大!!", 0, "最大值"
        Else
            If c > a And c > b Then
            MsgBox "c最大!!", 0, "最大值"
            End If
        End If
    End If
   
輸入三角形的三邊長,判斷是否可構成一個三角形。
若可形成三角形,則再判斷該三角形是鈍角、銳角或直角三角形。

提示:假設a,b,c為三角形三邊之周長。
(1)三角形存在條件為任一邊不為零,且任兩邊長之和>第三邊
(  ,  )。
(2)若一邊具有a2+b2=c2則為直角三角形;若所有邊具有a2+b2>c2則為銳角三角形;若有一邊具有a2+b2<c2則為鈍角三角形。
   
Dim p As Integer
    Dim o As Integer
    Dim i As Integer
    p = Val(InputBox("請輸入邊長p:", "邊長"))
    o = Val(InputBox("請輸入邊長o:", "邊長"))
    i = Val(InputBox("請輸入邊長i:", "邊長"))
    If p + o > i And p + i > o And o + i > p Then
        MsgBox "是三角形", 0, "判斷三角形"
    Else
        MsgBox "不是三角形", 0, "判斷三角形"
        End
    End If
   

____________________________________________________________________


我那個自來水費忘記怎用msgbox 
所以偷懶用print..來印出水費是多少...
如果要用msgbox 那要怎用咧??
哪位好心人士要教教我吧  >口<  "


還有還有 "流程圖"   怎畫阿???

相簿設定
標籤設定
相簿狀態