Дан массив, содержащий от 1 до k символов. Вывести этот текст в обратном порядке - VB

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

Ребята, помогите написать программу на Visual Basic Заранее очень благодарна Дан массив, содержащий от 1 до k символов, за которым следует точка. Вывести этот текст в обратном порядке.

Код к задаче: «Дан массив, содержащий от 1 до k символов. Вывести этот текст в обратном порядке - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы