如何在QB程序中输入汉字？

记事本里输进�

不可能！输入后是乱码�

Win98附带有汉字支持系统，在C:\下输入Pdos95就可以了

还是使用UCDOS吧�

SDFWEE

我不知道，请详细讲解，谢�

最好是用UCDOS或天汇等支持中文输入的DOS系统进行操作QB,我们在学校上机都是用的UCDOS来编程的,里面用ALT+F2-6可以切换中英文输入,也支持显示.但在DOS下编的程序,拿到WINDOS下运行的话,中文部分会是乱码

ddddd,真好！！�

DECLARE FUNCTION bin2binstr$ (b%) 
'note:请把"ucdos"的字体文件复制出来。
 
DIM a%(16) 
DIM bstr1$(16) 
DIM bstr$(16) 
SCREEN 12 
CLS 


OPEN "HZK16" FOR BINARY AS #1 

FOR offs = 1 TO 500000 STEP 32 
'offs = 45120 
LOCATE 1, 1 
w = INT(offs / 32) MOD 94 
q = INT(INT(offs / 32) / 94) 
PRINT q, w 

SEEK #1, offs 
FOR rec = 1 TO 16 
 GET #1, , a%(rec) 
' PRINT HEX$(a%(rec)) 
NEXT rec 
FOR i = 1 TO 16 
 bstr1$(i) = bin2binstr$(a%(i)) 
 bstr$(i) = RIGHT$(bstr1$(i), 8) + LEFT$(bstr1$(i), 8) 

' PRINT bstr$(i) 
NEXT i 
'INPUT aa 
x = 200 

FOR i = 1 TO 16 
 FOR j = 1 TO 16 
 IF MID$(bstr$(i), j, 1) = "1" THEN 
 PSET (j + x, i + 60), 2 
 ELSE 
 PRESET (j + x, i + 60) 
 END IF 
 IF MID$(bstr$(i), j, 1) = "1" THEN 
 PSET (j + x - 1, i + 59), 13 
 END IF 
 NEXT j 
NEXT i 
'NPUT aa 
FOR delay = 1 TO 80000: NEXT delay 
CLS 
NEXT offs 

FUNCTION bin2binstr$ (b%) STATIC 
t$ = STRING$(16, "0") 
IF b% THEN 
 IF b% < 0 THEN 
MID$(t$, 1, 1) = "1" 
END IF 
mask% = &H4000 
FOR i% = 2 TO 16 
IF b% AND mask% THEN 
MID$(t$, i%, 1) = "1" 
END IF 
mask% = mask% / 2 
NEXT i% 
END IF 
bin2binstr$ = t$ 
END FUNCTION

可以不用字符串，用and运算检测特定位，为真就画点，能快一点：
SCREEN 12
x = 1
y = 1
ch$ = "壬"
DIM text(32)
OPEN "d:\qbasic\hzk16f" FOR RANDOM AS #1 LEN = 32
FIELD #1, 32 AS c$
ss = ASC(MID$(ch$, 1, 1))
ww = ASC(MID$(ch$, 2, 1))
aa = (ss - 161) * 94 + (ww - 161)
GET #1, aa
FOR i = 0 TO 15
FOR j = 0 TO 1
a = ASC(MID$(c$, i * 2 + j + 1, 1))
FOR k = 0 TO 7
code = a AND 2 ^ (7 - k)
IF code THEN PSET (x + j * 8 + k, y + i)
NEXT
NEXT
NEXT

用OPEN格式

推荐十进制basic，可以输入中文

用WIN-TC附带的CDOS.

强烈推荐CDOS