Public Class
Form1
Private
Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
data, besar As String
Dim
panjang As Integer
data = TextBox1.Text
panjang = data.Length
besar = data.ToUpper
kanan =
Microsoft.VisualBasic.Right(data, 3)
ListBox1.Items.Add("Asli: " & data)
ListBox1.Items.Add("Panjang String: " & CStr(panjang))
ListBox1.Items.Add("Huruf Besar: " & besar)
ListBox1.Items.Add("Karakter ke-3 dari kanan: " &
kanan)
End
Sub
End Class
Hasilnya setelah di Run adalah:
Tidak ada komentar:
Posting Komentar