Web Bilgisi | Webin Bilgili Sitesi

Önizleme:

(daha fazla…)

Önizleme:

(daha fazla…)

Dim i, sayi, cift, tek As Integer

sayi = TextBox1.Text

cift = 0
tek = 0
For i = 1 To sayi
If i Mod 2 = 0 Then
cift = cift + i
Else
tek = tek + i

End If

Next
TextBox2.Text = tek
TextBox3.Text = cift

Forum da 3 tane textbox oluşturdum bir tane button ,buttonun içine yazdım

ArkadaÅŸlar facebook yine açılmıyor yani bu sefer şöyle bir sorunda var sitelerde bildiÄŸiniz üzere beÄŸen butonları oluyordu o butonlar açılmıyor Service Unavailable – DNS failure diye hata bile veriyor. Anlaşılan facebook birÅŸeyler peÅŸinde.
(daha fazla…)