int li_loop,li_num //如果int类型不够用,可以声明为long类型
string ls_str,ls_ch
//从字符串的第一个字符到最后一个字符,循环
For li_loop = 1 to Len(ls_str)
//一个一个地取出来,然后判断
ls_ch = Mid(ls_str,li_loop,1)
//如果该字符为汉字(ascii码大于128)
If Asc(ls_ch) >= 128 then
li_num++
li_loop = li_loop+1
End if
Next