Visual Basic (Fungsi String)

1. Buat sebuah project seperti pada latihan dua. Tambahkan beberapa baris dalam listbox yang menampilkan masing-masing karakter pada index huruf ke 1, 3, 5, 7 (misal: Input String = pendtium. Maka karakter yang ditampilkan adalah: p, n, t, u)

Tampilan awal:

Syntax:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim data, besar, kecil, karakter1, karakter3, karakter5, karakter7 As String

        Dim panjang, blok As Integer

        data = TextBox1.Text

        panjang = data.Length

        besar = data.ToUpper

        kecil = data.ToLower

        blok = data.IndexOf(" ")

        karakter1 = Mid(data, 1, 1)

        karakter3 = Mid(data, 3, 1)

        karakter5 = Mid(data, 5, 1)

        karakter7 = Mid(data, 7, 1)

        ListBox1.Items.Add("Asli: " & data)

        ListBox1.Items.Add("Panjang String: " & CStr(panjang))

        ListBox1.Items.Add("Haruf Besar: " & besar)

        ListBox1.Items.Add("Huruf Kecil: " & kecil)

        ListBox1.Items.Add("Kata Depan: " & data.Substring(0, blok))

        ListBox1.Items.Add("Kata Belakang: " & data.Substring(blok, data.Length() - blok))

        ListBox1.Items.Add("Karakter ke-1: " & karakter1)

        ListBox1.Items.Add("Karakter ke-3: " & karakter3)

        ListBox1.Items.Add("Karakter ke-5: " & karakter5)

        ListBox1.Items.Add("Karakter ke-7: " & karakter7)

    End Sub

End Class

Output: