大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
dim a(x to n,m to i) 就是定义了个有(n-m+1)*(i-m+1)个元素的数组其他一维和多维的类似
创新互联公司长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为江苏企业提供专业的成都做网站、成都网站制作,江苏网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
'给数组赋值
dim d(6) as integer
d(1)=11
d(2)=32
d(3)=25
d(4)=45
d(5)=9
d(6)=5
'获取最大值(采用打擂台的思路)
dim MyMax as integer
dim i as integer
MyMax = d(1) '假设第1个元素最大
for i = 2 To Ubound(d) '从第2个元素开始到最后一个元素
'如果当前元素比MyMax的值大,就把当前元素保存到MyMax
if d(i) MyMax Then
MyMax = d(i)
end if
next i
msgbox MyMax
你是不是应该对最大值和最小值赋初值(比如把 r(1) 赋给最大值和最小值)呢?不然最小值默认初始值是‘0’,后面的判断就不起作用了。你可以加个断点试试,他们的初始值是多少。。。