Görsel Programlama 1. yazılı soruları ve cevapları

SORU-1-) Klavyeden girilen sayılar içerisinden pozitif ve negatif olanların toplamlarını ve ortalamalarını bulan V.B. programını yazınız.

 

CEVAP-1-) Private Sub Form_Load()

Show

n = Val(InputBox(“sayı miktarını giriniz”))

For i = 1 To n

sayi = Val(InputBox(“sayı giriniz”))

If (sayi > 0) Then

ps = ps + 1

pt = pt + sayi

ElseIf (sayi < 0) Then

ns = ns + 1

nt = nt + sayi

End If

Next i

po = pt / ps

no = nt / ns

Print “pozitif toplamı”, pt

Print “pozitif ortalaması”, po

Print “negatif toplamı”, nt

Print “negatif ortalama”, no

End Sub

 

SORU-2-) Bir miktar para 10 yıl süreyle bankaya yatırılıyor. İlk 5 yıl faiz oranı %70 , ikinci 5 yıllık faiz oranı her yıl 5 puan artarak devam ediyor. Her yıl sonundaki para miktarını ekrana yazdıran V.B. programını yazınız.

 

CEVAP-2-)Private Sub Form_Load()

Show

para = Val(InputBox(“para miktarını giriniz”))

j = 0.7

For i = 1 To 10

If (i <= 5) Then

para = para + (para * 0.7)

Print Str(i) + “.yıldaki para miktarı”, para

Else

j = j + 0.05

para = para + (para * j)

Print Str(i) + “.yıldaki para miktarı”, para

End If

Next i

End Sub

 

SORU-3-) 1’den 500’e kadar olan sayılar içerisinden karesi başka sayının küpüne eşit olan sayıları ekrana yazan V.B. programını yazınız.

 

CEVAP-3-) Private Sub Form_Load()

Show

For i = 1 To 500

For j = 1 To 500

If ((i * i) = (j * j * j)) Then

Print i, j

End If

Next j

Next i

End Sub

 

 

Bir cevap yazın

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

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.