|
sub ppp()
. g, r. K! s8 a& k: S# g 首先读入数据入AArray. E* w: \: V3 L4 D
然后计算, as follows:
6 X* F' {. m. ?1 s* _. W; P$ ^. ^; L dim i as long, Num as long2 Z4 ^1 ?& j0 X8 c# @, D8 ]
Num=0, W" y, I4 [% S# Z- \5 p' l' G
for i=1 to 11
# [( f" k' x% C( U if AArray.IfBoy=true then Num=Num+1
' J5 ?3 M; N+ N; Y* i, y if Num=n then return the value3 d1 o6 z, p! Y
next i
" F$ P9 G: Z3 d& P$ ]1 oend sub* e, p1 x- a% N, d% { _7 x& l
在这里,n表示(第n个值) |
|