Создать одномерный массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
