QA 發問時間: 電腦與網際網路程式設計 · 9 年前

VB6~十進制轉二進制小數

VB6~十進制轉二進制小數~

如題

小數不會做~

懇求各位大大

提供一下

完整的程式碼

我想ㄌ1小時ㄌ~~

還想不出來

謝謝各位

2 個解答

評分
  • 9 年前
    最佳解答

    Dim i, j As Currency

    Dim x As Integerx = 1

    i = Text1.Text

    j = i - Fix(i)

    i = Fix(i)

    Dim a As String

    '=====處理整數部份

    Do Until (i = 0)

    a = Trim(Str(i Mod 2)) + a

    i = Fix(i / 2)

    Loop

    '==============================

    '====如果有小數處理小數部份如無法取到整數就取到小數11位數===============

    If j <> 0 Then

    Do Until (j = 1 Or x = 11)

    j = j * 2

    b = b + Trim(Str(Fix(j)))

    If j > 1 Then

    j = j - Fix(j)

    End If

    x = x + 1

    Loop

    End If

    '===========================================

    If Trim(b) <> "" Then

    Call MsgBox("十進位 " + Trim(Text1.Text) + " 轉為二進位的值為 " + Trim(a) + "." + Trim(b), vbOKOnly, "訊息")

    Else

    Call MsgBox("十進位 " + Trim(Text1.Text) + " 轉為二進位的值為" + Trim(a), vbOKOnly, "訊息")

    End If

    給你參考看看

    參考資料: 自己
  • 先想出她整個動作原理 再去想 會比較好寫

還有問題?馬上發問,尋求解答。