吃生鱼片的猫
Private Sub Command1_Click()RandomizeDim a As Stringa = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"For i = 1 To 7Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)Next iEnd Sub简单点的就这个~
者尼私人影院
'事先写好一些名字,例如下面的a、b、c、d、e、f,然后随机抽取一个名字,注意把下面的6改成相应的个数 a = Array("a", "b", "c", "d", "e", "f") Randomize Print a(Fix(Rnd * 6)) '用楼上的更有意思,如果不幸生成了"Fuck"、"Sex"等等不雅词汇,楼主有的玩了,因为完全是随机生成字母组合,所以生成一个完整单词的概率不是很大
优质英语培训问答知识库