求助，儿子的一题（A,B,C,D转换为，2，3，4-------）

您所在位置：社区首页 — QBasic讨论区 — 求助，儿子的一题（A,B,C,D转换为，2，3，4-------）

回帖发新帖刷新版面

主题：求助，儿子的一题（A,B,C,D转换为，2，3，4-------）

go4162003 [专家分：0] 发布于 2007-12-05 23:15:00

我儿子才学QBASIC,老师布置一题：
将字母A,B,C,D或a,b,c,d转换为1，2，3，4 其余字母转换为5。
用INPUT不能输入字母，求解题，谢谢

本帖地址： http://bbs.pfan.cn/post/261188.html

回复列表（共4个回复）

沙发

春夏秋冬CXQD [专家分：140] 发布于 2007-12-06 17:04:00

CLS
INPUT N$
FOR I=1 TO LEN(N$)
A$=MID$(N$,I,1)
FOR J=1 TO 4
IF A$=CHR$(64+J) OR A$=CHR$(96+J) THEN A$=CHR$(48+J) ELSE A$="5"
NEXT J:PRINT A$;
NEXT I
END

板凳

小精灵LS [专家分：580] 发布于 2007-12-06 17:08:00

谁说INPUT不能输入字母，只要INPUT后面跟的是字符串变量就行了。

3 楼

tujunqiang [专家分：150] 发布于 2007-12-08 21:14:00

a$ = "abcdefghijklmnopqrstuvwxyz"

INPUT x$
x$ = LCASE$(x$)
x = INSTR(a$, x$)
IF x <= 4 THEN PRINT x ELSE PRINT 5
END

4 楼

go4162003 [专家分：0] 发布于 2007-12-10 00:16:00

谢谢

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求助，儿子的一题（A,B,C,D转换为，2，3，4-------）

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助，儿子的一题（A,B,C,D转换为，2，3，4-------）

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）