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

   
   
     

Форум - .NET

Страница: 1 | 2 |

 

  Вопрос: Отдельный поток Добавлено: 16.12.09 12:53  

Автор вопроса:  fifa36
Здравствуйте!
Подскажите, плиз, можно ли в .Net создавать отдельные потоки как в Delphi, без использования Windows API.

И второй вопрос, можно ли изменять у массива не внешнюю размерность.

В VB 6 таких возможностей нет.

Ответить

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

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #1 		Добавлено: 16.12.09 18:49
В VB 6 таких возможностей нет.

Про массив:
Изменяет размерность многомерного массива с сохранением данных:
  1.  
  2. Function ReDimPreserve(Arr, ParamArray Razm() As Variant)
  3. Dim g
  4. Dim i As Long
  5. Dim gs
  6. Dim BigDem() As Long, LowDem() As Long
  7.  
  8. If Not IsNumeric(Razm(0)) And UBound(Razm) = 0 Then
  9.     gs = Split(Razm(0), ",")
  10.     ReDim BigDem(UBound(gs))
  11.     ReDim LowDem(UBound(gs))
  12.     For i = 0 To UBound(gs)
  13.         gs(i) = LCase(gs(i))
  14.         If InStr(1, gs(i), "to") Then
  15.             LowDem(i) = Val(Split(gs(i), "to")(0))
  16.             BigDem(i) = Val(Split(gs(i), "to")(1))
  17.         Else
  18.             BigDem(i) = Val(gs(i))
  19.         End If
  20.     Next
  21. Else
  22.     ReDim BigDem(UBound(Razm))
  23.     ReDim LowDem(UBound(Razm))
  24.     For i = 0 To UBound(Razm)
  25.     If Not IsNumeric(Razm(i)) Then
  26.             LowDem(i) = Val(Split(LCase(Razm(i)), "to")(0))
  27.             BigDem(i) = Val(Split(LCase(Razm(i)), "to")(1))
  28.         Else
  29.             BigDem(i) = Val(Razm(i))
  30.     End If
  31.     Next
  32. End If
  33. If UBound(BigDem) = 0 Then ReDim g(LowDem(0) To BigDem(0))
  34. If UBound(BigDem) = 1 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1))
  35. If UBound(BigDem) = 2 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2))
  36. If UBound(BigDem) = 3 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3))
  37. If UBound(BigDem) = 4 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4))
  38. If UBound(BigDem) = 5 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5))
  39. If UBound(BigDem) = 6 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6))
  40. If UBound(BigDem) = 7 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7))
  41. If UBound(BigDem) = 8 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8))
  42. If UBound(BigDem) = 9 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9))
  43. If UBound(BigDem) = 10 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10))
  44. If UBound(BigDem) = 11 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11))
  45. If UBound(BigDem) = 12 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12))
  46. If UBound(BigDem) = 13 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13))
  47. If UBound(BigDem) = 14 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14))
  48. If UBound(BigDem) = 15 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15))
  49. If UBound(BigDem) = 16 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16))
  50. If UBound(BigDem) = 17 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17))
  51. If UBound(BigDem) = 18 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18))
  52. If UBound(BigDem) = 19 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19))
  53. If UBound(BigDem) = 20 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20))
  54. If UBound(BigDem) = 21 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21))
  55. If UBound(BigDem) = 22 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22))
  56. If UBound(BigDem) = 23 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23))
  57. If UBound(BigDem) = 24 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24))
  58. If UBound(BigDem) = 25 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25))
  59. If UBound(BigDem) = 26 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26))
  60. If UBound(BigDem) = 27 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27))
  61. If UBound(BigDem) = 28 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28))
  62. If UBound(BigDem) = 29 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29))
  63. If UBound(BigDem) = 30 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30))
  64. If UBound(BigDem) = 31 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31))
  65. If UBound(BigDem) = 32 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32))
  66. If UBound(BigDem) = 33 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33))
  67. If UBound(BigDem) = 34 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34))
  68. If UBound(BigDem) = 35 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35))
  69. If UBound(BigDem) = 36 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36))
  70. If UBound(BigDem) = 37 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36), LowDem(37) To BigDem(37))
  71. On Error Resume Next
  72. Dim j As Long, j1 As Long, j2 As Long, j3 As Long, j4 As Long, j5 As Long, j6 As Long, j7 As Long, j8 As Long, j9 As Long, j10 As Long, j11 As Long, j12 As Long, j13 As Long, j14 As Long, j15 As Long, j16 As Long, j17 As Long, j18 As Long, j19 As Long, j20 As Long, j21 As Long, j22 As Long, j23 As Long, j24 As Long, j25 As Long, j26 As Long, j27 As Long, j28 As Long, j29 As Long, j30 As Long, j31 As Long, j32 As Long, j33 As Long, j34 As Long, j35 As Long, j36 As Long, j37 As Long
  73. For j = LowDem(0) To BigDem(0)
  74. If UBound(BigDem) > 0 Then
  75. For j1 = LowDem(1) To BigDem(1)
  76. If UBound(BigDem) > 1 Then
  77. For j2 = LowDem(2) To BigDem(2)
  78. If UBound(BigDem) > 2 Then
  79. For j3 = LowDem(3) To BigDem(3)
  80. If UBound(BigDem) > 3 Then
  81. For j4 = LowDem(4) To BigDem(4)
  82. If UBound(BigDem) > 4 Then
  83. For j5 = LowDem(5) To BigDem(5)
  84. If UBound(BigDem) > 5 Then
  85. For j6 = LowDem(6) To BigDem(6)
  86. If UBound(BigDem) > 6 Then
  87. For j7 = LowDem(7) To BigDem(7)
  88. If UBound(BigDem) > 7 Then
  89. For j8 = LowDem(8) To BigDem(8)
  90. If UBound(BigDem) > 8 Then
  91. For j9 = LowDem(9) To BigDem(9)
  92. If UBound(BigDem) > 9 Then
  93. For j10 = LowDem(10) To BigDem(10)
  94. If UBound(BigDem) > 10 Then
  95. For j11 = LowDem(11) To BigDem(11)
  96. If UBound(BigDem) > 11 Then
  97. For j12 = LowDem(12) To BigDem(12)
  98. If UBound(BigDem) > 12 Then
  99. For j13 = LowDem(13) To BigDem(13)
  100. If UBound(BigDem) > 13 Then
  101. For j14 = LowDem(14) To BigDem(14)
  102. If UBound(BigDem) > 14 Then
  103. For j15 = LowDem(15) To BigDem(15)
  104. If UBound(BigDem) > 15 Then
  105. For j16 = LowDem(16) To BigDem(16)
  106. If UBound(BigDem) > 16 Then
  107. For j17 = LowDem(17) To BigDem(17)
  108. If UBound(BigDem) > 17 Then
  109. For j18 = LowDem(18) To BigDem(18)
  110. If UBound(BigDem) > 18 Then
  111. For j19 = LowDem(19) To BigDem(19)
  112. If UBound(BigDem) > 19 Then
  113. For j20 = LowDem(20) To BigDem(20)
  114. If UBound(BigDem) > 20 Then
  115. For j21 = LowDem(21) To BigDem(21)
  116. If UBound(BigDem) > 21 Then
  117. For j22 = LowDem(22) To BigDem(22)
  118. If UBound(BigDem) > 22 Then
  119. For j23 = LowDem(23) To BigDem(23)
  120. If UBound(BigDem) > 23 Then
  121. For j24 = LowDem(24) To BigDem(24)
  122. If UBound(BigDem) > 24 Then
  123. For j25 = LowDem(25) To BigDem(25)
  124. If UBound(BigDem) > 25 Then
  125. For j26 = LowDem(26) To BigDem(26)
  126. If UBound(BigDem) > 26 Then
  127. For j27 = LowDem(27) To BigDem(27)
  128. If UBound(BigDem) > 27 Then
  129. For j28 = LowDem(28) To BigDem(28)
  130. If UBound(BigDem) > 28 Then
  131. For j29 = LowDem(29) To BigDem(29)
  132. If UBound(BigDem) > 29 Then
  133. For j30 = LowDem(30) To BigDem(30)
  134. If UBound(BigDem) > 30 Then
  135. For j31 = LowDem(31) To BigDem(31)
  136. If UBound(BigDem) > 31 Then
  137. For j32 = LowDem(32) To BigDem(32)
  138. If UBound(BigDem) > 32 Then
  139. For j33 = LowDem(33) To BigDem(33)
  140. If UBound(BigDem) > 33 Then
  141. For j34 = LowDem(34) To BigDem(34)
  142. If UBound(BigDem) > 34 Then
  143. For j35 = LowDem(35) To BigDem(35)
  144. If UBound(BigDem) > 35 Then
  145. For j36 = LowDem(36) To BigDem(36)
  146. If UBound(BigDem) > 36 Then
  147. For j37 = LowDem(37) To BigDem(37)
  148. If UBound(BigDem) > 37 Then
  149. MsgBox (("Вася, не больше 37 измерений!!!")), vbExclamation
  150. Else
  151. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37)
  152. End If
  153. Next
  154. Else
  155. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36)
  156. End If
  157. Next
  158. Else
  159. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35)
  160. End If
  161. Next
  162. Else
  163. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34)
  164. End If
  165. Next
  166. Else
  167. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33)
  168. End If
  169. Next
  170. Else
  171. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32)
  172. End If
  173. Next
  174. Else
  175. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31)
  176. End If
  177. Next
  178. Else
  179. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30)
  180. End If
  181. Next
  182. Else
  183. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29)
  184. End If
  185. Next
  186. Else
  187. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28)
  188. End If
  189. Next
  190. Else
  191. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27)
  192. End If
  193. Next
  194. Else
  195. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26)
  196. End If
  197. Next
  198. Else
  199. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25)
  200. End If
  201. Next
  202. Else
  203. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24)
  204. End If
  205. Next
  206. Else
  207. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23)
  208. End If
  209. Next
  210. Else
  211. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22)
  212. End If
  213. Next
  214. Else
  215. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21)
  216. End If
  217. Next
  218. Else
  219. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20)
  220. End If
  221. Next
  222. Else
  223. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19)
  224. End If
  225. Next
  226. Else
  227. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18)
  228. End If
  229. Next
  230. Else
  231. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17)
  232. End If
  233. Next
  234. Else
  235. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16)
  236. End If
  237. Next
  238. Else
  239. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15)
  240. End If
  241. Next
  242. Else
  243. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14)
  244. End If
  245. Next
  246. Else
  247. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13)
  248. End If
  249. Next
  250. Else
  251. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12)
  252. End If
  253. Next
  254. Else
  255. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11)
  256. End If
  257. Next
  258. Else
  259. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10)
  260. End If
  261. Next
  262. Else
  263. g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9)
  264. End If
  265. Next
  266. Else
  267. g(j, j1, j2, j3, j4, j5, j6, j7, j8) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8)
  268. End If
  269. Next
  270. Else
  271. g(j, j1, j2, j3, j4, j5, j6, j7) = Arr(j, j1, j2, j3, j4, j5, j6, j7)
  272. End If
  273. Next
  274. Else
  275. g(j, j1, j2, j3, j4, j5, j6) = Arr(j, j1, j2, j3, j4, j5, j6)
  276. End If
  277. Next
  278. Else
  279. g(j, j1, j2, j3, j4, j5) = Arr(j, j1, j2, j3, j4, j5)
  280. End If
  281. Next
  282. Else
  283. g(j, j1, j2, j3, j4) = Arr(j, j1, j2, j3, j4)
  284. End If
  285. Next
  286. Else
  287. g(j, j1, j2, j3) = Arr(j, j1, j2, j3)
  288. End If
  289. Next
  290. Else
  291. g(j, j1, j2) = Arr(j, j1, j2)
  292. End If
  293. Next
  294. Else
  295. g(j, j1) = Arr(j, j1)
  296. End If
  297. Next
  298. Else
  299. g(j) = Arr(j)
  300. End If
  301. Next
  302. If UBound(BigDem) = 0 Then ReDim Arr(LowDem(0) To BigDem(0))
  303. If UBound(BigDem) = 1 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1))
  304. If UBound(BigDem) = 2 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2))
  305. If UBound(BigDem) = 3 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3))
  306. If UBound(BigDem) = 4 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4))
  307. If UBound(BigDem) = 5 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5))
  308. If UBound(BigDem) = 6 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6))
  309. If UBound(BigDem) = 7 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7))
  310. If UBound(BigDem) = 8 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8))
  311. If UBound(BigDem) = 9 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9))
  312. If UBound(BigDem) = 10 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10))
  313. If UBound(BigDem) = 11 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11))
  314. If UBound(BigDem) = 12 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12))
  315. If UBound(BigDem) = 13 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13))
  316. If UBound(BigDem) = 14 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14))
  317. If UBound(BigDem) = 15 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15))
  318. If UBound(BigDem) = 16 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16))
  319. If UBound(BigDem) = 17 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17))
  320. If UBound(BigDem) = 18 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18))
  321. If UBound(BigDem) = 19 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19))
  322. If UBound(BigDem) = 20 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20))
  323. If UBound(BigDem) = 21 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21))
  324. If UBound(BigDem) = 22 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22))
  325. If UBound(BigDem) = 23 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23))
  326. If UBound(BigDem) = 24 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24))
  327. If UBound(BigDem) = 25 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25))
  328. If UBound(BigDem) = 26 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26))
  329. If UBound(BigDem) = 27 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27))
  330. If UBound(BigDem) = 28 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28))
  331. If UBound(BigDem) = 29 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29))
  332. If UBound(BigDem) = 30 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30))
  333. If UBound(BigDem) = 31 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31))
  334. If UBound(BigDem) = 32 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32))
  335. If UBound(BigDem) = 33 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33))
  336. If UBound(BigDem) = 34 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34))
  337. If UBound(BigDem) = 35 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35))
  338. If UBound(BigDem) = 36 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36))
  339. If UBound(BigDem) = 37 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36), LowDem(37) To BigDem(37))
  340. For j = LowDem(0) To BigDem(0)
  341. If UBound(BigDem) > 0 Then
  342. For j1 = LowDem(1) To BigDem(1)
  343. If UBound(BigDem) > 1 Then
  344. For j2 = LowDem(2) To BigDem(2)
  345. If UBound(BigDem) > 2 Then
  346. For j3 = LowDem(3) To BigDem(3)
  347. If UBound(BigDem) > 3 Then
  348. For j4 = LowDem(4) To BigDem(4)
  349. If UBound(BigDem) > 4 Then
  350. For j5 = LowDem(5) To BigDem(5)
  351. If UBound(BigDem) > 5 Then
  352. For j6 = LowDem(6) To BigDem(6)
  353. If UBound(BigDem) > 6 Then
  354. For j7 = LowDem(7) To BigDem(7)
  355. If UBound(BigDem) > 7 Then
  356. For j8 = LowDem(8) To BigDem(8)
  357. If UBound(BigDem) > 8 Then
  358. For j9 = LowDem(9) To BigDem(9)
  359. If UBound(BigDem) > 9 Then
  360. For j10 = LowDem(10) To BigDem(10)
  361. If UBound(BigDem) > 10 Then
  362. For j11 = LowDem(11) To BigDem(11)
  363. If UBound(BigDem) > 11 Then
  364. For j12 = LowDem(12) To BigDem(12)
  365. If UBound(BigDem) > 12 Then
  366. For j13 = LowDem(13) To BigDem(13)
  367. If UBound(BigDem) > 13 Then
  368. For j14 = LowDem(14) To BigDem(14)
  369. If UBound(BigDem) > 14 Then
  370. For j15 = LowDem(15) To BigDem(15)
  371. If UBound(BigDem) > 15 Then
  372. For j16 = LowDem(16) To BigDem(16)
  373. If UBound(BigDem) > 16 Then
  374. For j17 = LowDem(17) To BigDem(17)
  375. If UBound(BigDem) > 17 Then
  376. For j18 = LowDem(18) To BigDem(18)
  377. If UBound(BigDem) > 18 Then
  378. For j19 = LowDem(19) To BigDem(19)
  379. If UBound(BigDem) > 19 Then
  380. For j20 = LowDem(20) To BigDem(20)
  381. If UBound(BigDem) > 20 Then
  382. For j21 = LowDem(21) To BigDem(21)
  383. If UBound(BigDem) > 21 Then
  384. For j22 = LowDem(22) To BigDem(22)
  385. If UBound(BigDem) > 22 Then
  386. For j23 = LowDem(23) To BigDem(23)
  387. If UBound(BigDem) > 23 Then
  388. For j24 = LowDem(24) To BigDem(24)
  389. If UBound(BigDem) > 24 Then
  390. For j25 = LowDem(25) To BigDem(25)
  391. If UBound(BigDem) > 25 Then
  392. For j26 = LowDem(26) To BigDem(26)
  393. If UBound(BigDem) > 26 Then
  394. For j27 = LowDem(27) To BigDem(27)
  395. If UBound(BigDem) > 27 Then
  396. For j28 = LowDem(28) To BigDem(28)
  397. If UBound(BigDem) > 28 Then
  398. For j29 = LowDem(29) To BigDem(29)
  399. If UBound(BigDem) > 29 Then
  400. For j30 = LowDem(30) To BigDem(30)
  401. If UBound(BigDem) > 30 Then
  402. For j31 = LowDem(31) To BigDem(31)
  403. If UBound(BigDem) > 31 Then
  404. For j32 = LowDem(32) To BigDem(32)
  405. If UBound(BigDem) > 32 Then
  406. For j33 = LowDem(33) To BigDem(33)
  407. If UBound(BigDem) > 33 Then
  408. For j34 = LowDem(34) To BigDem(34)
  409. If UBound(BigDem) > 34 Then
  410. For j35 = LowDem(35) To BigDem(35)
  411. If UBound(BigDem) > 35 Then
  412. For j36 = LowDem(36) To BigDem(36)
  413. If UBound(BigDem) > 36 Then
  414. For j37 = LowDem(37) To BigDem(37)
  415. If UBound(BigDem) > 37 Then
  416. MsgBox (("Вася я ш сказал не больше 37 измерений!!!")), vbExclamation
  417. Else
  418. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37)
  419. End If
  420. Next
  421. Else
  422. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36)
  423. End If
  424. Next
  425. Else
  426. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35)
  427. End If
  428. Next
  429. Else
  430. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34)
  431. End If
  432. Next
  433. Else
  434. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33)
  435. End If
  436. Next
  437. Else
  438. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32)
  439. End If
  440. Next
  441. Else
  442. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31)
  443. End If
  444. Next
  445. Else
  446. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30)
  447. End If
  448. Next
  449. Else
  450. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29)
  451. End If
  452. Next
  453. Else
  454. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28)
  455. End If
  456. Next
  457. Else
  458. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27)
  459. End If
  460. Next
  461. Else
  462. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26)
  463. End If
  464. Next
  465. Else
  466. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25)
  467. End If
  468. Next
  469. Else
  470. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24)
  471. End If
  472. Next
  473. Else
  474. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23)
  475. End If
  476. Next
  477. Else
  478. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22)
  479. End If
  480. Next
  481. Else
  482. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21)
  483. End If
  484. Next
  485. Else
  486. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20)
  487. End If
  488. Next
  489. Else
  490. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19)
  491. End If
  492. Next
  493. Else
  494. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18)
  495. End If
  496. Next
  497. Else
  498. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17)
  499. End If
  500. Next
  501. Else
  502. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16)
  503. End If
  504. Next
  505. Else
  506. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15)
  507. End If
  508. Next
  509. Else
  510. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14)
  511. End If
  512. Next
  513. Else
  514. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13)
  515. End If
  516. Next
  517. Else
  518. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12)
  519. End If
  520. Next
  521. Else
  522. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11)
  523. End If
  524. Next
  525. Else
  526. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10)
  527. End If
  528. Next
  529. Else
  530. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9)
  531. End If
  532. Next
  533. Else
  534. Arr(j, j1, j2, j3, j4, j5, j6, j7, j8) = g(j, j1, j2, j3, j4, j5, j6, j7, j8)
  535. End If
  536. Next
  537. Else
  538. Arr(j, j1, j2, j3, j4, j5, j6, j7) = g(j, j1, j2, j3, j4, j5, j6, j7)
  539. End If
  540. Next
  541. Else
  542. Arr(j, j1, j2, j3, j4, j5, j6) = g(j, j1, j2, j3, j4, j5, j6)
  543. End If
  544. Next
  545. Else
  546. Arr(j, j1, j2, j3, j4, j5) = g(j, j1, j2, j3, j4, j5)
  547. End If
  548. Next
  549. Else
  550. Arr(j, j1, j2, j3, j4) = g(j, j1, j2, j3, j4)
  551. End If
  552. Next
  553. Else
  554. Arr(j, j1, j2, j3) = g(j, j1, j2, j3)
  555. End If
  556. Next
  557. Else
  558. Arr(j, j1, j2) = g(j, j1, j2)
  559. End If
  560. Next
  561. Else
  562. Arr(j, j1) = g(j, j1)
  563. End If
  564. Next
  565. Else
  566. Arr(j) = g(j)
  567. End If
  568. Next
  569. ReDim g(0)
  570. End Function
  571.  



