主题：[em]10 老问题再求！
jyl0716
[专家分：0] 发布于 2006-10-18 17:03:00
有一个不多于5位的正整数，要求：（1）求出它是几位数；（2）分别输出每一位数字：（3）按逆序打印出各位数字。
我在百度搜了一下，全是C的。。。我想要QB的，没办法，没有人教，只有求各位前辈了！
回复列表 （共17个回复）
11 楼
jassion [专家分：0] 发布于 2007-04-14 20:29:00
scanf("%1d%1d%1d%1d%1d",&a,&b,&c,&d,&e,&f);
printf("%d%d%d%d%d%d%d",f,e,d,c,b,a);
printf("%d,%d,%d,%d,%d,%d",a,b,c,d,e,f);
为什么不能有个这样的循环呢?
12 楼
jassion [专家分：0] 发布于 2007-04-14 20:32:00
我的意思是输几位就几位,我这样只能输六位呀
13 楼
Matodied [专家分：7560] 发布于 2007-04-24 14:32:00
2楼,不知你是输错了,还是论坛专用语言,"米办法"是什么意思?
14 楼
lcy947 [专家分：30] 发布于 2007-04-25 00:07:00
input a
a$=ltrim$(str$(a)
?len(a$)
for i= 1 to len(a$)
?mid$(a$,i,1),
next.i
for i=len(a$) to 1 step -1
?mid$(a$,i,1);
next i
end
15 楼
Matodied [专家分：7560] 发布于 2007-04-30 21:34:00
11楼,你怎么又用C了?有本事到C论坛去混.
16 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-05-01 16:37:00
INPUT n$
PRINT LEN(n$) --------求出它是几位数
FOR i = 1 TO LEN(n$) --------分别输出每一位数字
PRINT MID$(n$, i, 1); SPC(3);NEXT i
PRINT
FOR i = 1 TO LEN(n$) --------按逆序打印出各位数字
t$ = MID$(n$, i, 1) + t$
NEXT i
PRINT t$
17 楼
lml1996 [专家分：30] 发布于 2007-05-03 11:28:00
cls
input n
dim a(10)
do
y=y+1
a(y)=n mod 10
n=n\10
loop until n=0
print y
print
for i=y to 1 step -1
print a(i)
next i
print
for i=1 to y
print a(i);
next i
end
先分解,用y统计次数,再正向、反向输出,输出y
我来回复
您所在位置：