Question

用按键精灵写以下

写一个函数来实现功能：随机生成一个长度为5~15位英文+数字组成的字符串。
要求：字符串按照 大写小写数字的顺序间隔排列，生成的字符串作为函数返回值传出。例如函数名为随机生成英文字母，调用这个函数名后返回了字符串"Ew2Tr1Yu6Vd4"

Answer 1

超简单

相信不是新手的看了代码都会

思路就是 先单独随机生成3类数

1. ..随机大写字母

2. ..随机小写字母

3. ..随机数字0-9（这个自己想思路了）

下面代码

生成数=""
For 5
Call 生成随机大写()
生成数=生成数&随机数
Call 生成随机小写()
生成数=生成数&随机数
Call 生成随机数字()
生成数=生成数&随机数
    Next
TracePrint 生成数
Sub 生成随机大写()
    Randomize
    随机数=chr(Int((90- 65 + 1) * Rnd + 65))
    TracePrint 随机数
End Sub
Sub 生成随机小写()
    Randomize
    随机数=chr(Int((122- 97 + 1) * Rnd + 97))
    TracePrint 随机数
End Sub
Sub 生成随机数字()
    Randomize
    随机数=Int((9- 1 + 1) * Rnd + 1)
    TracePrint 随机数
End Sub

Answer 2

超简单

相信不是新手的看了代码都会

思路就是 先单独随机生成3类数
..随机大写字母
..随机小写字母
..随机数字0-9（这个自己想思路了）
下面代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

生成数=""
For 5
Call 生成随机大写()
生成数=生成数&随机数
Call 生成随机小写()
生成数=生成数&随机数
Call 生成随机数字()
生成数=生成数&随机数
Next
TracePrint 生成数
Sub 生成随机大写()
Randomize
随机数=chr(Int((90- 65 + 1) * Rnd + 65))
TracePrint 随机数
End Sub
Sub 生成随机小写()
Randomize
随机数=chr(Int((122- 97 + 1) * Rnd + 97))
TracePrint 随机数
End Sub
Sub 生成随机数字()
Randomize
随机数=Int((9- 1 + 1) * Rnd + 1)
TracePrint 随机数
End Sub