作者allens0812 (111)
看板Visual_Basic
标题[VB6 ] 2进制的问题
时间Thu Aug 3 14:33:04 2006
我写了一个的10>2进制
因为最大值只会到255所以就写了如下
Private Sub Text1_Change()
Call Convert_integer_10to2
End Sub
-------------------------------------------------------------------------
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新手~~~
------------------------
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.114.130.239