10/14 程式設計 學習單 單元：ch03. 決策指令

10.輸入 A、B、C 三個數,輸出最大值。想出三種不同的結構來完成。

作法 1:

 

        '輸入 A、B、C 三個數,輸出最大值。

        Dim a, b, c As Single

        Dim ans As String = "" '答案

        a = InputBox("a=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        b = InputBox("b=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        c = InputBox("c=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        ans = If(a > c, If(a > b, a, b), If(c > b, c, b)) & "大"

        Me.TextBox4.Text = ans

  

 

 

     2.   '輸入 A、B、C 三個數,輸出最大值。想出三種不同的結構來完成。(1)

        '輸入 A、B、C 三個數,輸出最大值。

        Dim a, b, c As Single

        Dim ans As String = "" '答案

        a = InputBox("a=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        b = InputBox("b=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        c = InputBox("c=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        If a > b Then

            If a > c Then

                ans = a & "大"

            Else

                ans = c & "大"

            End If

        Else

            If b > c Then

                ans = b & "大"

            Else

                ans = c & "大"

            End If

        End If

        Me.TextBox1.Text = ans

   

 

 

       3.  '輸入 A、B、C 三個數,輸出最大值。想出三種不同的結構來完成。(2)

        '輸入 A、B、C 三個數,輸出最大值。

        Dim a, b, c As Single

        Dim ans As String = "" '答案

        a = InputBox("a=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        b = InputBox("b=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        c = InputBox("c=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        If b > c Then

            If b > a Then

                ans = b & "大"

            Else

                ans = a & "大"

            End If

        Else

            If c > a Then

                ans = c & "大"

            Else

                ans = a & "大"

            End If

        End If

        Me.TextBox2.Text = ans

 

 

 

        '輸入 A、B、C 三個數,輸出最大值。想出三種不同的結構來完成。(1)

        '輸入 A、B、C 三個數,輸出最大值。

        Dim a, b, c As Single

        Dim ans As String = "" '答案

        a = InputBox("a=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        b = InputBox("b=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        c = InputBox("c=", "輸入 A、B、C 三個數,輸出最大值。", 0)

        If a > c Then

            If a > b Then

                ans = a & "大"

            Else

                ans = b & "大"

            End If

        Else

            If c > b Then

                ans = c & "大"

            Else

                ans = b & "大"

            End If

        End If

        Me.TextBox3.Text = ans

   

 

   

 

  

        '寫一個手通信費計算的程式

        Dim ut As Integer '使用時間

        Dim s As Long = 0 '費用

        Dim ans As String = ""

        ut = InputBox("使用時間=", "手機費用計算", 0)

        If ut > 300 Then

            s = 1350

        ElseIf ut > 100 Then
            s = 200 + 70 * 5 + (ut - 100) * 4
        ElseIf ut > 30 Then
            s = 200 + (ut - 30) * 5
        Else
            s = 200
        End If
        Me.TextBox5.Text = ut & "分鐘 , 費用 = " & s

   

 

 

 

        '寫一個手通信費計算的程式

        Dim ut As Single '使用時間

        Dim s As String = 0 '費用

        Dim ans As String = ""

        ut = InputBox("使用時間=", "手機費用計算", 0)

        Select Case ut

            Case Is > 300

                s = 1350

            Case Is > 100

                s = 200 + 70 * 5 + (ut - 100) * 4

            Case Is > 30

                s = 200 + (ut - 30) * 5

            Case Else

                s = 200

        End Select

        Me.TextBox6.Text = ut & "分鐘 , 費用 = " & s

   

 

 

   

        '成績等第判斷:操行成績0-100分成五等第

        Dim a As Single '成績

        Dim b As String = "" '等第

        a = InputBox("成績=", "'成績等第判斷:操行成績0-100分成五等第", 0)

        If a >= 90 Then

            b = "優"

        ElseIf a >= 80 Then

            b = "甲"

        ElseIf a >= 70 Then

            b = "乙"

        ElseIf a >= 60 Then

            b = "丙"

        Else

            b = "丁"

        End If

        Me.TextBox7.Text = a & "成績 , 等第 = " & b

   

 

 

        '成績等第判斷:操行成績0-100分成五等第

        Dim a As Single '成績

        Dim b As String = "" '等第

        a = InputBox("成績=", "'成績等第判斷:操行成績0-100分成五等第", 0)

        Select Case a

            Case Is >= 90

                b = "優"

            Case Is >= 80

                b = "甲"

            Case Is >= 70

                b = "乙"

            Case Is >= 60

                b = "丙"

            Case Else

                b = "丁"

        End Select

        Me.TextBox8.Text = a & "成績 , 等第 = " & b