Visual Basic. Практика. Ищенко В.А - 70 стр.

                                         70
5. Зад а т ь д опол н ит ел ь н ые свойст ва ф орм е и объект а м у пра вл ен ия, ра с-
   пол ож ен н ым н а н ей (а н а л огичн о та бл . 2).
6. В програ м м н ом код е пред у см от рет ь процед у ру ф орм ирова н ия эл е-
   м ен тов м а ссива , выбра н н ых сл у ча йн ым обра зом с пом ощь ю д а т чика
   сл у ча йн ыхчисел в числ овом д иа па зон е от 1 д о 10.
7. В общей обл а ст и м од у л я ф орм ы (General) ввести код , описыва ю-
   щий типы перем ен н ых:

   Option Explicit
   Option Base 1
   ' Ввест и масси в, по мен ят ь по рядо к сл едо ван и я эл емен т о в н а о брат -
   н ы йи у мн о ж и т ь к аж ды йэл емен т н а средн ее ари ф мет и ческ о е
   Dim a() As Long
   Dim i, c, sr As Integer
   Dim razm1 As Integer
   Dim sTemplate As String
8. Записа т ь програ м м н ый код д л я объекта кн опка Command1 (О ч ис -
   тить ), пом естив в событ ие Click() сл ед у ющие опера т оры:

    Private Sub Command1_Click()
    List1.Clear
    End Sub
9. Ввест и програ м м н ый код д л я объект а кн опка Command5 (В ы х од).
10. П роа н а л изирова т ь програ м м н ый код , за писа н н ый в процед у ра х, при-
    вед ен н ыхн иж е, и проком м ен тирова т ь су т ь описыва ем ыхд ейст вий.

   Private Sub Command2_Click()
   For i = 1 To razm1
   List1.AddItem a(i)
   Next i
   End Sub

   Private Sub Command4_Click()
   For i = 1 To ((razm1 / 2))
   c = a(i): a(i) = a(razm1 - i + 1): a(razm1 - i + 1) = c
   Next i
   For i = 1 To razm1
   sr = sr + a(i)
   Next i
   sr = sr / razm1
   For i = 1 To razm1
   a(i) = a(i) * sr
   Next i
   End Sub