Sayi gruplari

[tamerr89]

Sayi gruplari

a = TextBox1.Text

For i = 1 To a

sayi(i) = InputBox(i & ".sayi=&quot

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&quot

Next