Текущие дата и время: 10 октября 2024, 09:47:00
Библиотека технической документации.
DmitryS » 24 февраля 2013, 17:58
Учебник по языку программирования
Visual Basic 6.x (Microsoft VB6).
Пример кода:Private Sub Command1_Click() 'нажатие по кнопке... Dim t(1 To 3, 1 To 4) As Integer t(1, 1) = -8: t(1, 2) = -14: t(1, 3) = -19: t(1, 4) = -18 t(2, 1) = 25: t(2, 2) = 28: t(2, 3) = 26: t(2, 4) = 20 t(3, 1) = 11: t(3, 2) = 18: t(3, 3) = 20: t(3, 4) = 25 Min = t(1, 1): Max = t(1, 1) For i = 1 To 3 For j = 1 To 4 If t(i, j) > Max Then Max = t(i, j) If t(i, j) < Min Then Min = t(i, j) Next j Next i Debug.Print Max - Min End Sub
|
Visual_Basic.zip (4.26 МБ)
-
-
DmitryS
-
- Основатель
-
- Сообщения: 285
- Зарегистрирован: 10 октября 2011, 14:53
- Откуда: Russia, Moscow
- Возраст: 44
- Пол: муж.
-
Контакты:
-
Вернуться в Документация, справочники
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1