Dim maxnum，minnum為整數
a =數組(4，7，11，15，16，17)
maxnum = a(0)
minnum = a(0)
對於i = 0至下界(a)
如果maxnum & lta(我)然後
maxnum = a(i)
如果…就會結束
如果a(I)& lt；那就minnum吧
minnum = a(i)
接下來我
這是計算其中壹個組的代碼。
Maxnum最大值
最小最小值