99-7

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a = 0
        For i = 1 To 99
            a = a + i
        Next
        MsgBox(a)
    End Sub
End Class