求助解决计次循环小白问题

无敌哥

zi.zip (169.66 KB, 下载次数: 7)

2015-12-16 11:15 上传

点击文件名下载附件

    ' 就是这循环里不会写了。我想获取三个词，系统通过编辑框的设置得到三个词的结果。当然我知道可以分开多写几个变量能实现，
    ' 如：
    ' 词1=分割 [取随机数 (1, 个数)]
    ' 词2=分割 [取随机数 (1, 个数)]
    ' 词3=分割 [取随机数 (1, 个数)]
    ' 全部词=词1+词2+词3
    ' 但是我希望能用到编辑框写入进行设置，这样就方便多了，想得到几个的时候直接进行设置。

aping331

zi.zip (193.61 KB, 下载次数: 4)

2015-12-16 11:28 上传

点击文件名下载附件

VC大圣

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文字	文本型
个数	整数型
a	整数型
词	文本型
分割	文本型		0
全部词	文本型
i	整数型

置随机数种子 ()
文字 ＝ 到文本 (读入文件 (“zi.txt”))
个数 ＝ 文本_取出现次数 (文字, #换行符, )
分割 ＝ 分割文本 (文字, #换行符, )
i ＝ 到整数 (编辑框1.内容)
计次循环首 (i, a)
词 ＝ 分割 [取随机数 (1, 个数)]
全部词 ＝ 全部词 ＋ 词
计次循环尾 ()
调试输出 (全部词)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文字, 文本型<br /> .局部变量 个数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 词, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 全部词, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> 文字 ＝ 到文本 (读入文件 (“zi.txt”))<br /> 个数 ＝ 文本_取出现次数 (文字, #换行符, )<br /> 分割 ＝ 分割文本 (文字, #换行符, )<br /> i ＝ 到整数 (编辑框1.内容)<br /> .计次循环首 (i, a)<br />     词 ＝ 分割 [取随机数 (1, 个数)]<br /> <br />     全部词 ＝ 全部词 ＋ 词<br /> <br /> .计次循环尾 ()<br /> 调试输出 (全部词)

join90

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文字	文本型
个数	整数型
a	整数型
词	文本型
分割	文本型		0
全部词	文本型
词1	文本型

置随机数种子 ()
文字 ＝ 到文本 (读入文件 (“zi.txt”))
个数 ＝ 文本_取出现次数 (文字, #换行符, )
分割 ＝ 分割文本 (文字, #换行符, )
全部词 ＝ “”
计次循环首 (到整数 (编辑框1.内容), a)
词 ＝ 分割 [取随机数 (1, 个数)]
词1 ＝ 分割 [取随机数 (1, 个数)]
全部词 ＝ 全部词 ＋ 词1
计次循环尾 ()
调试输出 (全部词)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文字, 文本型<br /> .局部变量 个数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 词, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 全部词, 文本型<br /> .局部变量 词1, 文本型<br /> <br /> 置随机数种子 ()<br /> 文字 ＝ 到文本 (读入文件 (“zi.txt”))<br /> 个数 ＝ 文本_取出现次数 (文字, #换行符, )<br /> 分割 ＝ 分割文本 (文字, #换行符, )<br /> 全部词 ＝ “”<br /> <br /> .计次循环首 (到整数 (编辑框1.内容), a)<br />     词 ＝ 分割 [取随机数 (1, 个数)]<br /> <br /> <br /> <br />     词1 ＝ 分割 [取随机数 (1, 个数)]<br /> <br />     全部词 ＝ 全部词 ＋ 词1<br /> <br /> <br /> .计次循环尾 ()<br /> 调试输出 (全部词)

补充内容 (2015-12-16 11:42):
有   文本_取行数，来取行数   不有取出现次数，

VC大圣

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文字	文本型
个数	整数型
a	整数型
词	文本型
分割	文本型		0
全部词	文本型
i	整数型

置随机数种子 ()
文字 ＝ 到文本 (读入文件 (“zi.txt”))
个数 ＝ 文本_取出现次数 (文字, #换行符, )
分割 ＝ 分割文本 (文字, #换行符, )
i ＝ 到整数 (编辑框1.内容)
计次循环首 (i, a)
词 ＝ 分割 [取随机数 (1, 个数)]
全部词 ＝ 全部词 ＋ 词
计次循环尾 ()
调试输出 (全部词)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文字, 文本型<br /> .局部变量 个数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 词, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 全部词, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> 文字 ＝ 到文本 (读入文件 (“zi.txt”))<br /> 个数 ＝ 文本_取出现次数 (文字, #换行符, )<br /> 分割 ＝ 分割文本 (文字, #换行符, )<br /> i ＝ 到整数 (编辑框1.内容)<br /> .计次循环首 (i, a)<br />     词 ＝ 分割 [取随机数 (1, 个数)]<br />     全部词 ＝ 全部词 ＋ 词<br /> .计次循环尾 ()<br /> 调试输出 (全部词)

刚才写错了！~