用VB 找出（1,－5,68,8,-23,0,478,21,5）中的最大值和最小值,不能使用min()t max()之类的函数.

Private Sub Form_Click()
Dim 数组, 最大值%, 最小值%, 临时串$, 计数%
临时串 = "1,－5,68,8,-23,0,478,21,5"
数组 = Split(临时串, ",")
最大值 = 数组(LBound(数组))
最小值 = 数组(LBound(数组))
For 计数 = LBound(数组) To UBound(数组)
If 数组(计数) < 最小值 Then 最小值 = 数组(计数)
If 数组(计数) > 最大值 Then 最大值 = 数组(计数)
Next
Print "最大值=" & 最大值, "最小值=" & 最小值
End Sub