Нарисовать звезды на небе разных размеров и цветов - VB

Узнай цену своей работы

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

помогите пожалуйста создать программу : звёздное небо и чтобы появлялись и исчезали разноцветные звёзды в разных местах и разных размеров (звёзды рисуются с помощью команды circle)

Решение задачи: «Нарисовать звезды на небе разных размеров и цветов»

textual
Листинг программы
scale(-8000,8000)-(8000,-8000)
for i=1 to 1000
x=fix(rnd*7500)
y=fix(rnd*5000)
n=fix(rnd*3)+1
c=fix(rnd*15)
drawwidth=n
pset(x,y),QBcolor(c)
next

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


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

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

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