|
发表于 2010-9-23 23:51:06
|
显示全部楼层
广东省梅州市
本帖最后由 ZYGG 于 2010-9-23 23:56 编辑
- .版本 2
- .子程序 是否能被3整除, 逻辑型, 公开, 返回真呢就说明能被3整除,假则不能.
- .参数 欲判断数值, 整数型
- .局部变量 数值文本, 文本型, , , 这是"欲判断数值"转成的文本型局部变量.
- .局部变量 计次, 整数型, , , "计次循环首"命令的必须变量,记录第几次循环.
- .局部变量 总和, 整数型, , , 这是数值每一位相加的结果.
- 数值文本 = 到文本 (欲判断数值) ' 将"欲判断数值"转成文本型局部变量,以便下边的操作.
- .循环判断首 ()
- 总和 = 0 ' 初始化值.
- .计次循环首 (取文本长度 (数值文本), 计次) ' "取文本长度 (数值文本)"是取得数值文本的长度,多长就循环几次.
- 总和 = 总和 + 到整数 (取文本中间 (数值文本, 计次, 1)) ' 上一次的结果(总和)+到整数()是为了把文本变量转成整数型变量后才能相加;取文本中间 (数值文本, 计次, 1)计次是记录第几次循环,也是要把第几个数相加;1是要取出的数量.
- .计次循环尾 ()
- 数值文本 = 到文本 (总和) ' 让数值文本变成相加的结果,这样是为了当总和大于9时,再来将这个总和在加起来.如果不用这个的话,将变成死循环,因为不管怎样都是在重复判断"数值文本".
- 输出调试文本 (数值文本)
- .循环判断尾 (总和 > 9) ' 总和大于9就继续循环下去,小于或等于就跳出循环.例如;156每个数相加是大于12的,如果大于12,只用3,6,9就不能判断了,所以要再加,就是3了.
- .如果真 (总和 = 3 或 总和 = 6 或 总和 = 9)
- 返回 (真) ' 总和等于3,6,9就是能被3整除的数.
- .如果真结束
- 返回 (假) ' 不是等于3,6,9就不是能被3整除的数.
复制代码
可以放到按钮被单击事件里:
信息框 (到文本 (到整数 (编辑框1.内容)) + “是否能被3整除:” + 到文本 (是否能被3整除 (你想要判断的数值)), 0, )
建议:用求余数的方法最好:
-
- .如果 (到数值 (编辑框1.内容) % 3 = 0)
- 信息框 (“”, 0, )
- .否则
- .如果结束
复制代码
々綠※梦々真诚为您解答!QQ:568191043. |
|