QBASIC程序中开关NUM键的方法 Author: 张宁 Date: 1997-01-01 如果我们编写的ＱＢＡＳＩＣ程序运行时需要大量输入数字，一般需要将小键盘的ＮＵＭ键打开以加快速度。怎样才能在ＱＢＡＳＩＣ程序中完成此项工作呢？请键入以下程序： ＤＥＦ ＳＥＧ＝０ ＰＯＫＥ ＆Ｈ４１７，ＰＥＥＫ（＆Ｈ４１７） ＯＲ ＆Ｈ２０ ①（开） ＤＥＦ ＳＥＧ ＤＥＦ ＳＥＧ＝０ ＰＯＫＥ ＆Ｈ４１７，ＰＥＥＫ（＆Ｈ４１７） ＡＮＤ ＆Ｈ９Ｆ ②（关） ＤＥＦ ＳＥＧ 第一个程序打开ＮＵＭ灯，第二个程序关闭ＮＵＭ灯。此外： 将①画横线处的数字改为＆Ｈ４０即为开ＣＡＰＳＬＯＣＫ键，改为＆Ｈ１０则开ＳＣＲＯＬＬ键；将②画横线处的数字改为＆ＨＢＦ是开ＣＡＰＳＬＯＣＫ键，改为＆Ｈ８Ｆ则关ＳＣＲＯＬＬ键。