vbs의 예법의 8

624 단어 FizzBuzzvbs

개요


vbs 예법을 찾아봤는데
한번 해 보았다.

사진.



샘플 코드

Dim i
Dim str
str = ""
For i = 1 To 100
    If i Mod 15 = 0 Then
        str = str & "FizzBuzz "
    ElseIf i Mod 3 = 0 Then
        str = str &  "Fizz "
    ElseIf i Mod 5 = 0 Then
        str = str &  "Buzz "
    Else
        str = str & CStr(i) & " "
    End If
Next
msgbox str

이상.

좋은 웹페이지 즐겨찾기