2 Responses to Görsel Programlama 2.Dönem 3.Sınavı

1. ünal diyor ki:

   09 Haziran 2011, 10:07

   sorular süper bide cevaplarını yayınlasanız

   Cevapla
   • admin diyor ki:

     09 Haziran 2011, 18:25

     soru 1) asansör programı.
     1.kat için
     Button1.Top = 235
     Label7.Text = “1″
     diger katlar için top özelliği 30 azaltılarak devam edilir.

     soru 2)
     Text kutusuna girilen sayıya kadar olan 0 a kalansız bölünecek sayıları bulma.
     Örnek: 6 sayısı  Bölünenleri 1,2,3 ve 6

     s = CInt(TextBox1.Text)

     For k = 1 To s
     If s Mod k = 0 Then
     ListBox1.Items.Add(k)
     End If
     Next

     soru 3)

     50 TL lik banknotların sayısını bulma
     20 TL lik banknotların sayısını bulma
     10 TL lik banknotların sayısını bulma
     5 TL lik banknotların sayısını bulma

     Dim el, k, yr, mr, onluk, beslik, nr, s As Integer

     s = CInt(TextBox1.Text)
     el = CInt(s \ 50)
     ListBox1.Items.Add(el.ToString + ” adet 50 TL”)
     k = s Mod 50

     yr = CInt(k \ 20)
     ListBox1.Items.Add(yr.ToString + ” adet 20 TL”)

     mr = k Mod 20

     onluk = CInt(mr \ 10)
     ListBox1.Items.Add(onluk.ToString + ” adet 10 TL”)
     nr = mr Mod 10

     beslik = CInt(nr \ 5)

     Cevapla

Bir Cevap Yazın Cevabı iptal et