10 a kadar saymak

entry10 galeri
    10.
  1. --spoiler--
    Option Explicit
    Dim counter
    counter = 0

    Do
    counter = counter + 1
    WScript.Echo counter
    Loop Until counter = 10

    WScript.Echo counter & " a kadar saydım"
    --spoiler--

    yukarıda bulunan kodu bir not defteri açıp kaydedin.
    kaydettiğiniz dosya uzantısını .vbs yapın.
    dosyaya çift tıklayın windows sizin için 10'a kadar saysın.
    1 ...