Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: нужна помощь! Добавлено: 18.03.10 00:17  

Автор вопроса:  Antony
Здраствуйте! Нужна помощь . А точнее само написание программы. Я учусь в школе и занимаюсь спортом (спортом занимаюсь больше , чем учусь в школе :) ) Уезжал на крупные междугородние соревнования , а когда вернулся , понял , что абсолютно ничего не понимаю по информатике.
Преподаватель дал задание написать программу на Visual Basic. Программа такая :
двумерный массив размерностью (2,4) должен заполниться случайными числами от -100 до 100 и выводить на экран максимальное значение .
Заранее благодарен ! =)

Ответить

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

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



Вопросов: 4
Ответов: 330
 Профиль | | #1 Добавлено: 18.03.10 01:48
держи подарок )

  1.  
  2. Private Sub Form_Load()
  3. Dim i As Integer, j As Integer
  4. Dim iMin As Integer, iMax As Integer
  5. Dim iRandomNumber As Integer, iHigherNumber As Integer
  6. Dim iArray(1 To 2, 1 To 4) As Integer   ' резервирование памяти для двумерного массива на 8 элементов
  7. iMin = -100
  8. iMax = 100
  9.  
  10. Randomize
  11. For i = 1 To 2   ' внешний цикл i для 2-х строк
  12.    For j = 1 To 4   ' внутренний цикл j для 4-х столбцов
  13.        iRandomNumber = Int((iMax - iMin + 1) * Rnd + iMin)   ' получение случайных чисел
  14.        iArray(i, j) = iRandomNumber   ' заполнение массива случайными числами
  15.        If iHigherNumber < iRandomNumber Then iHigherNumber = iRandomNumber   ' получение максимального значения
  16.    Next j   ' конец внутреннего цикла j
  17. Next i   ' конец внешнего цикла i
  18.  
  19. MsgBox iHigherNumber
  20. Unload Me
  21. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Antony



Вопросов: 1
Ответов: 1
 Профиль | | #2 Добавлено: 18.03.10 08:16
Огромное спасибо!!!!

Ответить

Страница: 1 |

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



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