酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

十進位轉二進位

 Private Sub Command1_Click()
   Dec = Val(Text1.Text)
       Do
          If Dec Mod 2 = 1 Then
             Bin = "1" & Bin
          Else
             Bin = "0" & Bin
          End If
          Dec = Dec 2
       Loop Until Dec = 0
       Text2.Text = Bin
End Sub
相簿設定
標籤設定
相簿狀態