[ツリー表示へ] [ワード検索] [Home]
タイトル ： ３２ビット正数を扱う 投稿日 ： 2010/10/17(Sun) 13:54 投稿者 ： あつ
| ３２ビット正数（０〜4294967295）を２進数表記するソフトを作成。 longだと符号付４バイトなので正数は３１ビットまでしか扱えません。 double符号付８バイトなので変更したところ、MOD関数が処理できないようです。 プログラムを実行させるにはどのようにすればよいでしょうか。 Dim ltmp As Long ' Dim ltmp As Double Dim iloop As Integer ltmp = Text1.Text Text2.Text = "" 'クリア For iloop = 1 To 32 Text2.Text = Text2.Text & (ltmp Mod 2) If ltmp Mod 2 Then ltmp = ltmp - 1 ltmp = ltmp / 2 '４ビット毎にスペース追加 If (iloop Mod 4) = 0 Then Text2.Text = Text2.Text & " " Next iloop |
をクリックするとツリー全体を一括表示します） - ３２ビット正数を扱う - あつ 10/10/17-13:54No.14975