Imports System.Windows.Forms

Module Module1
    Public Function minimum3(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double
        If (a > b) Then
            If (b > c) Then
                Return c
            Else
                Return b
            End If
        Else
            If (a < c) Then
                Return a
            Else
                Return c
            End If
        End If

    End Function
    Sub Main()
        Dim x, y, z As Double
        Dim output As String
        x = InputBox("請輸入第一個數", "輸入對話框")
        y = InputBox("請輸入第二個數", "輸入對話框")
        z = InputBox("請輸入第三個數", "輸入對話框")
        output = minimum3(x, y, z)
        messagebox.show(output)
    End Sub

End Module