VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调

dim a(10) as integer
dim i as integer,k as integer,p as integer
dim m as integer
dim n as integer
for i=1 to 10
a(i)=int(rnd()*101)
next i
k=-1
p=101
for i=1 to 10
if a(i)>k then
k=a(i)
m=i
endif
if a(i)