請輸入五個數字中的第" & i & "個"))-Test-1

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim max As Integer = 0
Dim min As Integer = 99
Dim A(5) As Integer
For i = 1 To 5
A(i) = Val(InputBox("請輸入五個數字中的第" & i & "個"))
ListBox1.Items.Add(A(i))
Next

For i = 1 To 5
If max < A(i) Then
max = A(i)
End If

If min > A(i) Then min = A(i)
Next

TextBox1.Text = max
TextBox2.Text = min

End Sub
End Class