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

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

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

есть два задания одно я сделал "В компьютер вводится 10 слов. Вывести эти слова на экран, отсортированные в алфавитном порядке." вот программа Sub Prog_v6()
Листинг программы
  1. Dim sl(10) As String, ss As String ' описание переменных
  2. Dim i As Integer, k As Integer
  3.  
  4. ' вводим массив в диалоге
  5. For i = 1 To 10
  6. sl(i) = InputBox("Cлово " & Str(i) & " = ")
  7. Worksheets(1).Cells(i, 1) = sl(i)
  8. Next i
  9. ' сортируем массив медленным, но верным способом
  10. Do
  11. k = 0
  12. For i = 2 To 10
  13. If sl(i) < sl(i - 1) Then
  14. ss = sl(i) ' меняем местами слова
  15. sl(i) = sl(i - 1)
  16. sl(i - 1) = ss
  17. k = k + 1
  18. End If
  19. Next i
  20. Loop While k > 0
  21. ' выводим отсортированный массив на лист Excel
  22. For i = 1 To 10
  23. Worksheets(1).Cells(i + 12, 1) = sl(i)
  24. Next i
  25. End Sub
а вторую"В компьютер последовательно вводятся 10 строк, содержащих имя и фамилию. Поменять местами имя и фамилию, результат вывести на экран. " не могу понять там ф.и. вводить как в один массив или отдельно и потом поменять местами их ..или по другому потому что по условию стоит вводят 10 строк...

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

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

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


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

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

13   голосов , оценка 4.385 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы