Образец выполнения задания

Задан массив чисел Х(n). Найти сумму положительных чисел, стоящих на четных позициях.

1. Входными данными являются числа массива X(n).

2. Выходными данными – значение суммы чисел S.

3. Проектируем форму:

На форме спроектированы следующие элементы управления:

Label (Сумма чисел равна)

ComboBox (для ввода массива чисел),

CommandButton (Добавить, Удалить, Очистить, Расчет, Выход).

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (очистка элемента TextBox и ComboBox),

Font – для изменения размера и начертания шрифта.

4. Программный код:

Dim i As Integer

Dim s As Single

Private Sub Command1_Click()

If IsNumeric(Combo1.Text) = True Then

Combo1.AddItem Combo1.Text

Else

MsgBox "Ошибка! Введите число!", vbCritical

End If

Combo1.Text = ""

Combo1.SetFocus

End Sub

Private Sub Command2_Click()

If Combo1.ListIndex >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

Else

MsgBox "Ошибка! Вы не выбрали элемент!"

End If

End Sub

Private Sub Command3_Click()

Combo1.Clear

Text1.Text = ""

End Sub

Private Sub Command4_Click()

s = 0

For i = 0 To Combo1.ListCount - 1 Step 2

If Combo1.List(i) > 0 Then

s = s + Combo1.List(i)

End If

Text1.Text = s

Next

End Sub

Private Sub Command5_Click()

End

End Sub

5. Результат выполнения программы: