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