代码

变量 a 为 整数型=0;

覆写方法 载入布局完毕()
   父对象.载入布局完毕()
   //初始化
   文本框4.内容="0";
结束 方法

事件 拖动条1:进度被改变(a 为 整数型)
   文本框4.内容=到文本(a);  
结束 事件

方法 是数字(str 为 文本型) 为 逻辑型
   变量 j 为 整数型=0;
   变量 bool 为 逻辑型=真;
   变量 slen 为 整数型 =文本操作.取文本长度(str);

   如果 slen < 1  
      则
      返回 假;
   结束 如果

   变量循环 j=0 至 (slen - 1)
      bool=字符操作.是否为数字(文本操作.取指定字符(str,j));
      如果 bool == 假
         则
         返回 假
      结束 如果
   结束 循环
   返回 bool;
结束 方法

事件 生成:被单击()
   编辑框1.内容="";
   // 最小值.刷新();
   // 最大值.刷新();
   // 文本框4.刷新();
   a=到整数(文本框4.内容);
   变量 i 为 整数型;
   变量循环 i=1 至 a
      如果 是数字(最小值.内容) 且 是数字(最大值.内容)
         则
         编辑框1.追加文本(到文本(算术运算.取随机数(到整数(最小值.内容),到整数(最大值.内容))));
         编辑框1.追加文本("  ");   
      否则
         弹出提示("请输入有效值!");
      结束 如果

   结束 循环 
结束 事件

更多推荐

随机数生成器(结绳中文app编程)