Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If 1 <> 2 Then MsgBox("EŞİT DEĞİL: <>")
        If 2 = 2 Then MsgBox("EŞİTTİR: =")
        If 1 < 2 Then MsgBox("KÜÇÜK OPERATORÜ")
        If 3 > 2 Then MsgBox("BÜYÜK OPERATORÜ")
        If 3 >= 3 Then MsgBox("BÜYÜK VEYA EŞİT OPERATORÜ")
        If 3 >= 1 Then MsgBox("BÜYÜK VEYA EŞİT OPERATORÜ")
        If 3 <= 3 Then MsgBox("KÜÇÜK VEYA EŞİT OPERATORÜ")
        If 3 <= 4 Then MsgBox("KÜÇÜK VEYA EŞİT OPERATORÜ")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DELTA1 As Double = -4
        If DELTA1 < 0 Then MsgBox("KÖK YOKTUR")
        DELTA1 = 0
        If DELTA1 = 0 Then MsgBox("BİR KÖK VARDIR")
        DELTA1 = 9
        If DELTA1 > 0 Then MsgBox("İKİ KÖK VARDIR")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim AD As String = InputBox("ADINIZ:", "AD YAZINIZ", "TELAT")
        If AD = "TELAT" Then
            MsgBox("SOYAD:TÜRKYILMAZ")
            MsgBox("MEMLEKET:ZONGULDAK")
            If 10 = 10 Then MsgBox("BURASI DA ÇALIŞTI")
        End If

        Dim CEVAP = MsgBox("DEVAM EDECEK MİSİN?", vbYesNoCancel)

        If CEVAP = 6 Then
            MsgBox("İŞLEMİNİZİ YAPIYORUM")
        Else
            MsgBox("EVETE BASILMADI")
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        For R = 1 To 100
            ListBox1.Items.Add(R)
        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        For R = 109 To 1 Step -1
            If R Mod 4 = 0 Then ListBox1.Items.Add(R)
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim TOPLAM As Long = 0
        For R = 1 To 100
            TOPLAM += R
        Next
        MsgBox(TOPLAM)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim ASAL = 0
        For S = 3 To 10
            ASAL = 1
            For K = 2 To S - 1
                If S Mod K = 0 Then
                    ASAL = 0
                    Exit For
                End If
            Next
            If ASAL = 1 Then ListBox1.Items.Add(S)
        Next

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim SAYI = 1
        Do While SAYI < 100
            ListBox1.Items.Add(SAYI)
            SAYI += 1
            If SAYI > 50 Then Exit Do
        Loop

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim TOPLAM As Double = 0
        Dim RAKAM = 11
        Do While RAKAM <> 0
            RAKAM = InputBox(TOPLAM.ToString, "ÇIKIŞ:SON")
            If RAKAM = 0 Then Exit Do
            TOPLAM += RAKAM
            MsgBox(TOPLAM)
        Loop
    End Sub
End Class