VB求最大值、最小值及其位置。

Dim a%(10),Max%,Min%,y%,k%
For i=LBound(a) To UBound(a)
	a(i)=Int((500-200+1)*Rnd+200)
	Print a(i);'输出10个200-500之间随机整数数组
Next i
Max=a(1)
Min=a(1)
For i=LBound(a) To UBound(a)
	If a(i)>Max Then
		Max=a(i):k=i
	End If
    If a(i)<Min then
		Min=a(i):y=i
	End If
Next i
Print
Print "MaxNumber:";Max;"Location:";k
Print "MinNumber:";Min;"Location:";y