作者MiddleKen (洗鸡鸡洗鸡鸡 鸡鸡用水洗)
看板Visual_Basic
标题Re: [VB6 ] 2进制的问题
时间Thu Aug 3 14:42:54 2006
※ 引述《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)
1F：推 allens0812:感恩~我了解了 08/03 15:04
2F：→ allens0812:发现我本来是要写temp=-temp\2 08/03 15:06
3F：→ MiddleKen:用\也会有问题喔，没关系，你用用看就知道了 08/03 15:21