- 注册时间
- 2005-10-17
- 最后登录
- 1970-1-1
|
发表于 2007-2-7 15:13:34
|
显示全部楼层
如果两个字符串相等,就说明这两个字符串当中的所有ASCII码相等。下面我们举个例子:输入一个长度不大于50的半角字符串,把这个字符串中的字符按ASCII码从小到大排列:
10 DIM$ X$(50):INPUT A$
20 FOR I=1 TO LEN(A$)
30 X$(I)=MID$(A$,I,1):NEXT
40 FOR I=1 TO LEN(A$)
50 FOR J=I TO LEN(A$)
60 IF ASC(X$(I))>ASC(X$(J)) THEN SWAP X$(I),X$(J)
70 NEXT:NEXT
80 FOR I=1 TO LEN(A$)
90 W$=W$+X$(I):NEXT
100 PRINT W$
110 END
运行
?ZYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYZ
上面是我从薛老师的BASIC教程里摘录的,是关于字符串的排列。
数字的话把"A$"换成"A"应该就可以了。 |
|