Найти сумму кубов всех целых чисел от а до 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы