Kodlar:
Dim sayi, t As Integer
Do
sayi = InputBox("Sayı Giriniz", "Sayı Girişi")
t = t + sayi
Loop Until t >= 21
MsgBox("Girdiğiniz Sayıların Toplamı 21'i gectiği icin Program Sonlandırıldı." & " Sayıların Toplamı: " & t)

(1 Buton İle Hepsi Yapılıyor.)
__________________