Function 随机取姓名()
//例子:Msgbox lib.算法.随机取姓名()
Dim a,b,c,nei,zhu
Randomize
a = CInt((102) * Rnd)
b = CInt((85) * Rnd)
c = CInt((59) * Rnd)
nei = ""
Select Case a
Case 1
zhu = "贾"
Case 2
zhu = "赵"
Case 3
zhu = "萧"
Case 4
zhu = "梁"
Case 5
zhu = "胡"
Case 6
zhu = "谢"
Case 7
zhu = "曹"
Case 8
zhu = "袁"
Case 9
zhu = "傅"
Case 10
zhu = "彭"
Case 11
zhu = "蒋"
Case 12
zhu = "蔡"
Case 13
zhu = "魏"
Case 14
zhu = "薛"
Case 15
zhu = "阎"
Case 16
zhu = "潘"
Case 17
zhu = "戴"
Case 18
zhu = "夏"
Case 19
zhu = "姜"
Case 20
zhu = "姚"
Case 21
zhu = "邹"
Case 22
zhu = "熊"
Case 23
zhu = "郝"
Case 24
zhu = "秦蒋"
Case 25
zhu = "邵"
Case 26
zhu = "侯"
Case 27
zhu = "段"
Case 28
zhu = "武"
Case 29
zhu = "赖"
Case 30
zhu = "龚"
Case 31
zhu = "奥"
Case 32
zhu = "夏侯"
Case 33
zhu = "诸葛"
Case 34
zhu = "上官"
Case 35
zhu = "欧阳"
Case 36
zhu = "尉迟"
Case 37
zhu = "公孙"
Case 38
zhu = "岳"
Case 39
zhu = "墨"
Case 40
zhu = "琴"
Case 41
zhu = "涂"
Case 42
zhu = "温"
Case 43
zhu = "匡"
Case 44
zhu = "余"
Case 45
zhu = "余"
Case 46
zhu = "温"
Case 47
zhu = "景"
Case 48
zhu = "庄"
Case 49
zhu = "庄"
Case 50
zhu = "燕"
Case 51
zhu = "司马"
Case 52
zhu = "景"
Case 53
zhu = "马"
Case 54
zhu = "伊"
Case 55
zhu = "樊"
Case 56
zhu = "朱"
Case 57
zhu = "冯"
Case 58
zhu = "雷"
Case 59
zhu = "范"
Case 60
zhu = "穆"
Case 61
zhu = "麒"
Case 62
zhu = "安"
Case 63
zhu = "布"
Case 64
zhu = "卜"
Case 65
zhu = "白"
Case 66
zhu = "拜"
Case 67
zhu = "鲍"
Case 68
zhu = "庹"
Case 69
zhu = "崔"
Case 70
zhu = "程"
Case 71
zhu = "晨"
Case 72
zhu = "迟"
Case 73
zhu = "常"
Case 74
zhu = "车"
Case 75
zhu = "翟"
Case 76
zhu = "窦"
Case 77
zhu = "狄"
Case 78
zhu = "费"
Case 79
zhu = "范"
Case 80
zhu = "郭"
Case 81
zhu = "葛"
Case 82
zhu = "恭"
Case 83
zhu = "霍"
Case 84
zhu = "孔"
Case 85
zhu = "柯"
Case 86
zhu = "骆"
Case 87
zhu = "苗"
Case 88
zhu = "孟"
Case 89
zhu = "潘"
Case 90
zhu = "乔"
Case 91
zhu = "屠"
Case 92
zhu = "邰"
Case 93
zhu = "谭"
Case 94
zhu = "巫"
Case 95
zhu = "翁"
Case 96
zhu = "徐"
Case 97
zhu = "肖"
Case 98
zhu = "萧"
Case 99
zhu = "夏"
Case 100
zhu = "袁"
Case 101
zhu = "章"
Case 102
zhu = "童"
End Select
nei = nei & zhu
Select Case b
Case 1
zhu = "雷"
Case 2
zhu = "琳"
Case 3
zhu = "甜"
Case 4
zhu = "琪"
Case 5
zhu = "茂"
Case 6
zhu = "莆"
Case 7
zhu = "倩"
Case 8
zhu = "祥"
Case 9
zhu = "霞"
Case 10
zhu = "莠"
Case 11
zhu = "唇"
Case 12
zhu = "汝"
Case 13
zhu = "瑞"
Case 14
zhu = "妮"
Case 15
zhu = "莫"
Case 16
zhu = "终"
Case 17
zhu = "慧"
Case 18
zhu = "诗"
Case 19
zhu = "雯"
Case 20
zhu = "鸿"
Case 21
zhu = "乔"
Case 22
zhu = "雪"
Case 23
zhu = "君"
Case 24
zhu = "雅"
Case 25
zhu = "森"
Case 26
zhu = "沐"
Case 27
zhu = "淮"
Case 28
zhu = "莉"
Case 29
zhu = "淑"
Case 30
zhu = "申"
Case 31
zhu = "双"
Case 32
zhu = "霆"
Case 33
zhu = "媛"
Case 34
zhu = "熙"
Case 35
zhu = "彩"
Case 36
zhu = "明"
Case 37
zhu = "琪"
Case 38
zhu = "兴"
Case 39
zhu = "旺"
Case 40
zhu = "泉"
Case 41
zhu = "诚"
Case 42
zhu = "秋"
Case 43
zhu = "生"
Case 44
zhu = "骏"
Case 45
zhu = "晶"
Case 46
zhu = "然"
Case 47
zhu = "怡"
Case 48
zhu = "蓉"
Case 49
zhu = "淳"
Case 50
zhu = "宇"
Case 51
zhu = "玉"
Case 52
zhu = "志"
Case 53
zhu = "麻"
Case 54
zhu = "宏"
Case 55
zhu = "静"
Case 56
zhu = "萱"
Case 57
zhu = "楚"
Case 58
zhu = "茵"
Case 59
zhu = "迪"
Case 60
zhu = "卡"
Case 61
zhu = "辉"
Case 62
zhu = "苑"
Case 63
zhu = "博"
Case 64
zhu = "新"
Case 65
zhu = "豪"
Case 66
zhu = "炫"
Case 67
zhu = "翰"
Case 68
zhu = "豪"
Case 69
zhu = "睿"
Case 70
zhu = "渊"
Case 71
zhu = "昊"
Case 72
zhu = "宸"
Case 73
zhu = "博"
Case 74
zhu = "哲"
Case 75
zhu = "瀚"
Case 76
zhu = "幽"
Case 77
zhu = "桦"
Case 78
zhu = "逸"
Case 79
zhu = "智"
Case 80
zhu = "鑫"
Case 81
zhu = "鹏"
Case 82
zhu = "顾"
Case 83
zhu = "玮"
Case 84
zhu = "益"
Case 85
zhu = "轩"
End Select
nei = nei & zhu
//第三个字
Select Case c
Case 1
zhu = "敢"
Case 2
zhu = "款"
Case 3
zhu = "淦"
Case 4
zhu = "筐"
Case 5
zhu = "贵"
Case 6
zhu = "辜"
Case 7
zhu = "凯"
Case 8
zhu = "植"
Case 9
zhu = "奠"
Case 10
zhu = "捷"
Case 11
zhu = "掎"
Case 12
zhu = "探"
Case 13
zhu = "敦"
Case 14
zhu = "智"
Case 15
zhu = "棠"
Case 16
zhu = "淘"
Case 17
zhu = "淡"
Case 18
zhu = "焦"
Case 19
zhu = "荔"
Case 20
zhu = "轸"
Case 21
zhu = "迦"
Case 22
zhu = "钧"
Case 23
zhu = "婷"
Case 24
zhu = "喋"
Case 25
zhu = "塘"
Case 26
zhu = "塔"
Case 27
zhu = "暖"
Case 28
zhu = "楠"
Case 29
zhu = "幄"
Case 30
zhu = "涯"
Case 31
zhu = "焰"
Case 32
zhu = "雁"
Case 33
zhu = "雅"
Case 34
zhu = "雯"
Case 35
zhu = "喻"
Case 36
zhu = "婺"
Case 37
zhu = "琬"
Case 38
zhu = "博"
Case 39
zhu = "棉"
Case 40
zhu = "涵"
Case 41
zhu = "淼"
Case 42
zhu = "淮"
Case 43
zhu = "番"
Case 44
zhu = "徨"
Case 45
zhu = "惠"
Case 46
zhu = "斑"
Case 47
zhu = "酣"
Case 48
zhu = "邯"
Case 49
zhu = "媚"
Case 50
zhu = "彬"
Case 51
zhu = "棠"
Case 52
zhu = "磊"
Case 53
zhu = "宸"
Case 54
zhu = "瓿"
Case 55
zhu = "梅"
Case 56
zhu = "晴"
Case 57
zhu = "婷"
Case 58
zhu = "霞"
Case 59
zhu = "惠"
End Select
随机取姓名 = nei & zhu
End Function