Как найти кол-во положительных, отрицательных и нулевых элементов массива 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы