canokay

public class SubstringExample1 {
    public  static void main(String[] args){
        String yaziString = new String("Merhaba Dünya");
        char yaziChar = yaziString.charAt(9);
        String subsitringDeger = yaziString.substring(8);
        System.out.println(subsitringDeger);
    }
}

canokay

Public Class Form1

    Private Sub btnUboundResult1_Click(sender As Object, e As EventArgs) Handles btnUboundResult1.Click
        Dim dizi(4) As String
        MessageBox.Show(UBound(dizi))
    End Sub

    Private Sub btnUboundResult2_Click(sender As Object, e As EventArgs) Handles btnUboundResult2.Click
        Dim dizi(4, 6) As String
        MessageBox.Show(UBound(dizi, 2))

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

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 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 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
        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
    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
    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
    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