Как найти кол-во положительных, отрицательных и нулевых элементов массива Z(N) - VB
Формулировка задачи:
Люди помогите составить программу в Visual Basic 6
Задание: Найти кол-во положительных,отрицательных и нулевых элементов массива Z(N). Массив Z(N) вывести на печать.
Решение задачи: «Как найти кол-во положительных, отрицательных и нулевых элементов массива Z(N)»
textual
Листинг программы
Private Sub Command1_Click()
Dim Z() As Single, n As Integer, i As Integer
Dim Z_p As Integer, Z_n As Integer, Z_z As Integer
n = Val(InputBox("Введите размер массива", , 5))
Randomize
AutoRedraw = True
ReDim Z(1 To n)
For i = 1 To n
Z(i) = Val(InputBox("Введите Z(" & i & ")", "", Int(Rnd * 20 - 10)))
Print Z(i) & vbTab;
Next i
For i = 1 To n
Select Case Z(i)
Case Is > 0: Z_p = Z_p + 1
Case Is < 0: Z_n = Z_n + 1
Case Is = 0: Z_z = Z_z + 1
End Select
Next i
Print
Print "Kол-во положительных " & Z_p
Print "Kол-во отрицательных " & Z_n
Print "Kол-во нулевых " & Z_z
End Sub