arcgis 10分式注记

谢谢myfwhy和Lucy1114，现在终于解决了。"<chr spacing=' '>" & string(a," ") & "</chr>" 可以在标注的情况下调整分子在分数线上的位置，space(a)不能，两个都能调整分母在分数线下的位置。但当分数线的宽度是双数时，在标注状态下，不管怎么调整a的值，"<chr spacing=' '>" & string(a," ") & "</chr>" 都不能使分子正对分数线中点，转换为注记也不能，而space(a)在标注状态下虽不能使分子正对分数线中点，但转换为注记后不管分数线的宽度为多少，都能对准分数线中点。所以，最后我选用注记来标注要素。代码如下
Function FindLabel ( [XBH] , [mj] , [SZ1C]  )
dim a ,b,c,d
a=len( [XBH])
b=len([mj])
c=len([SZ1C])
if (b>c) then
   d=b
  else
    d=c
end if
  FindLabel =space(a) & "<FNT name='楷体_GB2312'>" & [SZ1C] &"</FNT>" & vbnewline & [XBH] & string(d*0.6,"—") & vbnewline & space(a) &  [mj]
End Function
效果图如下