求给定数组中的最大值

对于求vb中的用vb编写给定数组中的最大值，我的编程如下：
Public  Function  calcMax( a()  As  Integer)  As  Integer
      max=0
    For  Each  aArrayElement  in  a
         If  max<aArrayElement  Then
             max=aArrayElement
         End  If
    Next
        calcMax=max
End  Function
心得体会：
       做VB的过程中，会遇到很多我无法解决的问题，但是，有老师和同学的帮助，也能最终解决，很开心的过程。
遇到的问题和解决方法
      做vb时，做这个程序时，有很多不会的地方，遇到了很多问题。
     通过，问老师，和同学交流，查找教科书，上网搜索网络，搜索相关知识。