废话不说,直接进入正题.建一个 按钮Command1 和一个 Textbox Text1 ,下面只以男名为例.女名同理.
原代码:
Private Sub Command1_Click()
Dim x1, x2, x3, x4, x5, x6, x7, x8, x9, z, o, o2, o3, o4 As String
o = "伟勇毅俊峰强平保东文辉力明永健世广志义兴良海山仁波宁贵福生龙元胜学祥才发武新利清飞彬富顺信子杰昌成星光天达安岩中茂进林有坚和博诚先敬震振壮会思群心邦承乐绍功松善厚庆磊民友裕河江超浩亮政谦亨奇翰朗宏言若朋斌启伦翔旭鹏泽晨建家致树炎德行时泰盛雄钧冠策腾楠榕风弘" '男名第一字www.12264.com
o2 = "伟......
VB, 随机姓名生成阅读全文