使用編輯框的字符輸入事件
代碼如下:
.版本?2
.子程序?_編輯框1_字符輸入,?整數型
.參數?字符代碼,?整數型
.如果真?(字符代碼?=?取代碼?(“1”,?))
返回?(取代碼?(“2”,?))