Написать программу, которая выводит сумму целых чисел от A до B - VB
Формулировка задачи:
Помогите пожалуйста с кодом) Застряла на этой, вроде легкой, задачке..
Написать программу, которая выводит сумму целых чисел от A до B. Числа A
и B задаются по запросу с клавиатуры. В программе проверять правильность условия,
то есть A<B.
Решение задачи: «Написать программу, которая выводит сумму целых чисел от A до B»
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