Visual Basic

[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 МБ)