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