FizzBuzz

VBScript

1〜10 までの数字を出力

lesson001.vbs



Dim i

For i = 1 To 10

    WScript.Echo i

Next
実行結果


C:\>cscript c:\study\vbscript\chapter002\lesson001.vbs //nologo

1

2

3

4

5

6

7

8

9

10

1〜10 までの数字を出力

ただし、３の倍数は、"Fizz" を出力
lesson002.vbs



Dim i

For i = 1 To 10

    If i mod 3 = 0 Then

        WScript.Echo "Fizz"

    Else

        WScript.Echo i

    End If

Next
実行結果


C:\>cscript c:\study\vbscript\chapter002\lesson002.vbs //nologo

1

2

Fizz

4

5

Fizz

7

8

Fizz

10

1〜30 までの数字を出力

ただし、３の倍数は、"Fizz" を、５の倍数は、"Buzz" を、
公倍数は、"FizzBuzz" を出力
lesson003.vbs



Dim i

For i = 1 To 30

    If i mod 15 = 0 Then

        WScript.Echo "FizzBuzz"
    ElseIf i mod 3 = 0 Then

        WScript.Echo "Fizz"
    ElseIf i mod 5 = 0 Then

        WScript.Echo "Buzz"
    Else

        WScript.Echo i

    End If

Next
実行結果


C:\>cscript c:\study\vbscript\chapter002\lesson003.vbs //nologo

1

2

Fizz

4

Buzz

Fizz

7

8

Fizz

Buzz

11

Fizz

13

14

FizzBuzz

16

17

Fizz

19

Buzz

Fizz

22

23

Fizz

Buzz

26

Fizz

28

29

FizzBuzz

1〜30 までの数字を出力

ただし、３の倍数は、"Fizz" を、５の倍数は、"Buzz" を、
公倍数は、"FizzBuzz" を出力
配列と関数を使用
lesson004.vbs



Dim array(29)

Dim i

For i = 0 To 29

    array(i) = i + 1

Next
For i = 0 To 29

    WScript.Echo FizzBuzz(array(i))

Next
Function FizzBuzz(i)

    If i mod 15 = 0 Then

        FizzBuzz = "FizzBuzz"
    ElseIf i mod 3 = 0 Then

        FizzBuzz = "Fizz"
    ElseIf i mod 5 = 0 Then

        FizzBuzz = "Buzz"
    Else

        FizzBuzz = i

    End If

End Function
実行結果


C:\>cscript c:\study\vbscript\chapter002\lesson004.vbs //nologo

1

2

Fizz

4

Buzz

Fizz

7

8

Fizz

Buzz

11

Fizz

13

14

FizzBuzz

16

17

Fizz

19

Buzz

Fizz

22

23

Fizz

Buzz

26

Fizz

28

29

FizzBuzz