二進数への変換
Dim 十進数 As Integer
Dim 二進数 As String
十進数 = InputBox("二進数に変換したい十進数を入力して下さい")
二進数 = 十進数 Mod 2 & ""
十進数 = Int(十進数 / 2)
Do While 十進数 > 0
二進数 = 十進数 Mod 2 & 二進数
十進数 = Int(十進数 / 2)
Loop
MsgBox 二進数
End Sub
ジャンル別一覧
人気のクチコミテーマ
-
-
- ボーイズラブって好きですか？
- ヒロアカのBL同人誌！緑谷出久と爆豪…
- (2025-12-23 14:25:28)
-
-
-
- ジャンプの感想
- 週刊少年ジャンプ2026年45号感想その…
- (2026-10-07 12:17:59)
-
-
-
- 読書備忘録
- 9月に読んだ本は全部東野圭吾 「怪…
- (2026-10-06 11:58:17)
-
© Rakuten Group, Inc.