Пример:

  1.  
  2. Dim g
  3. Redim g(1, 2,3)
  4. call RedimPreserve (g, 4,5,6)
  5. Call RedImpreserve (g, "1 to 5", 7, "2 To 6")

Ответить

Номер ответа: 2
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #2 		Добавлено: 16.12.09 18:51
Подскажите, плиз, можно ли в .Net создавать отдельные потоки

Если не ошибаюсь
  1.  
  2. Sub Main()
  3. Thread g = New Thread(New ThreadStart(AdressOff Boo))
  4. g.Start()
  5. End Sub
  6. Sub Boo()
  7. 'То, что в отдельном потоке
  8. End Sub

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #3 		Добавлено: 16.12.09 19:15
Немыслимая жесть.

Ответить

Номер ответа: 4
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #4 Добавлено: 16.12.09 20:50
Немыслимая жесть.

я предпочитаю называть вещи своими именами - идиотизм..

Ответить

Номер ответа: 5
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #5 Добавлено: 17.12.09 02:24
Шок

Ответить

Номер ответа: 6
Автор ответа:
 fifa36



Вопросов: 33
Ответов: 116
  Профиль | | #6 Добавлено: 17.12.09 09:10
ага, вот оно как! а все таки может в .Net это уже реализовано? (я про изменение размерности)

