private sub Form_Load() dim i,s as integer s=0 for i=1 to 100 s=s+i next i print send sub
Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNext iPrint sum