Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim desen As String
desen = "K"
For i = 1 To 10
TextBox1.Text = TextBox1.Text + desen + vbCrLf
desen = desen + "K"
Next
For i = 10 To 1 Step -1
desen = Mid(desen, 1, i - 1)
TextBox1.Text = TextBox1.Text + desen + vbCrLf
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
Dim desen As String
desen = "G"
For i = 1 To 10
TextBox1.Text = TextBox1.Text + desen + vbCrLf
desen = desen + "G"
Next
For i = 10 To 1 Step -1
desen = Mid(desen, 1, i - 1)
TextBox1.Text = TextBox1.Text + desen + vbCrLf
Next
End Sub
