Senin, 23 Januari 2012

Membuat kata /kalimat menjadi terbalik




Mau tahu Listing Programnya...



Public Class Form1
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Dim x As String
        x = Microsoft.VisualBasic.StrReverse(kata.Text)
        terbalik.Text = StrReverse(kata.Text)
        Dim sInput As String = kata().Text
        Dim sOutPut As String = terbalik().Text
        terbalik().Text = ""
        terbalik().Text = sInput & " = " & sOutPut
    End Sub
End Class

Tidak ada komentar:

Posting Komentar