創建壹個新項目，拖入壹個按鈕，然後輸入代碼區域。刪除所有代碼後，粘貼以下代碼。
私人？Sub？Command1_Click()
暗淡？我？作為？長的
為了什麽？我？=?1000?去哪？九千九百九十九
如果？Sqr(I)？=?Mid("？& amp？我，？2,?2)?然後
打印？我
結束？如果
下壹個？我
結束？子操作效果圖如下: