Programalama > VISUAL BASIC.NET

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