VBA方格网计算

馨馨

VBA中找出以格网点P（M，N）为中心的四个象限中，距离该点距离最短的样点，该怎么写

1. dim M, N as integer
   
2. dim d as double
   
3. for M = 1 to (NY+ 1)
   
4. for N = 1 to (NX +1)
   
5. d = sqr((X(L) - (Xmin + M*20.18)) ^ 2 + (Y(L) - (Ymin + N*20.18) ^ 2)
   
6. 以P（M，N）格网点为中心，找出四个象限的到这个点距离最小的样点
   

复制代码

该贴已经同步到 馨馨的微博

馨馨

各位大神有没有会的啊，求指点

672277923

样点是什么？在写之前列个框架，这是个好习惯。

馨馨

672277923 发表于 2016-5-27 13:41
样点是什么？在写之前列个框架，这是个好习惯。

样点是文本文件，下面是部分数据
1  10107.5 10340.2 331.46
2  10110.4 10360.1 331.45
3  10114.4 10377.5 332.67
4  10119.4 10392.4 332.76
5  10122.8 10409.6 333.87
6  10150.4 10309.9 329.23