Visual Basic Ödevlerime Yardımcı Olacak Birileri ?

hoca 5 tane ödev verdi. 2 tanesini yapabildim, diğer 3 tanesinde tıkandım kaldım resmen.yarına kadar yetiştirmem lazım. vb bilen abilerim, kardeşlerim yardım ederse sevinirim.

1) Klavyeden girilen 10 adet sayının kaçının tek, kaçının çift olduğunu bulan programı while ve do until döngüsü kullanarak yazınız.


2) Klavyeden istenilen sayıda pozitif sayı girilecek.Negatif sayı girildiğinde program sonlandırılacak.Buna göre girilen sayıların kaç adet olduğunu, toplamının ve ortalamasını bulan programı yazınız.

3) Klavyeden girilen sayının faktöriyelini bulan programı while ve do until döngüsü kullanarak yazınız.

yardımlarınız için teşekkür ederim.

visual basic 6.0 mı ? visual basic.net mi ?

makuk bi ücret karşılığı yapabilirim hepsini hocam =)
ilgilenirsen pm at hocam

Bende çok küçük bir ücret karşılığı yazabilirim ok se pm at (Sonuçta ikimizde öğrenciyiz)

1-)
'Do while
t = 0
c = 0
x = 0
Do While x < 10
x = x + 1
If InputBox("Lütfen sayı giriniz.") Mod 2 = 0 Then
c = c + 1
Else
t = t + 1
End If
Loop
MsgBox c & " çift sayı" & vbCrLf & t & " tek sayı"


'do until
t = 0
c = 0
x = 0
Do Until x >= 10
x = x + 1
If InputBox("Lütfen sayı giriniz.") Mod 2 = 0 Then
c = c + 1
Else
t = t + 1
End If
Loop
MsgBox c & " çift sayı" & vbCrLf & t & " tek sayı"

2-)
t = 0
x = 0
c = 1
Do Until c < 0

c = InputBox("Lütfen sayı giriniz.")

t = t + c
If c < 1 Then x = x + 1
Loop
MsgBox x & " kadar sayı girilmiş." & vbCrLf & "ortalaması: " & (t / x) & vbCrLf & "toplamı: " & t


3-)

'do until
c = InputBox("sayı giriniz.")
r = 1
Do Until c < 2
r = r * c
c = c - 1
Loop
MsgBox "bu sayının faktoriyeli " & r & " dir"

'Do while
c = InputBox("sayı giriniz.")
r = 1
Do While c > 1
r = r * c
c = c - 1
Loop
MsgBox "bu sayının faktoriyeli " & r & " dir"

cevaplar bu şekilde. 5 dk.lık iş ücret istemeye değmez

Eğer bu işi öğrenmek istiyorsan ödevleri verdikten sonra değişik versiyonlarını da kendin yapmayı denemelisin.

cortes, yardımların için çok teşekkür ederim.
aslında yapabileceğim şeylerdi, çünkü bugün okulda yaptım ama daha yeni başladık ve hocanın anlattıklarını deftere not almıyordum.proje olarak bilgisayara kayıt ediyordum.ordan çalışıyordum.geçen hafta almayı unuttuğum için yapamadım.
tekrardan herkese yardımları için teşekkür ederim.