.版本 2
.支持庫 eAPI
.子程序 _按鈕1_被單擊
.局部變量 Text, 文本型
.局部變量 Size, 整數型
.局部變量 n, 整數型
.局部變量 TextCode, 整數型
Text ＝ 到大寫(編輯框1.內容)
Size ＝ 取文本長度 (Text)
編輯框2.內容 ＝ “”
.計次循環首 (Size, n)
TextCode ＝ 取代碼 (Text, n)
編輯框2.獲取焦點 ()
模擬按鍵 (TextCode, , )
.計次循環尾 ()