Private Sub сmdОчистить_Click()

Form1.Cls

txtZ1.Text = ""

txtZ2.Text = ""

End Sub

Private Sub сmdПуск_Click()

zl = Val(txtZ1.Text)

z2 = Val(txtZ2.Text)

Randomize Timer

Print "Массив В:"

For i = 1 To 10

В(i)= 100 * Rnd()

Print В(i);

Next i

j = 0

For i = 1 To 10

If (В(i)> zl) And (В(i)< z2) Then

j = j + 1 ‘ Подсчет количества элементов, удовлетворяющих условию

D(j) = В(i)

End If

Next i

Print: Print

If j = 0 Then

Print "Массив D не содержит элементов"

Else

Print "Массив D:"

For i = 1 To j

Print D(i);

Next i

End If

End Sub

5.Сохраните проект сохраните его под именем Лр10_Зад5 _Фамилия.

ЗАВДАННЯ 10.6. Постановка задачи: ОПРЕДЕЛИТЬ, СКОЛЬКО ЭЛЕМЕНТОВ ВХОДИТ В МАССИВ ПО ОДНОМУ РАЗУ

Рис. 10.5

Порядок действий

1. Расположите на форме одну кнопку (рис.10.5).

2. Значения свойств Caption формы и кнопки установите в ответствии с рис.10.5.

3. Установите значение свойства Name кнопки — cmdПуск

4. Проанализируйте приведенный ниже программный код, а затем наберите его.

Option Explicit

Dim a(1 To 10) As Integer

Dim i As Integer, j As Integer

Dim P As Integer

Dim M As Integer

Private Sub cmdПуск_Click()

Print "Масив:"