易码技术论坛

 找回密码
 加入易码
搜索
查看: 63041|回复: 1

[求助]各位测试一下下面的代码,会发现一个问题

[复制链接]
发表于 2005-4-3 20:53:00 | 显示全部楼层
如果你把得到的peek值还原成图像会发现,总会显示的原图中没有的东西,我就是不动是不是文曲星的问题
 楼主| 发表于 2005-4-2 21:47:31 | 显示全部楼层 |阅读模式
各位测试一下下面的代码,会发现一个问题

10 graph:input a$:cls:print a$

20 for i=6592 to 8191

30 locate 3,12:print i;" ";peek(i);

40 w$=inkey$

50 if asc(w$)=27 then end

60 locate 3,12:print "                             "

70 next

有发现请回贴,谢谢
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-4-29 07:27 , Processed in 0.011570 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表