Kod:
Dim t1, b1, i1, t2, b2, i2, t3, b3, i3 b1 = 0 t1 = 0 For i1 = 0 To 7 If Text1(i1) "" t1 = t1 + Val(Text1(i1)) b1 = b1 + 1 End If Next Label7.Caption = t1 \ b1 b2 = 0 t2 = 0 For i2 = 0 To 7 If Text2(i2) "" Then t2 = t2 + Val(Text2(i2)) b2 = b2 + 1 End If Next Label10.Caption = t2 / b2 b3 = 0 t3 = 0 For i3 = 0 To 7 If Text3(i3) "" Then t3 = t3 + Val(Text3(i3)) b3 = b3 + 1 End If Next Label11.Caption = t3 / b3
arkadaşlar ustteki kodda orneğin
Kod:
b2 = 0 t2 = 0 For i2 = 0 To 7 If Text2(i2) "" Then t2 = t2 + Val(Text2(i2)) b2 = b2 + 1 End If Next Label10.Caption = t2 / b2
bu kod calıştı..7 tane textin hic birine bilgi girilmedi.diyelim.
girilmedğinde hata veriyor.
text girilmediğinde işlemin devam etmesini nasıl sağlayabilirim.?
__________________