質問編集履歴

1

コード内容の訂正

2016/06/28 00:47

投稿

peke
peke

スコア13

test CHANGED
File without changes
test CHANGED
@@ -16,46 +16,32 @@
16
16
 
17
17
  という問題があり、
18
18
 
19
- まず私は
20
19
 
21
- Dim I As Integer
22
20
 
23
- For I = 1 To 100
21
+ def fizz_buzz(n)
24
22
 
25
- If I Mod 15 = 0 Then
23
+ for i in 1..n
26
24
 
27
- Debug.Print "FizzBuzz"
25
+ s = ""
28
26
 
29
- ElseIf I Mod 3 = 0 Then
27
+ s += "fizz" if i % 3 == 0
30
28
 
31
- Debug.Print "Fizz"
29
+ s += "buzz" if i % 5 == 0
32
30
 
33
- ElseIf I Mod 5 = 0 Then
31
+ s = i.to_s if s == ""
34
32
 
35
- Debug.Print "Buzz"
33
+ puts s
36
34
 
37
- Else
35
+ end
38
36
 
39
- Debug.Print I
37
+ end
40
38
 
41
- End If
42
-
43
- Next I
44
-
45
- End Sub
46
-
47
- このようにうちこんだところ
39
+ fizz_buzz(100)
48
40
 
49
41
 
50
42
 
51
- syntax error, unexpected tCONSTANT, expecting end-of-input
43
+ としてみたのですが
52
44
 
53
- For I = 1 To 100
54
-
55
- ^
56
-
57
- このようなエラーが出ました。
58
-
59
- そしてlimitへの代入の仕方わかりません。
45
+ limitへの代入の仕方わかりません。
60
46
 
61
47
  どなたかよろしくおねがいします。