Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Массивы в VBA Добавлено: 29.05.10 13:51  

Автор вопроса:  Евгения
Массивы А и B заполнены целыми числами. Вычислить в массиве С сумму кубов каждой пары элементов и разместить по убыванию в массиве D. Выведите все массивы в диалоговых окнах.
Помогите пожалуйста.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #1 		Добавлено: 29.05.10 15:22
  1. sub swap(byref a, byref b)
  2. t = a
  3. a = b
  4. b = t
  5. end sub
  6.  
  7. sub sort(byref a(), l, r)
  8. elem = a(l + (r - l) \ 2)
  9. lb = l : rb = r
  10. do while lb <= rb
  11. do while a(lb) < elem : lb = lb + 1 : loop
  12. do while a(rb) > elem : rb = rb - 1 : loop
  13. if lb <= rb then
  14. swap a(lb), a(rb)
  15. lb = lb + 1
  16. rb = rb - 1
  17. end if
  18. loop
  19. if l < rb then sort a, l, rb
  20. if lb < r then sort a, lb, r
  21. end sub
  22.  
  23.  
  24. dim a(4) : a(1) = 2 : a(2) = 2 : a(3) = 5 : a(4) = 3
  25. dim b(4) : b(1) = 7 : b(2) = 2 : b(3) = 11 : b(4) = 13
  26. dim c()
  27. redim c(ubound(a) * ubound(b))
  28. for i = 1 to ubound(a)
  29. for j = 1 to ubound(b)
  30. c((i - 1) * ubound(b) + j) = a(i)^3 + b(j)^3
  31. next
  32. next
  33. dim d()
  34. redim d(ubound(c))
  35. for i = 1 to ubound(c)
  36. d(i) = c(i)
  37. next
  38. sort d, 1, ubound(d)
  39. msgbox join(a, " ") & vbcrlf & join(b, " ") & vbcrlf & join(c, " ") & vbcrlf & join(d, " ")

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам