Поменять местами имя и фамилию, результат вывести на экран. - VB

Узнай цену своей работы

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

есть два задания одно я сделал "В компьютер вводится 10 слов. Вывести эти слова на экран, отсортированные в алфавитном порядке." вот программа Sub Prog_v6()
а вторую"В компьютер последовательно вводятся 10 строк, содержащих имя и фамилию. Поменять местами имя и фамилию, результат вывести на экран. " не могу понять там ф.и. вводить как в один массив или отдельно и потом поменять местами их ..или по другому потому что по условию стоит вводят 10 строк...

Решение задачи: «Поменять местами имя и фамилию, результат вывести на экран.»

textual
Листинг программы
Sub Task()
'Г‚ êîìïüþòåð ïîñëåäîâГ*òåëüГ*Г® ââîäÿòñÿ 10 ñòðîê, ñîäåðæГ*Г№ГЁГµ èìÿ ГЁ ГґГ*ìèëèþ. ÏîìåГ*ГїГІГј ìåñòГ*ìè èìÿ ГЁ ГґГ*ìèëèþ, ðåçóëüòГ*ГІ âûâåñòè Г*Г* ГЅГЄГ°Г*Г*.
On Error Resume Next
Dim a, i As Integer, sStr As String
For i = 1 To 10
    a = Split(InputBox("Èìÿ, Г”Г*ìèëèÿ:"))
    sStr = sStr & a(1) & " " & a(0) & vbNewLine
Next
MsgBox sStr
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.385 из 5
Похожие ответы