Заменить последний элемент массива, кратный 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
Добавлено через 6 минут Сам додумался
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


textual

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

If A(n) Mod 3 = 0 Then A(n) = 0
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник