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

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


textual

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

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

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. помогите пожалуйста,очень нужно. 1. Описать тип данных с именем TRAIN , содержащий следующие поля: - название пункта назначения - номер поезда - время отправления 2. Написать программу, выполняющую следующие действия: - ввод с клавиатуры данных в массив , состоящий из 6-и эле- ментов типа TRAIN; записи должны быть упорядочены по времени отправления поездов. - вывод на экран информации о поездах, направляющихся в пункт,название которого введено с клавиатуры. - если таких поездов нет - выдать на дисплей соответствующее со- общение.

  1. Задан массив, содержащий нулевые элементы. Сжать его , ыбросив эти элементы, порядок следования элементов не нарушать.

  1. Попалась довольно сложная для меня задача по массивам. Дано два одномерных массива. Построить третий массив, который будет состоять с одинаковых элементов значений первых двух массивов. Подсчитать их количество и вывести координаты. Спасибо большое заранее.

  1. Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы (по строкам), причем первый элемент файла содержит количество столбцов матрицы. Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент отсутствует, то вывести 0.

  1. Дана матрица U(4,5). Получить одномерный массив, каждый элемент которого есть сумма элементов строк исход-ной матрицы. Сумму по строке находить в подпрограмме.

  1. Даны вещественные числа A, B и целое число N. Создать текстовый файл, содержащий таблицу значений функции √x на промежутке [A, B] с шагом (B-A)/N. Таблица состоит из двух столбцов: с аргументами x (10 позиций, из них 4 под дробную часть) и со значениями √x (15 позиций, из них 8 под дробную часть). Столбцы выравниваются по правому краю. Заранее огромное спасибо.

  1. Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру, добавив в начале каждой непустой строки нужное количество пробелов (ширину текста считать равной 50). Строки нечетной длины перед центрированием дополнять слева пробелом.

  1. Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа. Выручайте пожалуйста!

  1. Даны два файла, получить третий, содержащий чётные строки первого файла и нечётные строки второго файла. Вообще не имею понятия, как проверяют чётность и нечётность строк. Помогите пожалуйста.

  1. Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа. Выручайте пожалуйста!