程序代码：

FOR i =1 TO 32
j=TRANSFORM(i)
b=THISform.label&j..caption
a=chrtran(b,'0123456789.','')
d=chrtran(a,'abcdefghijklmnopqrstuvwxyz.','')
C=ALLTRIM(d)
SELECT 单词 FROM aq WHERE 汉意=C INTO ARRAY go
thisform.label&j..ToolTipText=go(1)
thisform.Refresh 
endfor