[VB6 ] 2進制的問題
我寫了一個的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
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
