Найти сумму кубов всех целых чисел от а до 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д