Fungsi String 1

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String
        Dim xx As String
        huruf.Items.Clear()
        For i = 1 To Len(kalimat.text)
            x = Microsoft.VisualBasic.Mid(kalimat.Text, i, 1)
            huruf.Items.Add(x)
            x = x & "=" & Asc(x)
            huruf.Items.Add(x)



        Next i
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Author : Unknown

Share this

Related Posts