Private Function Dec(ByVal er As String)
     Dim sum As Integer
     sum = 0
     Dim l As Integer
     l = Len(er)
     For i = l To l Step -1
     

以行動支持創作者！付費即可解鎖

設計

我的房間

這是我的創新與創意的發想地，素材來自於我對自然、人文、歷史、地理、時事的感想，與我所學習的器，所謂的"器"，我的"器"即是我學習而成能使用的資源與工具，將我的想法轉變成實際能應用的工具，將在這裡開始~

二進制轉換成十進制(Visual Basic 6.0)

創作者正在準備中