菜**求助

Question

Private Sub Command1_Click()
 Dim s As String
 Randomize
 s = Chr(Int(Rnd(25) + 97))
 Print s
End Sub
怎么实现不了随机？？？请指教出错在哪？

Answer 1

分析你的   s = Chr(Int(Rnd(25) + 97)) 0 < rnd(25) < 1
 97 < rnd(25) +97 < 98
 int(rnd(25)+97)   结果应该是   97   or   98所以你的 S 只会有两种结果  a  or  b
你想要的结果是不是随机返回一个  a   ...   z   间的字母?
估计你的想法是:首先生成一个   0  ...   25  之间的随机数
然后作运算得到 a ... z正确的写法应该是:
randomize
s = chr(int(rnd() * 25 + 97))
debug.print s