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

2010-2011 EĞİTİM ÖĞRETİM YILI BİLİŞİM TEKNOLOJİLERİ ALANI

11-A SINIFI GÖRSEL PROGRAMLAMA  DERSİ 2.DÖNEM 3.YAZILI SINAVI

a)      Formların düzenlenmesi (6p)

b)      Rakamlara basınca katlara gitmesi (18p)

c)      Kat numaralarının görünmesi(6p)

2) Soru2 Formunu  düzenleyiniz. Bölünen sayıları bulma(30)

a)   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

3)  Soru3 Formunu  düzenleyiniz.
Text kutusu içerisine girilen sayıya göre,  Bir bankamatikte 50TL, 20  TL ,10 TL ve 5 TL lik banknotlar bulunmaktadır. Kullanıcı tarafından istenen para tutarına göre banknot adetlerini hesaplayan programı yapınız.(40 p)
Listbox içerisine değeri yazdırmak için aşağıdaki kodu kullanabilirsiniz.
–  ListBox1.Items.Add(yr.ToString + ” adet 20 TL”)

a)      Formun düzenlenmesi(5p)

b)      50 TL lik banknotların sayısını bulma (10p)

c)      20 TL lik banknotların sayısını bulma (10p)

d)     10 TL lik banknotların sayısını bulma (10p)

e)      5 TL lik banknotların sayısını bulma (5p)

2.585 defa okundu.

2 yorum

    • admin YazarYanıtla

      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)

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir