Написать программу, которая выводит сумму целых чисел от A до B - VB

Формулировка задачи:

Помогите пожалуйста с кодом) Застряла на этой, вроде легкой, задачке.. Написать программу, которая выводит сумму целых чисел от A до B. Числа A и B задаются по запросу с клавиатуры. В программе проверять правильность условия, то есть A<B.

Код к задаче: «Написать программу, которая выводит сумму целых чисел от A до B - VB»

textual
Dim a, b, s, l As Double
    Dim i As Integer
    Dim k As Single
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        k = 0
        InputBox("A")
        InputBox("b")
        s = Fix(a)
        l = Fix(b-)
        If a <> s Or b <> l Or a > b Then
            MsgBox("E")
        End If
        For i = a To b
            k = k + i
        Next i
        MsgBox("Summa ravna" & k)
        End
    End Sub

13   голосов, оценка 3.538 из 5


СОХРАНИТЬ ССЫЛКУ