Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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