怎么生成不重复字母

milest

怎么生成不重复字母

Hwak

看看 取随机字母.zip (1.76 KB, 下载次数: 14)

2015-2-9 22:25 上传

点击文件名下载附件

ekin0147

看你要什么效果的啊   不重复的就 定义个字母数组  然后循环  写一个 删一个  

梦生

  

子程序名	返回值类型	公开	备 注
获取随机字母	文本型
参数名	类 型	参考	可空	数组	备 注
数量	整数型

变量名	类 型	静态	数组	备 注
letters	文本型		0
i	整数型
z	整数型
str	文本型

计次循环首 (26, i)
加入成员 (letters, 字符 (96 ＋ i))
计次循环尾 ()
计次循环首 (数量, i)
置随机数种子 ()
str ＝ str ＋ letters [取随机数 (1, 取数组成员数 (letters))]
计次循环尾 ()
返回 (str)

.版本 2<br /> <br /> .子程序 获取随机字母, 文本型<br /> .参数 数量, 整数型<br /> .局部变量 letters, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 str, 文本型<br /> <br /> .计次循环首 (26, i)<br />     加入成员 (letters, 字符 (96 ＋ i))<br /> .计次循环尾 ()<br /> .计次循环首 (数量, i)<br />     置随机数种子 ()<br />     str ＝ str ＋ letters [取随机数 (1, 取数组成员数 (letters))]<br /> .计次循环尾 ()<br /> 返回 (str)

梦生

  

子程序名	返回值类型	公开	备 注
获取随机字母	文本型
参数名	类 型	参考	可空	数组	备 注
数量	整数型

变量名	类 型	静态	数组	备 注
letters	文本型		0
i	整数型
z	整数型
str	文本型

计次循环首 (26, i)
加入成员 (letters, 字符 (96 ＋ i))
计次循环尾 ()
计次循环首 (数量, i)
置随机数种子 ()
z ＝ 取随机数 (1, 取数组成员数 (letters))
str ＝ str ＋ letters [z]
删除成员 (letters, z, 1)
计次循环尾 ()
返回 (str)

.版本 2<br /> <br /> .子程序 获取随机字母, 文本型<br /> .参数 数量, 整数型<br /> .局部变量 letters, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 str, 文本型<br /> <br /> .计次循环首 (26, i)<br />     加入成员 (letters, 字符 (96 ＋ i))<br /> .计次循环尾 ()<br /> .计次循环首 (数量, i)<br />     置随机数种子 ()<br />     z ＝ 取随机数 (1, 取数组成员数 (letters))<br />     str ＝ str ＋ letters [z]<br />     删除成员 (letters, z, 1)<br /> .计次循环尾 ()<br /> 返回 (str)

试试这个

Hwak

大小写时候会重复  不影响 大  小写的取

雾北

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
局部_次数	整数型

' a字符65  z字符90
置随机数种子 ()
计次循环首 (26, 局部_次数)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (字符 (取随机数 (65, 90))) ＋ #换行符
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局部_次数, 整数型<br /> <br /> ' a字符65  z字符90<br /> 置随机数种子 ()<br /> .计次循环首 (26, 局部_次数)<br />     编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (字符 (取随机数 (65, 90))) ＋ #换行符<br /> .计次循环尾 ()

雾北

雾北 发表于 2015-2-11 13:12
[e=3].版本 2

.程序集 窗口程序集1

小写97-122