你应该是要在一串数中找出最大和最小的 你如果知道这串数字 DIM a() as long dim i as integer dim max dim min private SUB form_load() a(0)=....(你知道的数字) a(1)=....(你知道的数字) ...... for i= 0 to 100 if a(i)>a(i+1) then max = a(i) else max=a(i+1) end if next i 循环完毕 最大值就找到 赋值在MAX里面 min同理 end sub