Помогите пожалуйста с задайчей)

дано натуральное число x и n найти сумму чисел от x до n

VB.
Dim x as Integer
x=InputBox("Введите x:")
Dim n as Integer
n=InputBox("Введите n:")
Dim j as Integer
Dim Summ As Long

      For j = x To n
                Summ = Summ + j
      Next i
    c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
 MsgBox(Summ)

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.