Создать одномерный массив 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы