1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
|
<html>
<head>
<script language="VBScript">
'変数宣言
Dim nisin(16)
'入力
jyu = InputBox("0〜65535の間で入力", "十進数を入力")
'変換
For i = 1 To 16 Step 1
nisin(i) = jyu Mod 2
jyu = jyu \ 2
Next
'出力
For i=16 To 1 Step -1
ans = ans + Cstr(nisin(i))
Next
MsgBox ans
</script>
</head>
<body></body>
</html>
|