软讯网络 > 软件时空 > 软件相关 > 获取键盘制---最简单的bht-basic 程序
【标 题】：获取键盘制---最简单的bht-basic 程序
【关键字】：
---,bht-basic
【来 源】：http://www.cublog.cn/u/22711/showart.php?id=167198
获取键盘制---最简单的bht-basic 程序
'***********************************
' 获取键盘制---最简单的bht-basic 程序
'************************************
k$=""
while 1
k$=Input$(1)
For i%=1 To 100
If k$=CHR$(i%) Then
s$=STR$(i%)
End If
Next i%
screen 1,1
locate 1,1 :print s$
Wend
|