• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 16
发新话题 回复该主题

[源码分享] 分享一个随机取名的源码! [复制链接]

1#
这个我也是别处看到的他写了500多行我给精简到了19行。我觉得这个有时候还是用的到的,分享给大家做参考!!
其实很简单就是随机取数组里的文字,大神就不用看了新手可以看看。下面是效果图 :


  1. Function _Rnd(num)
  2. _Rnd = Int((num + 1) * Rnd())    
  3. End Function
  4. Function _Rnd_Name()'随机取姓名
  5. Dim A = Array("贾", "赵", "萧","梁","胡","谢", "曹","袁","傅","彭","蒋","蔡","魏","薛","阎","潘","戴","夏","姜","姚","邹","熊",_
  6. "郝","秦蒋","邵","侯","段","武","赖","龚","奥","夏侯","诸葛","上官","欧阳","尉迟","公孙","岳","墨","琴","涂",_
  7. "温","匡","余","余","温","景","庄","庄","燕", "司马","景", "马","伊", "樊","朱", "冯","雷","范","穆","麒", "安",_
  8. "布","卜","白","拜","鲍","庹","崔","程","晨","迟","常","车","翟", "窦", "狄","费","范","郭","葛","恭","霍","孔",_
  9. "柯","骆","苗","孟","潘", "乔","屠","邰","谭","巫","翁", "徐","肖","萧", "夏","袁","章","童")
  10. Dim B = Array( "雷" ,"琳" ,"甜","琪","茂", "莆","倩","祥","霞","莠", "唇","汝","瑞","妮","莫","终", "慧","诗","雯","鸿","乔",_
  11. "雪","君", "雅","森","沐","淮","莉","淑","申","双", "霆","媛","熙","彩","瀚","幽","桦","逸", "智", "鑫", "鹏",_
  12. "顾","玮","益","轩" ,"明", "琪", "兴","旺","泉","诚","秋","生","骏", "晶", "然","怡","蓉","淳","宇","玉","志",_
  13. "麻","宏", "静" ,"萱","楚", "茵", "迪", "卡","辉","苑","博","新","豪","炫", "翰", "豪","睿","渊","昊", "宸", "博","哲")
  14. Dim C = Array("敢", "款", "淦", "筐", "贵", "辜", "凯","植","奠","捷","掎","探","敦","智","棠","淘","淡","焦","婷",_
  15. "荔","轸", "迦","钧", "婷","喋","塘","塔","暖","楠","幄","涯","焰","雁","雅","雯","喻","宸","瓿","霞",_
  16. "婺","琬","博","棉","涵","淼","淮","番","徨","惠","斑","酣","邯","媚","彬","棠", "磊" ,"梅", "晴" ,"惠")
  17. _Rnd_Name = A(_Rnd(108)) & B(_Rnd(85)) & C(_Rnd(59))
  18. End Function
  19. TracePrint _Rnd_Name()'随机取姓名
复制代码

最后编辑aboutbook 最后编辑于 2017-06-14 00:45:07

以建会友,共同学习,共同进步。无偿帮助解答各种简单小问题。

2#

好像不错的验证!!

3#

哈哈谢谢分享

4#

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

5#

好像不错

脚本定制、软件定制
验证码插件接口免费提供,定期更新http://bbs.anjian.com/showtopic-655495-1.aspx

QQ:79177758
6#

高兴

<a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=987500294&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:987500294:51" alt="点击这里给我发消息" title="点击这里给我发消息"/></a>
7#

看看有没用,有用就扒下来

8#

南宁天气

9#

学习看看!!!!!!!!!

10#

我也來看下

11#

谢谢我看好用不

12#

看看 如何。。

qq:1649916498
13#

名字是比较常见的那种么

14#

看看是不是真的

15#

看下,是不是要用到山海插件

16#

谢谢楼主分享

17#

看看~~~~~~~~~~~~~~~~~~~~~~

18#

学习学习
......

19#

学习了,谢谢

当年顶风尿十丈,如今顺风尽湿鞋!
20#

死死死死死死死死死死死死

发新话题 回复该主题