主题：简单！！！
游戏之王
[专家分：540] 发布于 2007-04-06 17:05:00
输入一个字符串，内有数字和非数字字符。如A123X456Y7A，302ATB567BCC，打印字符串中所有连续（指不含非数字字符）的数字所组成的整数，并统计共有多少个整数。
[em9][em1][em18]
回复列表 （共13个回复）
沙发
随便你好 [专家分：530] 发布于 2007-04-06 17:13:00
CLS
INPUT N$:L=LEN(N$)
DIM B(L)
FOR I=1 TO L
A$=MID$(N$,I,1)
SELECT CASE A$
CASE "0" TO "9":C$=C$+A$
CASE ELSE:J=J+1:B(J)=VAL(C$):S=S+1:C$=""
END SELECT
NEXT I:A(J)=VAL(C$)
FOR I=1 TO J:?B(I);:NEXT I:?:?S
板凳
hhhchy [专家分：300] 发布于 2007-04-06 17:13:00
Hi!游戏之王,你天天都在玩游戏吧!
[em9][em10][em11][em13][em17][em18][em19][em20]
3 楼
007bond [专家分：540] 发布于 2007-04-06 17:22: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
4 楼
黑白猪-- [专家分：420] 发布于 2007-04-08 16:52:00
CLS
INPUT N$:L=LEN(N$)
DIM B(L)
FOR I=1 TO L
A$=MID$(N$,I,1)
SELECT CASE A$
CASE "0" TO "9":C$=C$+A$
CASE ELSE:J=J+1:B(J)=VAL(C$):S=S+1:C$=""
END SELECT
NEXT I:A(J)=VAL(C$)
FOR I=1 TO J:?B(I);:NEXT I:?:?S
[em2]
5 楼
小精灵LS [专家分：580] 发布于 2007-04-08 16:55: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
6 楼
chyx [专家分：450] 发布于 2007-04-08 17:02:00
CLS
INPUT N$:La=LEN(N$)
DIM B(L)
FOR I=1 TO La
A$=MID$(N$,I,1)
SELECT CASE A$
CASE "0" TO "9":C$=C$+A$
CASE ELSE
J=J+1:a(J)=VAL(C$):S=S+1:C$=""
END SELECT
NEXT I:a(J)=VAL(C$)
FOR I=1 TO J
?a(I);:NEXT I
? S
7 楼
Lovely哆啦 [专家分：1360] 发布于 2007-04-11 18:12:00
CLS
INPUT N$:La=LEN(N$)
DIM B(L)
FOR I=1 TO La
A$=MID$(N$,I,1)
SELECT CASE A$
CASE "0" TO "9":C$=C$+A$
CASE ELSE
J=J+1:a(J)=VAL(C$):S=S+1:C$=""
END SELECT
NEXT I:a(J)=VAL(C$)
FOR I=1 TO J
?a(I);:NEXT I
? S
8 楼
V2战警2 [专家分：390] 发布于 2007-07-26 18:05:00
CLS
INPUT N$:L=LEN(N$)
DIM B(L)
FOR I=1 TO L
A$=MID$(N$,I,1)
SELECT CASE A$
CASE "0" TO "9":C$=C$+A$
CASE ELSE:J=J+1:B(J)=VAL(C$):S=S+1:C$=""
END SELECT
NEXT I:A(J)=VAL(C$)
FOR I=1 TO J:print B(I);:NEXT I:print:print S[/quote]
9 楼
yaoyusheng [专家分：460] 发布于 2007-07-26 21:05:00
Private Sub Form_Click()
Cls
Dim a As Double
n$ = InputBox("")
For i = 1 To Len(n$)
b$ = Mid$(n$, i, 1)
If b$ <= "9" And b$ >= "0" Then t$ = t$ + b$
Next i
Print Len(t$)---------------整数个数
a = Val(t$)------------------整数
Print a
End Sub
楼上有的程序没有打印出出整数的个数.
10 楼
yaoyusheng [专家分：460] 发布于 2007-07-26 21:11:00
Private Sub Form_Click()
Cls
Dim s$
s$ = InputBox("s$=")
For i = 1 To Len(s$)
a$ = Mid$(s$, i, 1)
If a$ <= "9" And a$ >= "0" Then t$ = t$ + a$
Next i
Print "整数的个数是:"; Len(t$)
Print "这些整数是:"; Val(t$)
End Sub
这样也可以呀
我来回复
您所在位置：