你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。
网站建设公司,为您提供网站建设,网站制作,网页设计及定制网站建设服务,专注于成都企业网站建设,高端网页制作,对汽车玻璃修复等多个行业拥有丰富的网站建设经验的网站建设公司。专业网站设计,网站优化推广哪家好,专业seo优化排名优化,H5建站,响应式网站。
1、点击VS工具。
2、打开后，新建一个Windows窗体应用程序。
3、新建完毕后，如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法，如图示。
6、运行后，点击按钮，弹出提示正常。
7、定义数组第二种方法，属于动态的方法。
8、运行后，点击按钮，数组成功输出。
private function maxnum(byval a() as integer) as integer
dim i as integer
maxnum=a(0)
for i = 1 to ubound(a)
if a(i)maxnum then maxnum=a(i)
next
end function