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