klavyeden girilen sayının icindeki tek sayıları toplayan program icin yardım gerekiyor..

cift sayılar icin ornek kod ise aşağıda


Private Sub Command1_Click()
'icindeki cift sayilarin toplamini bulan programin yazilmasi.

sToplam = 0
sayi = Val(Text1.Text)
For i = 1 To sayi
a = i / 2
b = i \ 2
If a = b Then
sToplam = sToplam + i
End If
Next
Label1.Caption = sToplam

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""

End Sub



lutfen yardım edin arkadaşlar
__________________