如题所述
ä¾å¦ï¼çæ10个éæºå符çå符串代ç ï¼
Sub YgB()
Dim i, s
For i = 1 To 10
s = s & Chr(Rnd() * 26 + Asc("A"))
Next i
MsgBox s
End Sub
æ§è¡ææï¼
温馨提示:答案为网友推荐,仅供参考
如题所述
ä¾å¦ï¼çæ10个éæºå符çå符串代ç ï¼
æ§è¡ææï¼
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网