修改个简单的源码

978069486

让数字出现了就在编辑框2显示，没有就不显示，为零的去掉

jr21066

用数值统计了一下

  

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

置随机数种子 (取启动时间 ())
计次循环首 (取随机数 (5, 9), )
编辑框1.加入文本 (到文本 (取随机数 (1, 9)))
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
数值	整数型		10
计数器	整数型
指针	整数型

计次循环首 (取文本长度 (编辑框1.内容), 计数器)
指针 ＝ 到整数 (取文本中间 (编辑框1.内容, 计数器, 1))
如果真 (指针 ≠ 0)
数值 [指针] ＝ 数值 [指针] ＋ 1

计次循环尾 ()
计次循环首 (9, 计数器)
如果真 (数值 [计数器] ≠ 0)
编辑框2.加入文本 (到文本 (计数器) ＋ “=” ＋ 到文本 (数值 [计数器]) ＋ #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 (取启动时间 ())<br /> .计次循环首 (取随机数 (5, 9), )<br />     编辑框1.加入文本 (到文本 (取随机数 (1, 9)))<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数值, 整数型, , "10"<br /> .局部变量 计数器, 整数型<br /> .局部变量 指针, 整数型<br /> <br /> .计次循环首 (取文本长度 (编辑框1.内容), 计数器)<br />     指针 ＝ 到整数 (取文本中间 (编辑框1.内容, 计数器, 1))<br />     .如果真 (指针 ≠ 0)<br />         数值 [指针] ＝ 数值 [指针] ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (9, 计数器)<br />     .如果真 (数值 [计数器] ≠ 0)<br />         编辑框2.加入文本 (到文本 (计数器) ＋ “=” ＋ 到文本 (数值 [计数器]) ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()