Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Add integer together
Sub Accumulate()
    Dim n As Integer
    Dim t As Integer
    For n = 1 To 10
        t = t + n
    Next n
    MsgBox "        The total is " & t
End Sub