Ответить

Номер ответа: 7
Автор ответа:
 VerhoLom



Вопросов: 20
Ответов: 285
  Профиль | | #7 Добавлено: 17.12.09 13:00
А что, сложно создать объект System.Threading.Thread?

Ответить

Номер ответа: 8
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #8 Добавлено: 17.12.09 13:28
ага, вот оно как! а все таки может в .Net это уже реализовано? (я про изменение размерности)

Такой бред приходит в голову только "специалистам" по VB6. А в Net давно юзают типизированные списки List<T>.. это по сути тот же массив только удобней.

Ответить

Номер ответа: 9
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #9 		Добавлено: 17.12.09 15:58
Кстати, "EROS", как это самый List заставить быть двухмерным? Или тут уже обертку писать?

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #10 		Добавлено: 17.12.09 16:17
List<List<T>>

Ответить

Номер ответа: 11
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #11 		Добавлено: 17.12.09 20:33
?! А вот как я обьявлял массив массивов на VB6 - так это по-вашему извращение. А тут, значит не извращение. Ппц.

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #12 		Добавлено: 17.12.09 21:23
Конечно.

Ответить

Номер ответа: 13
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
  Web-сайт: softvito.narod2.ru
 Профиль | | #13 		Добавлено: 18.12.09 00:35
