主题：输出1——999中能被3整除，且至少有一位数字是5的数
wdzrdr
[专家分：0] 发布于 2006-10-18 14:31:00
输出1——999中能被3整除，且至少有一位数字是5的数
回复列表 （共19个回复）
沙发
jyl0716 [专家分：0] 发布于 2006-10-19 17:39:00
CLS
DIM x AS INTEGER
FOR x = 1 TO 999
IF x MOD 3 = 0 THEN
y = x / 3
a = (y \ 100)
b = ((y MOD 100) \ 10)
c = ((y MOD 100) MOD 10)
IF a = 5 OR b = 5 OR c = 5 THEN
PRINT x;
END IF
END IF
NEXT x
END
高手帮忙看下错在哪？？？
板凳
jyl0716 [专家分：0] 发布于 2006-10-19 18:24:00
CLS
DIM x AS INTEGER
FOR x = 5 TO 999
IF x MOD 3 = 0 THEN
a = (x \ 100)
b = ((x MOD 100) \ 10)
c = x - (a * 100 + b * 10)
IF a = 5 OR b = 5 OR c = 5 THEN
PRINT a; b; c; x,
END IF
END IF
NEXT x
END
这样改，对不对！！！
刚学QB4天多，请高手指点一下了！
3 楼
moz [专家分：37620] 发布于 2006-10-19 19:26:00
for i=3 to 999 step 3
if instr(str$(i),"5") then print i
next
4 楼
jyl0716 [专家分：0] 发布于 2006-10-20 07:54:00
晕了。我用了一大串，你就3句。。。厉害。。。
9 楼
mickeyice [专家分：200] 发布于 2006-10-23 23:02:00
instr(str$(i),"5") .....
我还想用left$来判断呢.......
哎老了老了
moz 有相关的语句教程么?
支持发专题~~~~~
10 楼
心LJ蓝 [专家分：0] 发布于 2006-10-26 21:47:00
真惨啊~~我学了好十几天了~~不知道,MOZ你用的是什么函数~~我果然还是菜尿~不知道我这样打行不行~
for i = 15 to 999 step 3
if i mod 3 = 0 and i mod 10=5 tnen print i
next i
end
我来回复
您所在位置：
