小葡萄蛋蛋123
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的英文字符串
馨阳北京
伊莎贝拉Isabella 艾玛Emma 奥利维亚Olivia 索菲娅Sophia 艾娃Ava 艾蜜莉Emily 麦迪逊Madison 阿比盖尔Abigail 克洛艾Chloe 米娅Mia 伊丽莎白Elizabeth 艾迪森Addison 亚历克西斯Alexis 埃拉Ella 萨曼塔Samantha
优质英语培训问答知识库