Дана последовательность из 8 чисел (VB6.0)
Формулировка задачи:
Помогите плииииз, очень-очень надо код написать...
Дана последовательность из 8 чисел.Вычеслить сумму квадратов отрицательных элементов и произведение положительных. Последовательность чисел ввести с помощью InputBox,сумму вывести в TextBox.
Заранее мног-премного благодарна
Решение задачи: «Дана последовательность из 8 чисел (VB6.0)»
textual
Листинг программы
'''''''''''''Text1.MultiLine = True Private Sub Command1_Click() Dim a Dim i As Integer Dim P, S, tr As Boolean Dim sstr As String, pstr As String P = 1: S = 0: tr = False For i = 1 To 8 a = Val(InputBox("вводим число" & i)) If a < 0 Then S = S + a ^ 2 If a > 0 Then P = P * a If tr = False Then tr = True End If Next i If S = 0 Then sstr = "отрицательных элементов нет" Else sstr = "сумма квадратов отрицательных элементов" & _ vbCrLf & " S = " & S End If If tr = False Then pstr = "положительных элементов нет" Else pstr = "произведение положительных элементов" & _ vbCrLf & " P = " & P End If Text1.Text = sstr & _ vbCrLf & "-----------------------" & _ vbCrLf & pstr End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д