追蹤
酷祥資訊部落格
關於部落格
遊戲、資訊
  • 88663

    累積人氣

  • 8

    今日人氣

    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
相簿設定
標籤設定
相簿狀態