如何随机输入汉字问题，请赐教

clement

最近刚开始做自动化测试，工具rational robot，目前只能随机输入字符，随机输入汉字却不知怎样做（有告知用内码转换不知怎么做），请各路侠客支几招，多谢！

'随机字符输入
function InputRndStr(bit%) AS STRING

    Dim Result As Integer
    Dim mydata(),i,mystr,mytempstr

    mystr=""
    Randomize(timer())
    for i=1 to bit
        if i=1 then
            if rnd() >0.45  then
                mytempstr= chr(65+ rnd()*27 mod 26)
            Else
                mytempstr= chr(97+ rnd()*27 mod 26)
            End if
        Else
           IF rnd() >0.66  then
                mytempstr= chr(48+ rnd()*10 mod 10)
            ElseIF rnd() >0.33  then
                mytempstr= chr(65+ rnd()*27 mod 26)
            Else
                mytempstr= chr(97+ rnd()*27 mod 26)
            End if
       End if
    mystr=mystr+mytempstr
    next i

    InputRndStr=mystr

end function

一只小鸟飞飞飞

这个问题写到高手区或者工具专区去会比较好。

luming

用chr(i)
i取值[-31936,-2562]就是汉字。

[ Last edited by luming on 2005-6-29 at 17:20 ]

clement

#*（     ^_^