[此贴子已经被作者于2006-5-5 13:59:00编辑过]

高手们帮帮我啊，很多年没接触VB了，一下子用到，忘了啊。在线等啊

dim f swaps(a(3,4)) "传地址要。
for i=1 to 4
for j=i to 4
if a(3,i)<a(3,j) then 交换数组
next
next
end f

dim a(2)
dim b(2,200000)
dim c(3,4)
dim l
swaps(c)
for i=5 to 20000
l=两点间公式
if l< c(3,1) then 交换数组
swaps
next
然后输出数组c。c(1,X)为X ，2为Y 3 为性别

谢谢你的帮助啊  不过我能不能再写全一点  呵呵  我水平太差了

[此贴子已经被作者于2006-5-5 16:18:10编辑过]