Создать сумму кубов, целых, положительных, четных, трехзначных чисел - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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