主题：大家帮我编一下啊。。
MR.帅洋
[专家分：0] 发布于 2007-03-06 14:02:00
从键盘输入一个字符串，要求字符串中各字符按ASCII大小从小到大输出。
我是新手，我就不知道VAL这个函数怎么用。
回复列表 （共6个回复）
沙发
MR.帅洋 [专家分：0] 发布于 2007-03-06 14:09:00
帮帮忙吧 在家自学QB不容易啊！！
板凳
MR.帅洋 [专家分：0] 发布于 2007-03-06 14:13:00
大家不用帮我了。麻烦各位了。 不好意思啊
东北下雪，把我冻着了，， 麻烦各位了。。
请楼主把我帖子删了吧 谢谢。。。
3 楼
鬼的魂魄 [专家分：20] 发布于 2007-03-23 19:16:00
cls
INPUT N$
DIM A(LEN(N$))
FOR I=1 TO LEN(N$):A(I)=ASC(MID$(N$,I,1)):NEXT I
FOR I=1 TO LEN(N$)
FOR J=I+1 TO LEN(N$)
IF A(I)>A(J) THEN SWAP A(I),A(J)
NEXT J
? CHR$(A(I));
NEXT I
END
[em12][em12][em12][em12][em12][em12][em12]
4 楼
随便你好 [专家分：530] 发布于 2007-03-30 16:58:00
CLS
INPUT A$
LA=LEN(A$):FOR I=1 TO LA:A$(LA)=MID$(A$,I,1):NEXT I
FRO I=1 TO LA-1
FOR J=I+1 TO LA
IF A$(I)>A$(J) THEN SWAP A$(I),A$(J)
NEXT J
X$=X$+A$(I)
NEXT J
PRINT X$+A$(LA)
END
上面的那位同学呀,别忘了字符本身也可以比较!
[em17][em17][em17][em17][em17]
5 楼
盗版单均昊 [专家分：0] 发布于 2007-04-02 11:17:00
楼上的，你的程序也不简单呦！！
哈哈！！
6 楼
爱丽斯LING [专家分：560] 发布于 2007-04-04 17:13:00
cls
INPUT N$
DIM A(LEN(N$))
FOR I=1 TO LEN(N$):A(I)=ASC(MID$(N$,I,1)):NEXT I
FOR I=1 TO LEN(N$)
FOR J=I+1 TO LEN(N$)
IF A(I)>A(J) THEN SWAP A(I),A(J)
NEXT J
? CHR$(A(I));
NEXT I
END
我来回复
您所在位置：