Вычисление суммы всех двузначных чисел - VB

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

Составьте программу вычисления суммы всех двузначных чисел незнаю как дальше быть

Private Sub Command1_Click()  
    Randomize 
    MsgBox Int(10 * Rnd+99)  
    End Sub

Решение задачи: «Вычисление суммы всех двузначных чисел»

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

                            Function Sum2(Optional n as integer =10) As Integer
    if n = 99 then
       Sum2=99
    else
      Sum2=n+Sum2(n+1)
    end if
End Function
                        

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

7 голосов , оценка 3.429 из 5

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