CSDN博客

img lang_csdn

返回数组中的最大值

发表于2004/10/16 20:03:00  803人阅读

分类: VB6.0

Dim lngMaxIndex As Long
Dim i As Long

lngMaxIndex = LBound(A)

For i = LBound(A) + 1 To UBound(A)
  If A(i) > A(lngMaxIndex) Then
    lngMaxIndex = i
  End If
Next i

A(lngMaxIndex)就是最大值

阅读全文
0 0

相关文章推荐

img
取 消
img