回答編集履歴
1
Do/Loop で書き換え
answer
CHANGED
|
@@ -3,14 +3,11 @@
|
|
|
3
3
|
```vbs
|
|
4
4
|
Function Sample(SM)
|
|
5
5
|
Sample = ""
|
|
6
|
-
|
|
6
|
+
Do Until SM = 0
|
|
7
7
|
b = SM Mod 2
|
|
8
8
|
SM = (SM - b) / 2
|
|
9
9
|
Sample = b & Sample
|
|
10
|
-
if SM = 0 then
|
|
11
|
-
Exit For
|
|
12
|
-
End If
|
|
13
|
-
|
|
10
|
+
Loop
|
|
14
11
|
End Function
|
|
15
12
|
```
|
|
16
13
|
|