vb如何随机生成一个英文名

发布网友发布时间：2022-04-26 08:45

共3个回答

热心网友时间：2022-06-26 01:05

Private Sub Command1_Click()
Dim xName As String
Dim I As Integer
I = Int(3 + 6 * Rnd())
xName = Chr(int(64 + 26 * Rnd()))
For j = 1 To I
xName = xName & Chr(Int(97 + 26 * Rnd()))
Next
Print "New English Name=" & xName
End Sub
就是随即生成一个第一字母大写，后面字母小写的长度在4-10的英文字符串

热心网友时间：2022-06-26 01:05

'事先写好一些名字，例如下面的a、b、c、d、e、f，然后随机抽取一个名字，注意把下面的6改成相应的个数

a = Array("a", "b", "c", "d", "e", "f")
Randomize
Print a(Fix(Rnd * 6))

'用楼上的更有意思，如果不幸生成了"Fuck"、"Sex"等等不雅词汇，楼主有的玩了，因为完全是随机生成字母组合，所以生成一个完整单词的概率不是很大

热心网友时间：2022-06-26 01:06

楼上的都可以实现随即生成由字母组成的字符串，但是这个字符串恰好是单词的可能性微忽其微
一般可能会产生类似这样的字符串

asdfgh
jppppp
kkqppq

这样的东西做名字，不能念的，

确定要名字的话，可以先通过其他手段获取一个字典集然后随即抽取其中的几个单词进行组合

或者认真复习学校上英语课时讲的内容根据英语的构成规则来生成单词

构成规则最重要的一条必须要有元音字母，呵呵。
就好比拼音里的只有声母没有韵母怎么发的出音。。。。