1'den 100'e kadar olan sayıların toplamasını alma

Yeni başlayan arkadaşlarımız için bu da güzel bir program. 1'den 100'e kadar olan sayıların toplamasını alma ile ilgilidir.

Yeni başlayan arkadaşlarımız için bu da güzel bir program. 1'den 100'e kadar olan sayıların toplamasını alma ile ilgilidir.

Butonlar: Sadece bir tane command botton.

Sonra aşağıdaki kodları içine yazınız:


Private Sub Command1_Click()

Command1.Visible = False

Dim i, toplam As Integer

toplam = 0

For i = 1 To 100

toplam = toplam + i

Next i

Print "toplam="; toplam

End Sub

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

arkadaşım öncelikle teşekkür ederim bunu yayınladıgın ıcın bunu daha kısa bır sekildede elde edebilirsin Private Sub Command1_Click() Dim a As Integer a = 100 * 101 / 2 MsgBox "toplam=" & a End Sub
Private Sub Command1_Click() Command1.Visible = False Dim i,j, toplam As Integer toplam = 0 j=inputbox("kaça kadar olan sayıların toplamı olsun_?") For i = 1 To j toplam = toplam + i Next i Print "toplam="; toplam End Sub buda istediğimiz kadar sayıların toplamı olsun sonuncu sayıyı kullanıcı girsin :)

Yukarı Git