回答編集履歴
1
Do/Loop で書き換え
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
Sample = ""
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
Do Until SM = 0
|
|
12
12
|
|
|
13
13
|
b = SM Mod 2
|
|
14
14
|
|
|
@@ -16,13 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
Sample = b & Sample
|
|
18
18
|
|
|
19
|
-
if SM = 0 then
|
|
20
|
-
|
|
21
|
-
Exit For
|
|
22
|
-
|
|
23
|
-
End If
|
|
24
|
-
|
|
25
|
-
|
|
19
|
+
Loop
|
|
26
20
|
|
|
27
21
|
End Function
|
|
28
22
|
|