程序代码：

form1 init:

select keyword,count(*) as num from tblkeyword group by keyword into cursor cur order by num desc top 5
count to num
go top
if num>0
for i=1 to 5
cap='label'+str(i,1)
thisform.&cap..caption=keyword+ALLTRIM(str(num)+'件')
skip
endfor
endif
use