怎样判断一个数字是否能被三整除

xlz836019736

我知道方法是将各位上的数字加起来÷3，如果能整除就代表这个数能被3整除，否则就不能
代码怎么写啊，是不是需要用到分割文本和取文本左边这2个命令啊

V雪落有声V

很多方法地……占楼编辑

lookhuiji

.版本 2

.子程序 _按钮1_被单击


.如果 (到数值 (编辑框1.内容) ％ 3 ＝ 0)
    信息框 (“”, 0, )
.否则

.如果结束

xlz836019736

回复 3# lookhuiji


    我汗，我不要直接除的方法，我要各位相加的方法

ZYGG

.版本 2
.程序集 窗口程序集1
.程序集变量 公数值, 整数型
.子程序 _按钮1_被单击
信息框 (到文本 (到整数 (编辑框1.内容)) ＋ “是否能被3整除:” ＋ 到文本 (是否能被三整除 (到整数 (编辑框1.内容))), 0, )
.子程序 是否能被三整除, 逻辑型
.参数 欲判断的数值, 整数型
.局部变量 c, 整数型
.局部变量 x, 整数型
.局部变量 jc, 整数型
公数值 ＝ 欲判断的数值
.循环判断首 ()
    c ＝ 子判断程序 (公数值)
.循环判断尾 (c ＞ 9)
.如果真 (c ＝ 3 或 c ＝ 6 或 c ＝ 9)
    返回 (真)
.如果真结束
返回 (假)
.子程序 子判断程序, 整数型
.参数 欲判断的数值, 整数型
.局部变量 a, 文本型
.局部变量 b, 整数型
.局部变量 jc, 整数型
a ＝ 到文本 (欲判断的数值)
.计次循环首 (取文本长度 (a), jc)
    b ＝ b ＋ 到整数 (取文本中间 (a, jc, 1))
.计次循环尾 ()
公数值 ＝ b
返回 (b)

只需一个窗口,一个编辑框,一个按钮.

exit11

只用取文本中间()就可以了！

1. .版本 2
   
2. 
   
3. .子程序 子程序1
   
4. .参数 原始数, 文本型, 可空
   
5. .局部变量 x, 整数型
   
6. .局部变量 b, 文本型
   
7. .局部变量 c, 整数型
   
8. .局部变量 a, 文本型
   
9. 
   
10. a ＝ 到文本 (原始数)
    
11. .循环判断首 ()
    
12. .计次循环首 (取文本长度 (a), x)
    
13. b ＝ 取文本中间 (a, x, 1)
    
14. c ＝ c ＋ 到整数 (b)
    
15. .计次循环尾 ()
    
16. a ＝ 到文本 (c)
    
17. c ＝ 0
    
18. .循环判断尾 (取文本长度 (a) ＞ 1)
    
19. 
    
20. .判断开始 (a ＝ “3” 或 a ＝ “6” 或 a ＝ “9”)
    
21. 信息框 (原始数 ＋ “ 可以被3整除”, 0, )
    
22. .默认
    
23. 信息框 (原始数 ＋ “ 可以不能被3整除”, 0, )
    

复制代码

xlz836019736

回复 6# exit11


    少用些变量啊，都给我看糊涂了

易帆风顺

原理，只要这个数字中每个数字之和被三整除，那么这个数即可被三整除，如：
100005，1+0+0+0+0+5＝6，那这个数（100005）就能被3整除，至于代码，自己写吧，很简单了。

ZYGG

1. .版本 2
   
2. 
   
3. .子程序 是否能被3整除, 逻辑型, 公开, 返回真呢就说明能被3整除,假则不能.
   
4. .参数 欲判断数值, 整数型
   
5. .局部变量 数值文本, 文本型, , , 这是"欲判断数值"转成的文本型局部变量.
   
6. .局部变量 计次, 整数型, , , "计次循环首"命令的必须变量,记录第几次循环.
   
7. .局部变量 总和, 整数型, , , 这是数值每一位相加的结果.
   
8. 
   
9. 数值文本 ＝ 到文本 (欲判断数值)  ' 将"欲判断数值"转成文本型局部变量,以便下边的操作.
   
10. .循环判断首 ()
    
11.     总和 ＝ 0  ' 初始化值.
    
12.     .计次循环首 (取文本长度 (数值文本), 计次)  ' "取文本长度 (数值文本)"是取得数值文本的长度,多长就循环几次.
    
13.         总和 ＝ 总和 ＋ 到整数 (取文本中间 (数值文本, 计次, 1))  ' 上一次的结果(总和)+到整数()是为了把文本变量转成整数型变量后才能相加;取文本中间 (数值文本, 计次, 1)计次是记录第几次循环,也是要把第几个数相加;1是要取出的数量.
    
14.     .计次循环尾 ()
    
15.     数值文本 ＝ 到文本 (总和)  ' 让数值文本变成相加的结果,这样是为了当总和大于9时,再来将这个总和在加起来.如果不用这个的话,将变成死循环,因为不管怎样都是在重复判断"数值文本".
    
16.     输出调试文本 (数值文本)
    
17. .循环判断尾 (总和 ＞ 9)  ' 总和大于9就继续循环下去,小于或等于就跳出循环.例如;156每个数相加是大于12的,如果大于12,只用3,6,9就不能判断了,所以要再加,就是3了.
    
18. .如果真 (总和 ＝ 3 或 总和 ＝ 6 或 总和 ＝ 9)
    
19.     返回 (真)  ' 总和等于3,6,9就是能被3整除的数.
    
20. .如果真结束
    
21. 返回 (假)  ' 不是等于3,6,9就不是能被3整除的数.
    

复制代码

可以放到按钮被单击事件里:
信息框 (到文本 (到整数 (编辑框1.内容)) ＋ “是否能被3整除:” ＋ 到文本 (是否能被3整除 (你想要判断的数值)), 0, )

建议:用求余数的方法最好:

1. 
   
2. .如果 (到数值 (编辑框1.内容) ％ 3 ＝ 0)
   
3.     信息框 (“”, 0, )
   
4. .否则
   
5. 
   
6. .如果结束
   

复制代码

々綠※梦々真诚为您解答!QQ:568191043.

exit11

回复  exit11


    少用些变量啊，都给我看糊涂了
xlz836019736 发表于 2010-9-23 19:04

    精简一下就好了

1. .版本 2
   
2. .子程序 子程序1
   
3. .参数 原始数, 文本型, 可空
   
4. .局部变量 x, 整数型
   
5. .局部变量 c, 整数型
   
6. .循环判断首 ()
   
7.     .计次循环首 (取文本长度 (原始数), x)
   
8.         c ＝ c ＋ 到整数 (取文本中间 (原始数, x, 1))  ' 将提供的数字拆开并进行相加
   
9.     .计次循环尾 ()
   
10.     原始数 ＝ 到文本 (c)
    
11.     c ＝ 0
    
12. .循环判断尾 (取文本长度 (原始数) ＞ 1)  ' 如果原始数的长度大于1，就继续循环，拆解相加
    
13. .判断开始 (原始数 ＝ “3” 或 原始数 ＝ “6” 或 原始数 ＝ “9”)
    
14.     信息框 (“该数可以被3整除”, 0, )
    
15. .默认
    
16.     信息框 (“该数不能被3整除”, 0, )
    
17. 
    
18. 
    

复制代码