İf Döngüsü --?

BEn yazılı ve sözlü ortalamalarını alan bi uygulama yapcağımda daha doğrusu bnu bi uygulamamda kullancam...

şimdi bi püf nokta var öğrenci isterse 2 ve 3. yazılıya girmedi raporlu sayıldı yani o yazılıları işleme alınmadı ortalamayıda 1. yazılı ve 2 sözlü ile hesaplicaz bunun için İf ile nası bir formul kurulabillir.

Misal:

If textbox1.text=""
******** şimdi textbox1 e değer verilmemişse boş bırakılmış ise bunu işleme katmama, ortalamadan düş mantığı veren formul nası yazılır..

Yardımcı olabilirseniz sevinirm. Sınavda Buna benzer bişi sorcam dedi bide hoca bilen warsa yardımcı olsn lütfen..

bolen = 0
if (textbox1.text <> "") then bolen = bolen + 1
if (textbox2.text <> "") then bolen = bolen + 1
if (textbox3.text <> "") then bolen = bolen + 1
ortalama = (textbox1.text + textbox2.text + textbox3.text) / bolen

Kafam karıştı bi yerde...

bi kere If kullandıktan sonra ElseIf İle devam edioz die biliodum

Birde

If (textbox1.text <> "") ==> If Textbox1.text="" then die olmicakmıydı denedim olmadıda bi yerde bi hata vaar..

Msn Verebilir misin? :$

Dim y1, y2, y3, s1 As Integer
Dim bol = 0
Dim toplam As Integer
toplam = 0

If TextBox1.Text <> "" Then
toplam = toplam + TextBox1.Text
bol = bol + 1
End If

If TextBox2.Text <> "" Then
toplam = toplam + TextBox2.Text
bol = bol + 1
End If

If TextBox3.Text <> "" Then
toplam = toplam + TextBox3.Text
bol = bol + 1
End If
If TextBox4.Text <> "" Then
toplam = toplam + TextBox4.Text
bol = bol + 1
End If

If bol > 0 Then
TextBox5.Text = toplam / bol
Label6.Text = ""
Else
Label6.Text = "Lütfen not girişi yapın..."
End If

Çok TEşekkür EdERim GeRçEkTen. HatasıZ oldu ve tek eksiklik 1 sozlu olrak hesapanmıs ona ben 1 daha eklicem oda sorun deil hallederim o kadarını ÇOk SaolUn ÇOk İhtiyacm wardı buna...