Поменять местами имя и фамилию, результат вывести на экран. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д