visual basic

Diğer programla dillerine göre gayet basittir. form ekranı vardır. butonları kullanabilirsiniz. bazı fabrikalarda ve hastanelerde kullanılmaktadır.

ödev almış olanlar var ise buyrun; mod-medyan bulan program. ygs mevzusu çıkınca el atayım demiştim. istediğiniz yerde yardımcı olabilirim. tabi unutmamışsam. fakat form ekranı yoktur.
---------------------------------------------------------------------------

imports system.math
public class form1

private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load

dim sayac1, kacsayi, sayac2, gecici, degisken as double

kacsayi = inputbox("kaç tane sayı girilecek ?")

dim sayi(kacsayi) as double

for sayac1 = 1 to kacsayi
sayi(sayac1) = inputbox(sayac1 & ". sayıyı giriniz.")
next

for sayac1 = 1 to kacsayi
for sayac2 = sayac1 + 1 to kacsayi
if sayi(sayac2) < sayi(sayac1) then
gecici = sayi(sayac1)
sayi(sayac1) = sayi(sayac2)
sayi(sayac2) = gecici
end if
next
next

if kacsayi mod 2 = 1 then
degisken = sayi((kacsayi + 1) / 2)
msgbox(degisken & " dizinin medyanıdır.")
elseif kacsayi mod 2 = 0 then
degisken = ((sayi(kacsayi / 2) + sayi((kacsayi / 2) + 1)) / 2)
msgbox(degisken & " dizinin medyanıdır.")
end if

dim tutucu(sayi(kacsayi)) as double

for sayac1 = 1 to kacsayi
tutucu(sayi(sayac1)) = tutucu(sayi(sayac1)) + 1
next

if tutucu.max = 1 then
msgbox("basit seridir. basit serilerde mod yoktur.")
else

dim tut_buyuk, mod1 as integer

for sayac1 = 1 to sayi(kacsayi)
if tutucu(sayac1) > tut_buyuk then
tut_buyuk = tutucu(sayac1)
mod1 = sayac1
end if
next

msgbox(mod1 & " basit serinin modudur.")
end if

end sub
end class