Введеную с клавиатуры строку А записать в обратном порядке в строку Б - 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

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

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

Похожие ответы