Data commit

Task/Pascals-triangle/Visual-Basic/pascals-triangle.vb

@@ -0,0 +1,18 @@
+Sub pascaltriangle()
+    'Pascal's triangle
+    Const m = 11
+    Dim t(40) As Integer, u(40) As Integer
+    Dim i As Integer, n As Integer, s As String, ss As String
+    ss = ""
+    For n = 1 To m
+        u(1) = 1
+        s = ""
+        For i = 1 To n
+            u(i + 1) = t(i) + t(i + 1)
+            s = s & u(i) & " "
+            t(i) = u(i)
+        Next i
+        ss = ss & s & vbCrLf
+    Next n
+    MsgBox ss, , "Pascal's triangle"
+End Sub 'pascaltriangle