[求助]GIS里如何用VB进行分类啊？

<P >属性表三个字段</P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<TABLE  cellSpacing=0 cellPadding=0 border=1>

<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">Shape_Area</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">Final_analysis</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">Schedule</FONT></P></TD></TR>
<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">S1</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">9</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><p><FONT face="Times New Roman"> </FONT></p></P></TD></TR>
<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">S2</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">6</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><p><FONT face="Times New Roman"> </FONT></p></P></TD></TR>
<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">S3</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">8</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><p><FONT face="Times New Roman"> </FONT></p></P></TD></TR>
<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">S4</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">7</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><p><FONT face="Times New Roman"> </FONT></p></P></TD></TR>
<TR >
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">…</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><FONT face="Times New Roman">…</FONT></P></TD>
<TD  vAlign=top width=189>
<P  align=center><p><FONT face="Times New Roman"> </FONT></p></P></TD></TR></TABLE>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >根据<FONT face="Times New Roman">Final </FONT>值的大小按照顺序统计<FONT face="Times New Roman">Area</FONT>即面积值</P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >当<FONT face="Times New Roman">S1+S3</FONT>的值大于一个给定值如<FONT face="Times New Roman">1000</FONT>的话则赋值给<FONT face="Times New Roman">S1</FONT>、<FONT face="Times New Roman">S3 </FONT>的<FONT face="Times New Roman">Schedule</FONT>字段值均为<FONT face="Times New Roman">NO.1</FONT></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >然后继续按照这个原则统计下面的数据</P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >当<FONT face="Times New Roman">S2+S4</FONT>的值大于一个给定值如<FONT face="Times New Roman">1200</FONT>的话则赋值给<FONT face="Times New Roman">S2</FONT>、<FONT face="Times New Roman">S4 </FONT>的<FONT face="Times New Roman">Schedule</FONT>字段值均为<FONT face="Times New Roman">NO.2</FONT></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >后面的按照这个原则继续计算，有可能<FONT face="Times New Roman">S1+S2+S3+</FONT>。。。<FONT face="Times New Roman">+S7</FONT>才等于<FONT face="Times New Roman">1000</FONT></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P ><p><FONT face="Times New Roman"> </FONT></p></P>
<P >如何用<FONT face="Times New Roman">VB </FONT>写这个程序啊</P>