.子程序?進制_十到二,?文本型,?公開
.參數?十進制數,?整數型
.局部變量?結果,?文本型
.局部變量?余數,?整數型
.局部變量?長度,?整數型
.判斷循環首?(十進制數?＞?1)
余數?＝?十進制數?％?2
十進制數?＝?十進制數?＼?2
結果?＝?到文本?(余數)?＋?結果
.判斷循環尾?()
結果?＝?到文本?(十進制數)?＋?結果
長度?＝?取文本長度?(結果)
.判斷循環首?(長度?＜?16)
結果?＝?“0”?＋?結果
長度?＝?取文本長度?(結果)
.判斷循環尾?()
返回?(結果)
復制上面的代碼，當子程序調用就好了。參數填妳要轉的數字。
編輯框2.內容=進制_十到二（到數值（編輯框1.內容））