Создать одномерный массив F (17), используя генератор случайных чисел - VB
Формулировка задачи:
Ну вот само задания:
"Создать одномерный массив F (17), используя генератор случайных чисел. Заменить все четные элементы их квадратами, а нечетные - увеличить вдвое.А вывести:
На форму создан массив в виде колонки чисел;
В объект Picture вывести преобразованный массив."
Решение задачи: «Создать одномерный массив F (17), используя генератор случайных чисел»
textual
Листинг программы
Private Sub Command1_Click() Dim f&(17), fp&(17) Randomize For i = 1 To 17 f(i) = (Rnd * 9 + 1) \ 1 If f(i) Mod 2 = 0 Then fp(i) = f(i) ^ 2 Else fp(i) = f(i) * 2 End If Print f(i) Picture1.Print fp(i) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д