Текущие дата и время: 19 марта 2024, 07:25:00

Visual Basic

Библиотека технической документации.

Visual Basic

Сообщение 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
Возраст: 43
Пол: муж.
 
Контакты:

Вернуться в Документация, справочники

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron