答：找了一段代码，可以得到字符串中汉字的个数，
For i = 1 to Len(aString)
ls_ch = Mid(aString,i,1)
If Asc(ls_ch) >= 128 then //是汉字
li_num++
i = i+1
End if
Next

最后，li_num就是汉字的个数了，你可以试试。

问：我要用PB实现在循环的时候可以点击按钮然后退出循环？就像在VB中的循环中用DoEvent实现的一样？

答：这当然要用Yield()函数了。如：
integer n
//sb_interrupt 是共享变量
sb_interrupt = false
for n = 1 to 3000
yield()
if sb_interrupt then
//sb_interrupt的值在“取消”按纽的Clicked事件中修改为true
messagebox("人家不干了","你真坏！")
sb_interrupt=false
exit
else
//其它处理，在单行编辑器中显示当前n值
sle_1.text = string(n)
//....
end if
next