Заменить последний элемент массива, кратный 3, нулем - VB

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

Заменить последний элемент массива, кратный 3, нулем. Заменить то заменяет, а как напечатать 2 одинаковых массива?

Private A() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(31 * Rnd - 15)
Picture1.Print A(i);
Next i
 
Picture2.Cls
If A(i - 1) Mod 3 = 0 Then A(i - 1) = 0
Picture2.Print A(i - 1);
End Sub

Сам додумался

Private A() As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(31 * Rnd - 15)
Picture1.Print A(i);
Next i
 
Picture2.Cls
If A(i - 1) Mod 3 = 0 Then A(i - 1) = 0
For i = 1 To n
Picture2.Print A(i);
Next
End Sub

Решение задачи: «Заменить последний элемент массива, кратный 3, нулем»

textual
                            Листинг программы 
                        
                            If A(n) Mod 3 = 0 Then A(n) = 0

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

11 голосов , оценка 4 из 5

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