Option Base 1 Dim Max As Integer, Index As Integer Max = a(1) aIndex = 1 For i = 2 To UBound(a) If a(i) > Max Then Max = a(i) aIndex = i End If Next i Print Max, i
by: 发表于:2017-11-27 11:31:41 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:31:41 顶(0) | 踩(0) 回复
??
回复评论