[求助]帮编一段VB程序
有一个人坐标（X,Y），计算这个人到地图上其他20000个人（Xi,Yi）的距离，按距离长短，求与其距离最近的4个人中有几个和他性别相同。[此贴子已经被作者于2006-5-5 13:59:00编辑过]
[此贴子已经被作者于2006-5-5 13:59:00编辑过]
2006-05-04 09:38
高手们帮帮我啊，很多年没接触VB了，一下子用到，忘了啊。在线等啊
2006-05-04 14:25
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-05-04 22:13
谢谢你的帮助啊 不过我能不能再写全一点 呵呵 我水平太差了
[此贴子已经被作者于2006-5-5 16:18:10编辑过]
2006-05-05 13:56