Создать сумму кубов, целых, положительных, четных, трехзначных чисел - VB

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

создать сумму кубов, целых, положительных, четных, трехзначных чисел

Sub Summa_kubov()
 
Dim i, a, s As Single
    i = InputBox("введите число p и нажмите OK")
    a = InputBox("введите число n и нажмите OK")
    
    Dim Ret As Integer
  s = (a + i) * ((a ^ 2) - a * i + (i ^ 2))
    
    MsgBox (s)
End Sub

Решение задачи: «Создать сумму кубов, целых, положительных, четных, трехзначных чисел»

textual
                            Листинг программы 
                        

                            Sub Summa_kubov()
'сумму кубов, целых, положительных, четных, трехзначных чисел
Dim i&, s#
For i = 100 To 998 Step 2
  s = s + i ^ 3
Next
MsgBox (s)
End Sub
                        

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

14 голосов , оценка 4.357 из 5

Похожие ответы