Найти сумму кубов всех целых чисел от а до b - VB
Формулировка задачи:
1) Найти сумму кубов всех целых чисел от а до b (значения вводятся с клав, b=>a)
2) Известно количество очков, набранных каждой из 20 команд—участниц первенства по футболу. Перечень очков дан в порядке убывания (ни одна пара команд не набрала одинакового количества очков). Определить , какое место заняла команда , набравшая n очков (естественно , что значение n имеется в перечне). условную инструкцию не использовать
3)Даны натуральные числа m и n. Получить все кратные им числа , не превышающие m*n . Условную инструкцию не использовать
Решение задачи: «Найти сумму кубов всех целых чисел от а до b»
textual
Листинг программы
Private Sub Command2_Click() ' с повторениями !
Dim n As Integer, m As Integer, i As Integer, k
n = Abs(Val(InputBox("n")))
m = Abs(Val(InputBox("m")))
On Error GoTo err
k = n / m + m / n
List1.Clear
For i = n To n * m Step n
List1.AddItem i
Next i
For i = m To n * m Step m
List1.AddItem i
Next i
Exit Sub
err: MsgBox "Error"
End Sub
Private Sub Command3_Click()
Dim n As Integer, i As Integer, k
List1.Clear
For i = 1 To 20
List1.AddItem 401 - i ^ 2
Next i
n = Val(InputBox("n"))
On Error GoTo err
For i = 1 To 20
k = 1 / (Val(List1.List(i - 1)) - n)
Next i
Exit Sub
err:
MsgBox n & "o kom -- " & i
End Sub