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