Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [VB]
Формулировка задачи:
Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 все четные елементы нулями и вывести результаты на форму.
Решение задачи: «Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д