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

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的英文字符串

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

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

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

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

asdfgh
jppppp
kkqppq

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

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

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

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