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

You may also like...

2 Responses

  1. ünal dedi ki:

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

    • admin dedi ki:

      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