想提高字符显示的速度吗？想在常驻程序中使用字符显示功能吗？用过Ｃ的朋友可能会推荐使用直接写屏（所谓直接写屏既是指在ＶＧＡ
彩色８０列文本方式下，显示内存从ｂ８００ｈ 开始，屏幕上的每一个字符都对应显示内存的２个字节，偶字节为字符的ＡＳＣⅡ码，奇字节为该字符的属性。在显示内存里写入字符和属性即可在屏幕相对应处显示字符）实现上述功能。
可是ＱＢ的爱好者该怎么办？用Ｐｒｉｎｔ 语句显示字符实在太慢太慢，自然不可取。其实ＱＢ 也可以实现直接写屏功能，且看以下程序，本程序直接针对硬件编程，在屏幕第一行第一列显示１个绿色的字母Ｂ。
源程序如下：
ｄｅｃｌａｒｅ ｆｕｎｃｔｉｏｎ ｄｉｒｅｃｔｗｒｉｔｅ ！（ｘ！，ｙ！，Ａ＄，
ｉｃｏｌｏｒ ！）
ｃｌｓ
ｋ ＝ｄｉｒｅｃｔｗｒｉｔｅ（１，１，“Ｂ”，２）
ｗｈｉｌｅ ｉｎｋｅｙ＄＝“”
ｗｅｎｄ
ｉｆ ｋ ＝０ｔｈｅｎ ｐｒｉｎｔ“参数不符合要求”
ｅｎｄ
ｆｕｎｃｔｉｏｎ ｄｉｒｅｃｔｗｒｉｔｅ ！（ｘ！，ｙ！，Ａ＄，ｉｃｏｌｏｒ ！）
ｄｉｒｅｃｔ ＝１
ｄｅｆ ｓｈｇ ＝＆ｈｂ８００
ｉｆ ｘ ＞８０ｏｒ ｙ ＞２５ｏｒ ｘ ＜１ｏｒ ｙ ＜１
ｔｈｅｎ ｄｉｒｅｃｔ ＝０
ｅｎｄ ｉｆ
ｉｆｌｅｎ（Ａ＄）＜＞１ｔｈｅｎ
ｄｉｒｅｃｔ ＝０
ｅｎｄ ｉｆ
ｉｆ ｄｉｒｅｃｔｗｒｉｔｅ
ｔ ＝（ｘ －１）＊２＋（ｙ －１）＊８０＊２
ｐｏｋｅ ｔ ，ａｓｃ（Ａ＄）
ｐｏｋｅ ｔ ＋１，ｉｃｏｌｏｒ
ｄｉｒｅｃｔｗｒｉｔｅ ＝１
ｅｌｓｅ ｄｉｒｅｃｔｗｒｉｔｅ ＝０
ｅｎｄ ｉｆ
ｅｎｄ ｆｕｎｃｔｉｏｎ
ｄｉｒｅｃｔｗｒｉｔｅ ！（）函数的四个参数分别为行、列、字符、颜色。如果成功执行返回值为１，否则为０。在程序中加入此函数，可以提高显示速度，特别在编写ＴＳＲ
驻留程序时，使用本函数的优越性就更明显了。（浙江省瑞安市场桥电信局程控机房陈宏宇３２５２０５）