選擇權？明確的
私人的？Sub？Command1_Click（）
暗淡？InS？作為什麽？字符串，？s？作為什麽？字符串，？t？作為什麽？線
暗淡？我？作為什麽？整數，？j？作為什麽？整數，？l？作為什麽？線
暗淡？c（）？作為什麽？字符串，？x？作為什麽？線
InS？=?InputBox（“請輸入壹個字符串“，？"",?“1a E4 ui 95487 kuywy 1Z2Faz“）
如果？InS？=?""?然後呢？退出？潛水艇
j？=?Len（移民歸化局）
為了什麽？我？=?1?去哪？J
s？=?mid（InS，？我，？1)
找出所有的字母並保存在變量t中。
如果？（Asc）& gt？64?然後呢。Asc？& lt？91)?還是？（Asc）& gt？96?然後呢。Asc？& lt？123)?然後
t？=?t？& amp？s？& amp？"?"
結束？如果
下壹個？我
t？=?修剪（噸）
c？=?split（T，？"?")
l？=?欠平衡
將字母倒序排列
為了什麽？我？=?0?去哪？l？-?1
為了什麽？j？=?我？+?1?去哪？L
如果？丙（壹）？& lt？c（J）？然後呢？x？=?c（壹）:丙（壹）？=?c（J）:c（J）？=?X
下壹個？J
下壹個？我
輸出到表單
為了什麽？我？=?0?去哪？L
打印？c㈠；
下壹個？我
結束？Sub輸入壹個字符串1ae 4ui 95487 kuywy 1z2faz，運行效果如下: