作者： 果子

.版本 2 .程序集 窗口程序集1 .子程序 _编辑框1_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 标签1.标题 ＝ “您按下了： ” ＋ 取按下的键盘字母 (键代码) ＋ “ 键！” .如果真 (键代码 ＜ 90) .如果真结束 .如果真 (键代码 ＞ 64) 返回 (假) .如果真结束 .子程序 取按下的键盘字母, 文本型, , 返回按下的键盘字母(大写)，记住要把“键代码”设置为参数，不能为变量 .参数 键代码, 整数型 .如果真 (键代码 ＝ 65) 返回 (“A”) .如果真结束 .如果真 (键代码 ＝ 66) 返回 (“B”) .如果真结束 .如果真 (键代码 ＝ 67) 返回 (“C”) .如果真结束 .如果真 (键代码 ＝ 68) 返回 (“D”) .如果真结束 .如果真 (键代码 ＝ 69) 返回 (“E”) .如果真结束 .如果真 (键代码 ＝ 70) 返回 (“F”) .如果真结束 .如果真 (键代码 ＝ 71) 返回 (“G”) .如果真结束 .如果真 (键代码 ＝ 72) 返回 (“H”) .如果真结束 .如果真 (键代码 ＝ 73) 返回 (“I”) .如果真结束 .如果真 (键代码 ＝ 74) 返回 (“J”) .如果真结束 .如果真 (键代码 ＝ 75) 返回 (“K”) .如果真结束 .如果真 (键代码 ＝ 76) 返回 (“L”) .如果真结束 .如果真 (键代码 ＝ 77) 返回 (“M”) .如果真结束 .如果真 (键代码 ＝ 78) 返回 (“N”) .如果真结束 .如果真 (键代码 ＝ 79) 返回 (“O”) .如果真结束 .如果真 (键代码 ＝ 80) 返回 (“P”) .如果真结束 .如果真 (键代码 ＝ 81) 返回 (“Q”) .如果真结束 .如果真 (键代码 ＝ 82) 返回 (“R”) .如果真结束 .如果真 (键代码 ＝ 83) 返回 (“S”) .如果真结束 .如果真 (键代码 ＝ 84) 返回 (“T”) .如果真结束 .如果真 (键代码 ＝ 85) 返回 (“U”) .如果真结束 .如果真 (键代码 ＝ 86) 返回 (“V”) .如果真结束 .如果真 (键代码 ＝ 87) 返回 (“W”) .如果真结束 .如果真 (键代码 ＝ 88) 返回 (“X”) .如果真结束 .如果真 (键代码 ＝ 89) 返回 (“Y”) .如果真结束 .如果真 (键代码 ＝ 90) 返回 (“Z”) .如果真结束 返回 (“”) .子程序 __启动窗口_创建完毕