推 allens0812:感恩~我了解了 08/03 15:04
→ allens0812:發現我本來是要寫temp=-temp\2 08/03 15:06
→ MiddleKen:用\也會有問題喔，沒關係，你用用看就知道了 08/03 15:21
※ 引述《allens0812 (111)》之銘言：
: Public Function Convert_integer_10to2() As String
: Dim arr(7) As Long
: Dim A As String
: temp = Val(Text1.Text)
: For i = 7 To 0 Step -1
: A = temp Mod 2
: arr(i) = A
: temp = temp / 2
: Next
: Label1.Caption = arr(0) & arr(1) & arr(2) & arr(3) & arr(4) & arr(5) & arr(6) & arr(7)
: End Function
: 可是只要超過191就錯了.有強者可以幫忙看一下嗎
: ------------------------
: 我是VB新手~~~
: ------------------------
問題出在這行。
你這邊要使用 temp = Fix(temp / 2) 來取得商的整數部分。
不然直接用除的會有小數，當然就不準了
--
洗雞雞 洗雞雞 雞雞用水洗 前沖沖 後洗洗 不用ＯＧＣ 雞雞好高興
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.139.162
※ 編輯: MiddleKen 來自: 220.131.139.162 (08/03 14:45)