dim x(50)
randomize
for i=1 to 50
  x(i)=int(rnd()*401+100)
next i
x1=0
for i=1 to 50
   if x(i)>x1 then
      j=i
      x1=x(i)
   end if
next i
print "最大值是：";x1
print "他的位置是：";j
end

不错，呵呵。

程序:
CLS
RANDOMIZE TIMER
DIM A(50):MAX=0:K=0
FOR I=1 TO 50
  A(I)=INT(RND*401)+100)
  ? A(I);
  IF A(I)>MAX THEN MAX=A(I):K=I
NEXT I
? "最大值:";MAX
?"它的位置:";K