android 随机文字,按键精灵安卓随机输入预设文字内容

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