Sub main()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100 Step 1 If i Mod 2 = 1 Then sum = sum + i End IfNextMsgBox sumEnd Sub
