module1.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 31 行

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