Заменить отрицательные числа массива нулями - VB

Формулировка задачи:

Требуется: -создать массив из некоторого числа положительных и отрицательных чисел. (сделано) -заменить отрицательные числа массива нулями. Вот что есть на данный момент: -создаем массив

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim x(20) As Integer
Dim n As Integer
 
For n = 1 To 15
x(n) = 100 - Int(Rnd * 200 + 1)
 Next n
 
TextBox1.Text = ""
For n = 1 To 15
TextBox1.Text = TextBox1.Text & x(n) & vbCrLf
Next n

-пытаемся его безуспешно модифицировать

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton2_Click()
Dim x(20) As Integer
Dim n As Integer
 
For n = 1 To 15
If x(n) > 0 Then
TextBox2.Text = TextBox2.Text & x(n) & Chr(13)
Else
TextBox2.Text = 0
Next n
 
MsgBox "Done!"

Пытался и этот цикл по другому написать, и do while использовать, все равно не получается.

Решение задачи: «Заменить отрицательные числа массива нулями»

textual
                            Листинг программы 
                        
 
                        
                          
                    
For n = 1 To 15
If x(n) > 0 Then
TextBox2.Text = TextBox2.Text & x(n) & Chr(13)
Else
TextBox2.Text = TextBox2.Text & "0" & Chr(13)
end if
Next n

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

7 голосов , оценка 3.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы