主题:在qbasic中如何使用中文?
yxtk2005
[专家分:50] 发布于 2005-04-14 21:09:00
在qbasic中如何使用中文?
我用Qbasic使用不了中文字符,怎么解决?要安装usdos吗?
回复列表 (共4个回复)
沙发
qb45 [专家分:2880] 发布于 2005-04-15 08:45:00
请看论坛的相关的帖子,自己耐心找找看
板凳
莫非白 [专家分:750] 发布于 2005-04-15 15:12:00
http://www.programfan.com/club/showbbs.asp?id=70695[em9]
3 楼
yxtk2005 [专家分:50] 发布于 2005-04-17 09:07:00
10 CLS
PRINT " 年龄=NN; 身高=L; 体重=G;美丽值=ml(最大100,最小0)"
INPUT nn, l, g, ml
IF nn > 25 AND mm < 18 THEN
GOTO 20 ''太大太小不要
ELSEIF l < 150 AND l > 200 THEN
GOTO 20 '' 太矮太高不要
ELSEIF g > 55 AND g < 35 THEN
GOTO 20 '' 太肥太瘦不要
ELSEIF ml < 60 THEN
GOTO 20 ''太吓人不要
ELSE
PRINT "哇,你好标准哦,";
PRINT "你符合做我女朋友的条件,";
PRINT "请和QQ42326285联系"
END IF
20:END
4 楼
yxtk2005 [专家分:50] 发布于 2005-04-17 09:19:00
已经解决中文输入问题,谢谢qb45!只不过你没有告诉我怎么做,我自己琢磨出来的。
上面的程序运行不了,将or改为and条件就严多了。中文全角字符也不认。班门弄斧了!
10 CLS
PRINT " 年龄=NN; 身高=L; 体重=G;美丽值=ml(最大100,最小0)"
INPUT nn, l, g, ml
IF nn > 25 AND mm < 18 THEN
GOTO 20 ''太大太小不要
ELSEIF l < 150 AND l > 200 THEN
GOTO 20 '' 太矮太高不要
ELSEIF g > 55 AND g < 35 THEN
GOTO 20 '' 太肥太瘦不要
ELSEIF ml < 60 THEN
GOTO 20 ''太吓人不要
ELSE
PRINT "哇,你好标准哦,";
PRINT "你符合做我女朋友的条件,";
PRINT "请和QQ42326285联系"
END IF
20 END
我来回复