Dim i For i = 1 To 100 If Mod(i) = 15 Then Debug.Print "FizzBuzz " ElseIf Mod(i) = 3 Then Debug.Print "Fizz " ElseIf Mod(i) = 5 Then Debug.Print "Buzz " Else Debug.Print i & Space(1) End If Next via:FizzBuzz: べつになんでもないこと

window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); js.id = id; js.src = "https://platform.twitter.com/widgets.js"; fjs.paren…