简单！！！ — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 简单！！！

主题：简单！！！

游戏之王 [专家分：540] 发布于 2007-04-06 17:05:00

输入一个字符串，内有数字和非数字字符。如A123X456Y7A，302ATB567BCC，打印字符串中所有连续（指不含非数字字符）的数字所组成的整数，并统计共有多少个整数。
[em9][em1][em18]

11 楼

我的电脑 [专家分：990] 发布于 2007-09-28 14:01:00

cls
dim a as double
input n$
for i=1 to len(n$)
b$=mid$(n$,i,1)
if b$<="9" and b$>="0" then t$=t$+b$
next i
a=val(t$)
?a
end

12 楼

傲视人间 [专家分：60] 发布于 2007-11-25 11:52:00

cls
input a$
for i=1 to len(a$)
x=val(mid$(a$,i,1))
if x>0 and x<9 then s=s+1
next i
print s
end

13 楼

QB小猪 [专家分：1200] 发布于 2007-12-06 17:44:00

007bond,你理解错了...

您尚未登录，请登录后再回复。点此登录或注册