Programalama > VISUAL BASIC.NET

Etiketler: sayi, gruplari

Ort. 0
Puan ver:
a = TextBox1.Text
        For i = 1 To a
            sayi(i) = InputBox(i & ".sayi=")
        Next
        buyuk = sayi(1)
        For i = 1 To a
            If sayi(i) > buyuk Then buyuk = sayi(i)
        Next
        MsgBox(buyuk)

        bolum = buyuk \ 10
        If buyuk Mod 10 = 0 Then
            b = bolum
        Else : b = bolum + 1
        End If
        MsgBox(b)

        For i = 1 To b
            For j = 1 To a
                If (sayi(j) > ((i - 1) * 10) And sayi(j) <= (i * 10)) Then sayac(i) = sayac(i) + 1
            Next j
        Next i

        For i = 1 To b
            MsgBox((i - 1) * 10 & " ile " & (i * 10) & "arasında " & sayac(i) & " tane sayi var")
        Next


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.