VisuaL Basic ( Mind KuLLanımı )

VisuaL Basic ( Mind KuLLanımı )

Public Class Form1
Dim oku As String
Dim a, t As String
Dim k, p As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
t = ""
a = InputBox("BASMAMAĞA LANACAK BİR CÜMLE GİR VE GÖR")
k = Len(a)
For p = 1 To k
oku = Mid(a, 1, p)
ListBox1.Items.Add(oku)
Next
For p = 1 To k
oku = Mid(a, 1, k - p)
ListBox1.Items.Add(oku)
Next
End Sub

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