Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [VB] - VB

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

Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 все четные елементы нулями и вывести результаты на форму.

Код к задаче: «Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [VB] - VB»

textual
Private Sub Command1_Click()
Dim i As Byte, mas(1 To 20) As Byte, s As String, s2 As String
Cls
s = ""
s2 = ""
For i = 1 To 20
mas(i) = Int((11 + 0) * Rnd() + (0))
s = s & " " & Str(mas(i))
If mas(i) Mod 2 = 0 Then mas(i) = 0
s2 = s2 & " " & Str(mas(i))
Next
Print s
Print s2
End Sub

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


СОХРАНИТЬ ССЫЛКУ