June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/FizzBuzz/VBA/fizzbuzz.vba
+++ b/Task/FizzBuzz/VBA/fizzbuzz.vba
@ -0,0 +1,17 @@
+Option Explicit
+
+Sub FizzBuzz()
+Dim Tb(1 To 100) As Variant
+Dim i As Integer
+    For i = 1 To 100
+        Tb(i) = i
+        If i Mod 15 = 0 Then
+            Tb(i) = "FizzBuzz"
+        ElseIf i Mod 3 = 0 Then
+            Tb(i) = "Fizz"
+        ElseIf i Mod 5 = 0 Then
+            Tb(i) = "Buzz"
+        End If
+    Next
+    Debug.Print Join(Tb, vbCrLf)
+End Sub