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

UptoLike

Составители: 

72
3. Возможный вариант разработанной формы пользователя приведен
ниже.
4. Для определения свойств элементов управления и обрабатываемых
событий составить таблицу Объекты, свойства и события элементов
управления”, аналогично предыдущим заданиям.
5. Задать дополнительные свойства форме и объектам управления, рас-
положенным на ней (аналогично табл . 2).
6. В программном коде предусмотреть процедуру формирования эле-
ментов массива, выбранных случайным образом , с помощью датчика
случайных чисел в числовом диапазоне от 1 до 10 или процедуру
ввода данных через стандартное окно ввода информации InputBox.
7. Проанализировать программный код , записанный в процедурах, при -
веденных ниже, и прокомментировать суть описываемых в них дей-
ствий.
Option Explicit
Option Base 1
' Ввести элементы массива, найти 2 максимальных и удалить эле-
менты между ними
Dim a() As Long
Dim i, c, j As Integer
Dim M, max, l, k, kol As Integer
Dim sTemplate As String
Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub Command2_Click()
For i = 1 To M
List1.AddItem a(i)
Next i
End Sub
                                     72
3. Возм ож н ый ва риа н т ра зра бот а н н ой ф орм ы пол ь зова т ел я привед ен
   н иж е.




4. Д л я опред ел ен ия свойст в эл ем ен т ов у пра вл ен ия и обра ба т ыва ем ых
   событий сост а вит ь та бл ицу “О бъект ы, свойст ва и событ ия эл ем ен тов
   у пра вл ен ия”, а н а л огичн о пред ыд у щим за д а н иям .
5. Зад а т ь д опол н ит ел ь н ые свойст ва ф орм е и объект а м у пра вл ен ия, ра с-
   пол ож ен н ым н а н ей (а н а л огичн о та бл . 2).
6. В програ м м н ом код е пред у см от рет ь процед у ру ф орм ирова н ия эл е-
   м ен тов м а ссива , выбра н н ых сл у ча йн ым обра зом , с пом ощь ю д а т чика
   сл у ча йн ых чисел в числ овом д иа па зон е от 1 д о 10 ил и процед у ру
   ввод а д а н н ыхчерезст а н д а рт н ое окн о ввод а ин ф орм а ции InputBox.
7. П роа н а л изирова т ь програ м м н ый код , за писа н н ый в процед у ра х, при-
   вед ен н ых н иж е, и проком м ен тирова т ь су т ь описыва ем ых в н их д ей-
   ст вий.
   Option Explicit
   Option Base 1
   ' Ввест и элемен т ы масси ва, н айт и 2 мак си мал ьн ы хи у дали т ь эл е-
   мен т ы меж ду н и ми
   Dim a() As Long
   Dim i, c, j As Integer
   Dim M, max, l, k, kol As Integer
   Dim sTemplate As String

   Private Sub Command1_Click()
   List1.Clear
   End Sub

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