我寫了一個的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