99-4

'4.輸入四個數字，找出最大與最小值。
'假設輸入 2,5,3,4
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a(4) As Integer
        For i = 1 To 4
            Dim pStr = "請輸入第" & i & "個數字"
            a(i) = InputBox(pStr)
        Next

        Dim aMax = a(1)
        Dim aMin = a(1)
        For i = 2 To 4
            If a(i) > aMax Then aMax = a(i)
            If a(i) < aMin Then aMin = a(i)
        Next
        MsgBox("最大值為：" & aMax & vbNewLine & "最小值為：" & aMin)
    End Sub
End Class