有一数组m（４０）我想通过程序实现找出m（４０）中数据最大的值，和在数组中的位置

Question

有一数组m（４０）我想通过程序实现找出m（４０）中数据最大的值，和在数组中的位置
请问大家怎么实现呢？

Answer 1

dim i as integer,nMax as integer,nMaxPos as integer
nMax = -9999 '设置初值，使之比你的数组中一般的数要小
for i=1 to 40
    if m(i) > nMax then
        nMax = m(i)
        nMaxPos = i
    endif
next

Answer 2

Private Sub Command1_Click()
  Dim max As Integer
  Dim n As Integer
   max = a(0)
   n = 0
   For i = 0 To 39
     If a(i) > max Then
         max = a(i)
         n = i
     End If
   Next i
   Print max
   Print n
   
End Sub