51Testing软件测试论坛

标题: 如何随机输入汉字问题，请赐教 [打印本页]

作者: clement 时间: 2005-6-29 16:52
标题: 如何随机输入汉字问题，请赐教
最近刚开始做自动化测试，工具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

作者: 一只小鸟飞飞飞 时间: 2005-6-29 17:03
这个问题写到高手区或者工具专区去会比较好。

作者: luming 时间: 2005-6-29 17:06
用chr(i)
i取值[-31936,-2562]就是汉字。

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

作者: clement 时间: 2005-6-30 09:19
标题: 多谢指教
#*（ ^_^

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)