Private Sub Command1_Click()
Cls
Picture1.Cls
Randomize
Dim m(1 To 10)
For i = 1 To 10
m(i) = Fix(Rnd(1) * 90) + 10
Next i
Min = m(1)
For i = 2 To 10
If m(i) < Min Then
Min = m(i)
End If
Next
Print "Минимальный элемент равен"; Min
Max = m(1)
For i = 2 To 10
If m(i) > Max Then
Max = m(i)
End If
Next
Print "Максимальный элемент равен"; Max
Picture1.Scale (0, 100)-(400, 0)
x = 50
For i = 1 To 10
Picture1.Line (x, 0)-(x + 30, m(i)), vbYellow, BF
Picture1.Line (x, 0)-(x + 30, m(i)), vbBlack, B
Picture1.PSet (x + 2, 20), vbYellow
Picture1.Print (m(i))
If m(i) = Max Then
Picture1.Line (x, 0)-(x + 30, Max), vbRed, BF
Picture1.Line (x, 0)-(x + 30, Max), vbBlack, B
Picture1.PSet (x + 2, 20), vbRed
Picture1.Print (Max)
End If
If m(i) = Min Then
Picture1.Line (x, 0)-(x + 30, Min), vbGreen, BF
Picture1.Line (x, 0)-(x + 30, Min), vbBlack, B
Picture1.PSet (x + 2, 20), vbGreen
Picture1.Print (Min)
End If
x = x + 30
Next i
End Sub