Страница 1 из 1

Visual Basic

СообщениеДобавлено: 24 февраля 2013, 17:58
DmitryS
Учебник по языку программирования 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 МБ)