
3个回答
展开全部
Private Sub Command1_Click()
Randomize
Dim a As String
a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 7
Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)
Next i
End Sub
简单点的就这个~
Randomize
Dim a As String
a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 7
Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)
Next i
End Sub
简单点的就这个~
展开全部
'事先写好一些名字,例如下面的a、b、c、d、e、f,然后随机抽取一个名字,注意把下面的6改成相应的个数
a = Array("a", "b", "c", "d", "e", "f")
Randomize
Print a(Fix(Rnd * 6))
电脑又不是人脑,电脑不懂的人类的语言更别说让它随机生成一个人类用的名字了
a = Array("a", "b", "c", "d", "e", "f")
Randomize
Print a(Fix(Rnd * 6))
电脑又不是人脑,电脑不懂的人类的语言更别说让它随机生成一个人类用的名字了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
英文名?就是说这七个字母的拼写还不能完全随机吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询