Введеную с клавиатуры строку А записать в обратном порядке в строку Б - VB

Формулировка задачи:

Привет. помогите исправить прогу. Введеную с клавиатуры строку А записать в обратном порядке в строку Б. Строку Б вывести на экран. В общем написал так, но препод просит чтоб через массив сделал
Public Class Form1
    Dim a, b As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = TextBox1.Text
        b = TextBox2.Text
        b = b & StrReverse(a)
        Label1.Text = b
    End Sub
End Class

Код к задаче: «Введеную с клавиатуры строку А записать в обратном порядке в строку Б - VB»

textual
Dim a(), b, k, buf() As String
    Dim n, i, j As Integer
        b = Text2.Text
        n = Len(Text1.Text)
        ReDim a(1 To n)
        ReDim buf(1 To n)
            For i = 1 To n
            a(i) = Mid(Text1.Text, i, 1)
            buf(i) = a(i)
            Next i
            i = 0
           
            k = ""
            While n > i
            a(i + 1) = buf(n - i)
            k = k + a(i + 1)
            i = i + 1
            Wend
           
        Label1.Caption = b + k

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