废话不说,直接进入正题.建一个 按钮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 = "伟刚勇毅俊峰强军平保东文辉力明永健世广志义兴良海山仁波宁贵福生龙元全国胜学祥才发武新利清飞彬富顺信子杰涛昌成康星光天达安岩中茂进林有坚和彪博诚先敬震振壮会思群豪心邦承乐功松善厚庆磊民友裕河江超浩亮政谦亨奇固之翰宏言若鸣朋斌维克伦翔旭鹏建家致树炎德行时泰盛雄钧冠策腾楠榕风航弘" '男名第二字
o3 = "秀英华慧巧美娜静淑惠珠翠雅芝玉萍红玲芬芳燕彩春菊兰凤洁梅琳素云莲真环雪妹霞香月莺媛艳佳嘉琼珍莉桂叶璐琦晶妍茜秋珊锦黛倩婷婉娴瑾露瑶怡婵雁蓓仪荷丹蓉眉君琴蕊薇菁梦岚苑婕馨瑗韵聪纯毓悦昭冰爽琬羽希欣飘馥柔晓欢芸菲宜可姬舒丽阳妮娇灵琪晴容雯萱彦宇雨蓝翠烟" '女名第一字
o4 = "秀娟英华慧巧美娜静淑惠珠翠雅玉萍红娥玲芬芳燕彩春菊兰凤洁梅琳素云莲真环雪妹霞香月莺媛艳佳嘉琼珍莉桂叶璐琦晶妍茜秋珊锦黛倩婷婉娴瑾露瑶怡婵雁蓓仪荷丹蓉眉君琴蕊薇菁梦岚苑婕馨瑗韵聪纯毓悦昭冰爽琬羽希欣飘馥柔晓欢芸菲宜可姬舒丽阳妮娇灵琪晴容雯萱彦宇雨曼蓝儿翠烟" '女名第一字
Randomize
x1 = "赵钱孙李周吴郑王冯陈卫蒋沈韩杨朱许何吕施张孔曹严陶戚谢邹苏潘范彭马花方任袁柳唐费薛雷贺汤罗毕傅顾孟黄穆姚邵毛狄戴宋庞熊纪舒屈项祝董梁杜阮贾江童颜郭梅林钟徐骆高蔡田胡霍卢莫柯房丁邓单洪包崔龚程裴翁仇刘詹叶邰赖卓乔谭温庄习易廖耿聂关" '百家姓中常见单姓
x2 = Len(x1)
x3 = o
x4 = Len(x3)
x5 = o2
x6 = Len(x5)
x7 = Mid(x3, Int(Rnd * x4) + 1, 1)
x8 = Mid(x5, Int(Rnd * x6) + 1, 1)
x9 = Mid(x1, Int(Rnd * x2) + 1, 1)
z = x9 & x7 & x8 '最终的名字,换成z = x9 & Space(2) & x7 为单字名字www.12264.com
Text1.Text = z '显示名字
End Sub