İki sayı arasındaki tek sayıların toplamı VB 6.0
[Code=’Vb.NET’]Private Sub Command1_Click()
Dim ilk, son, top, i
ilk = Val(Text1)
son = Val(Text2)
If Check2 Then
For i = ilk To son
top = top + i
Next
End If
If Check1 Then
If ilk Mod 2 = 0 Then
ilk = ilk + 1
End If
For i = ilk To son Step 2
top = top + i
Next
End If
Label5 = top
End Sub
[/Code]
abi ben bu soruyu başka şekilde yaptımda doğrğmu yanlışmı olduğunu bilemiyorum bana bir iki tane örnek göndersende bende benim programda denesem doğru olup olmadığını öğrensem.Teşekkürler
sinan gözüm benim ben yine anlamadım seni.Ne örneği istiyon.zaten bütün örnekler sitede.
ben başka türlü yapmıştımda emin olamadım.”ama doğru yapmışım”