用QBASIC编写奥运五环旗CLSSCREEN 12COLOR 15画五个圆CIRCLE 2002001002CIRCLE 3003001003CIRCLE 4002001004CIRCLE 5003001005CIRCLE 6002001001填充五个圆FOR i = 1 TO 5 CIRCLE 200 + i 10020090i FILLNEXT i画五个圆心FOR i =
解释:
- CLS:清空屏幕
- SCREEN 12:设置屏幕模式
- COLOR 15:设置画笔颜色为白色
- CIRCLE (200,200),100,2:画一个以(200,200)为中心,半径为100,边框宽度为2的圆,代表蓝色环
- CIRCLE (300,300),100,3:画一个以(300,300)为中心,半径为100,边框宽度为3的圆,代表黄色环
- CIRCLE (400,200),100,4:画一个以(400,200)为中心,半径为100,边框宽度为4的圆,代表黑色环
- CIRCLE (500,300),100,5:画一个以(500,300)为中心,半径为100,边框宽度为5的圆,代表绿色环
- CIRCLE (600,200),100,1:画一个以(600,200)为中心,半径为100,边框宽度为1的圆,代表红色环
- FOR i = 1 TO 5:循环5次,分别填充五个圆
- CIRCLE (200 + i * 100,200),90,i, , , , , , FILL:以(200 + i * 100,200)为中心,半径为90,填充颜色为i代表的颜色,填充圆形
- NEXT i:结束循环
- FOR i = 1 TO 5:循环5次,分别画五个圆心
- CIRCLE (200 + i * 100,200),10,0:以(200 + i * 100,200)为中心,半径为10,画一个填充颜色为0(黑色)的圆,代表五环的中心
- NEXT i:结束循环
- DOLOOP UNTIL INKEY$ <> "":程序进入无限循环,直到用户按下任意键结束程序。
原文地址: https://www.cveoy.top/t/topic/bOZI 著作权归作者所有。请勿转载和采集!