Как найти кол-во положительных, отрицательных и нулевых элементов массива 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д