求一个易语言大神。编写一个子程序,主要功能可以实现统计编辑框1的一串字符每个字母出现次数显示在标签 5
求一个易语言大神。编写一个子程序,主要功能可以实现统计编辑框1的一串字符每个字母出现次数显示在标签下面有图!!!...
求一个易语言大神。编写一个子程序,主要功能可以实现统计编辑框1的一串字符每个字母出现次数显示在标签下面有图!!!
展开
展开全部
.版本 2
.局部变量 字母, 文本型
.局部变量 字母识别, 文本型
.局部变量 字母数组, 文本型, , "0"
.局部变量 次数数组, 整数型, , "0"
.局部变量 m, 整数型
.局部变量 n, 整数型
字母 = “abcdefghijklmnopqrstuvwxyz”
.计次循环首 (取文本长度 (字母), n)
加入成员 (字母数组, 到文本 (取文本中间 (字母, n, 1)))
加入成员 (次数数组, 0)
.计次循环尾 ()
调试输出 (取文本长度 (编辑框1.内容))
.计次循环首 (取文本长度 (字母), n)
.计次循环首 (取文本长度 (编辑框1.内容), m)
字母识别 = 到文本 (取文本中间 (编辑框1.内容, m, 1))
.如果真 (字母识别 = 字母数组 [n])
次数数组 [n] = 次数数组 [n] + 1
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
标签1.标题 = “”
.计次循环首 (取文本长度 (字母), n)
标签1.标题 = 字母数组 [n] + “:” + 到文本 (次数数组 [n]) + “次” + #换行符
.计次循环尾 ()
.局部变量 字母, 文本型
.局部变量 字母识别, 文本型
.局部变量 字母数组, 文本型, , "0"
.局部变量 次数数组, 整数型, , "0"
.局部变量 m, 整数型
.局部变量 n, 整数型
字母 = “abcdefghijklmnopqrstuvwxyz”
.计次循环首 (取文本长度 (字母), n)
加入成员 (字母数组, 到文本 (取文本中间 (字母, n, 1)))
加入成员 (次数数组, 0)
.计次循环尾 ()
调试输出 (取文本长度 (编辑框1.内容))
.计次循环首 (取文本长度 (字母), n)
.计次循环首 (取文本长度 (编辑框1.内容), m)
字母识别 = 到文本 (取文本中间 (编辑框1.内容, m, 1))
.如果真 (字母识别 = 字母数组 [n])
次数数组 [n] = 次数数组 [n] + 1
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
标签1.标题 = “”
.计次循环首 (取文本长度 (字母), n)
标签1.标题 = 字母数组 [n] + “:” + 到文本 (次数数组 [n]) + “次” + #换行符
.计次循环尾 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询