1 den 10 kadar cift ve tek sayıların toplamı

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

Dim a As Integer

a = TextBox1.Text

If a > 0 Then
MsgBox(“pozitif”)

ElseIf a < 0 Then

MsgBox(“negatif”)

Else
MsgBox(“sıfır”)

End If

Form icersinde bir tane textbox oluşturdum bir tanede button , butonun içine yazdım koldarı

İNDİR

Dim d, i As Integer

Dim a As String

For i = d To 5

a = TextBox1.Text

ListBox1.Items.Add(a)

Next

Programı buradan indirebilirsiniz

Rar Şifre:www.webbilgisi.net