Дан массив, содержащий от 1 до k символов. Вывести этот текст в обратном порядке - VB
Формулировка задачи:
Ребята, помогите написать программу на Visual Basic
Заранее очень благодарна
Дан массив, содержащий от 1 до k символов, за которым следует точка. Вывести этот текст в обратном порядке.
Решение задачи: «Дан массив, содержащий от 1 до k символов. Вывести этот текст в обратном порядке»
textual
Листинг программы
Private Sub Command7_Click() List1.Clear Dim a(), b, c As String Dim k As Integer Randomize k = Int(Rnd(1) * 15 + 1) ReDim a(1 To k + 1) a(k + 1) = "." For i = 1 To k a(i) = Chr(Int(Rnd(1) * 15 + 97)) List1.AddItem a(i) Next i List1.AddItem a(k + 1) For i = 1 To (k + 1) / 2 c = a(i): a(i) = a(k - i + 2): a(k - i + 2) = c Next i For i = 1 To k + 1 b = b + a(i) Next i MsgBox b End Sub