Такой бред приходит в голову только "специалистам" по VB6. А в Net давно юзают типизированные списки List<T>.. это по сути тот же массив только удобней.


Вообще – то, список о котором идет речь, это структуры, которые ссылаются сами на себя.
Классическая реализация всем известного типа хранения данных в памяти.
Сюда же относятся стеки, очереди… деревья.
И эти структуры, конечно могут включать и просто массивы.

Но вопрос же вроде как был о массивах… Просто о массивах??? :)
И их кстати никто не отменял…

Вот пример смешанного (NET и "родной" ) кода на С++. Без массива часто просто не обойтись.

  1. system = textBox2 ->Text; // NET

  3. IntPtr p_Tr=Marshal::StringToHGlobalAuto(system);//NET
  4. WCHAR *BUF; // WIN32
  5. BUF = (WCHAR*) p_Tr.ToPointer();//NET and WIN32

  7. if (0 == wcslen (BUF)){ // WIN32
  8. textBox1 ->Paste(L"Empty string! \r\n");//NET
  9. return;
  10. }
  11.  

  13. CloseHandle (CreateThread(NULL, 0, IPInfo, (LPVOID)BUF, 0, NULL)); // WIN32


Конечно.

Шарп достиг дзена… :)

Ответить

Номер ответа: 14
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #14 Добавлено: 20.12.09 01:12
Это ты ваще к чему? Тихо сам с собою?
Если это притензия что список не является массивом, то в большинстве своем выходцы из VB6 просто не подозреваю о наличии списков и по привычке продолжают юзать массывы. Поэтому им приходится явно указывать на наличие такой возможности. Если у человека возникнет действительно крайняя необходимость использовать чистый массив, то к тому времени его опыта будет достаточно, чтобы не задавать глупых вопросов относительно размерности..

Ответить

Номер ответа: 15
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #15 Добавлено: 20.12.09 09:49
Вот пример смешанного (NET и "родной" ) кода на С++. Без массива часто просто не обойтись.

Я не силен в срр, но если я правильно понял код (надеюсь, это так) то автор этого кода нуб и апазорился.. Это каким надо быть дауном чтобы вот так, через жопу, проверять строку на пустоту..
Ты подскажи ему что в Net у строки есть свойство Length.. еще есть метод string::IsNullOrEmpty и т.д.. А то там, по все видимости, такой же специалист по сpp как и по Net: - никакой..
И как видишь.. массив тут нафиг не нужен..

Ответить

Страница: 1 | 2 |

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



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