canokay

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As DialogResult
        Dim c, d, s As Integer
bas:
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Text = InputBox("Ad ve soyad giriniz:", "Bilgi Girişi", "")

canokay

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = a + b

canokay

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String
        a = TextBox1.Text
        MsgBox(a)
    End Sub

canokay

Public Class Form1
    Dim son As String
    Dim s1, s2 As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        s1 = CInt(TextBox1.Text)
        s2 = CInt(TextBox2.Text)
        son = s1 & "/" & s2 & "=" & ((s1 / s2) + 40)
        MsgBox(son)
    End Sub

canokay

Public Class Form1
    Public Const deg As String = "İzmir Meslek Yüksekokulu"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Text = deg
    End Sub
End Class

canokay

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim i As Integer
        For i = 1 To 10
            ListBox1.Items.Add(i)
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

canokay

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x, y As Integer
        x = InputBox("İlk sayıyı gir: ")
        y = InputBox("İkinci sayıyı gir: ")
        Label1.Show()
        Select Case x * y
            Case 25
                Label1.Text = ("X*Y Sonucu= 25 dir.")
            Case 25 To 100

canokay

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ad(3) As String
        Dim sira As Single
        ad(0) = "erol"
        ad(1) = "ahmet"
        ad(2) = "melek"
        ad(3) = "arda"
        ListBox1.Show()
        ListBox1.Items.Add(ad(InputBox("Sıra No")))

canokay

Public Class Form1
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim ders() As String = {"visual basic", "delphi", "c#"}
        Erase ders
        MsgBox("Dizi başarıyla silindi.")

    End Sub
End Class

canokay

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim matris(,) As Integer = {{1, 2}, {3, 4}}

    End Sub
End Class