Из 10 введенных чисел возвести в квадрат отрицательные, а положительные суммировать - VB
Формулировка задачи:
Составьте программу которая из 10 введенных чисел возводит в квадрат отрицательные , а все положительные суммирует.
Используйте оператор For
Решение задачи: «Из 10 введенных чисел возвести в квадрат отрицательные, а положительные суммировать»
textual
Листинг программы
Option Explicit
Dim A(1 To 10) As Double
Dim I As Double
Dim X As Double
Dim Y As Double
Dim Z As Double
Private Sub Command1_Click()
If I < 10 Then
I = I + 1
A(I) = Val(Text1.Text)
Text1.Text = ""
Call siu
Else
Call NewSub
End If
End Sub
Private Sub siu()
If A(I) > 0 Then
X = X + A(I)
End If
If A(I) < 0 Then
Y = Y + A(I)
End If
End Sub
Sub NewSub()
MsgBox ("Сумма положительных чисел = " & X)
Z = Y * Y
MsgBox ("Отрицательные числа возведенные в квадрат = " & Z)
End Sub
Sub Non()
I = 0
X = 0
Y = 0
Z = 0
End Sub
Private Sub Form_Load()
Text1.Text = ""
Form1.Caption = "Тестовая программа"
Command1.Caption = "Вычислить"
End Sub