Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i =
0 To 255
ListBox1.Items.Add(i & "=" & Chr(i))
Next i
Dim
kata As String
= "budidarma"
For i =
1 To Len(kata)
ListBox2.Items.Add(Microsoft.VisualBasic.Left(kata, i))
ListBox3.Items.Add(Microsoft.VisualBasic.Right(kata, i))
ListBox4.Items.Add(Microsoft.VisualBasic.Mid(kata,
i, 1))
Next i
End Sub
End Class
SUMBER : Esra handayani
Tidak ada komentar:
Posting Komentar