求给定数组中的最大值

求给定数组中的最大值

   对于求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时，做这个程序时，有很多不会的地方，遇到了很多问题。

     通过，问老师，和同学交流，查找教科书，上网搜索网络，搜索相关知识。