ASCII查询器（初学者来看）

Filwu

这就是BAS版本的  ASCII查询器 完整代码

auska

10 input a$

20 a=asc(a$)

30 print a

40 end

估计也行

bqq00

补充：

综合一下

10 LOCATE 1,5

20 PRINT "1.按键ASCII码"，SPC（5）；“2.字符ASCII码”；

30 I$=INKEY$:CLS

40 IF I$="b" THEN 100:ELSE IF I$="n" THEN 200

50 BEEP:CLS:GOTO 10

100 CLS:K=ASC(INKEY$)
110 PRINT K
120 IF K=27 THEN 40 ELSE GOTO 10
130 END

200 CLS:input a$

210 a=asc(a$)

220 print a

230 end

现写的，错了别怪我

MAXIM

10 K=ASC(INKEY$):IF K<>27 THEN PRINT K:10



功能最强的

Filwu

今天竟然发现 ASCII查询器 这个软件，竟然还是用LAVA编的，真是佩服作者
其实用BAS几句代码就可以了，自己可以试试
10 K=ASC(INKEY$)
20 PRINT K
30 IF K=27 THEN 40 ELSE GOTO 10
40 END


------------------------------------------------
欢迎光临
http://filwu.ys168.com/  文曲星软件相关的下载空间
QQ群：4733444   文曲星软件