Re: [VB6 ] 2進制的問題
看板Visual_Basic作者MiddleKen (洗雞雞洗雞雞 雞雞用水洗)時間19年前 (2006/08/03 14:41)推噓1(1推 0噓 2→)留言3則, 2人參與討論串2/2 (看更多)
※ 引述《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)
推
08/03 15:04, , 1F
08/03 15:04, 1F
→
08/03 15:06, , 2F
08/03 15:06, 2F
→
08/03 15:21, , 3F
08/03 15:21, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
