搜索
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 求助,有段程序看不懂
标题:
求助,有段程序看不懂
取消只看楼主
xiaoqing2014
来 自:浙江杭州
等 级:
新手上路
帖 子:17
专家分:0
注 册:2014-3-7
结帖率:
100%
楼主
问题点数:0 回复次数:2
求助,有段程序看不懂
从10到19这10个数的完全平方数中筛选出各位互补相同的完全平方数,并将结果打印在屏幕上
FOR X=10 TO 19
Y=X*X
DO WHILE Y>0
W=Y MOD 10
IF A(W)=1 THEN EXIT DO
A(W)=1:Y=Y\10:LOOP
IF Y=0 THEN PRINT X*X
ERASE A
NEXT X
END
谁能帮帮我,中间那段循环我看不懂
2014-04-27 22:57
xiaoqing2014
来 自:浙江杭州
等 级:
新手上路
帖 子:17
专家分:0
注 册:2014-3-7
第
2
楼
得分:0
回复 楼主 xiaoqing2014
不好意思,是我打错了,不是互补相同,是互不相同
这两天有事,所以没有来!抱歉!没有及时说明!
2014-04-29 13:25
xiaoqing2014
来 自:浙江杭州
等 级:
新手上路
帖 子:17
专家分:0
注 册:2014-3-7
第
3
楼
得分:0
回复 3 楼 风吹过 b
这是一道题目,我看不懂,所以求助了
我把互不相同打成了互补相同,不好意思!
谢谢你的解析,我看懂了!
2014-04-29 13:28
3
1/1页
1
参与讨论请移步原网站贴子:
https://bbs.bccn.net/thread-430745-1-1.html
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.475443 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved