QBASIC 绘制奥运五环旗：代码详解与步骤

用 QBASIC 编写奥运五环旗

CLS
SCREEN 12
COLOR 15
' 画五个圆
CIRCLE (200,200),100,2
CIRCLE (300,300),100,3
CIRCLE (400,200),100,4
CIRCLE (500,300),100,5
CIRCLE (600,200),100,1
' 填充五个圆
FOR i = 1 TO 5
    CIRCLE (200 + i * 100,200),90,i, , , , , , FILL
NEXT i
' 画五个圆心
FOR i = 1 TO 5
    CIRCLE (200 + i * 100,200),10,0
NEXT i
DOLOOP UNTIL INKEY$ <> ""

解释：

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$ <> ""：程序进入无限循环，直到用户按下任意键结束程序。

进一步解释：

INKEY$：获取用户输入的按键
DOLOOP UNTIL INKEY$ <> ""：程序进入无限循环，直到用户按下任意键结束程序。
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$ <> ""：程序进入无限循环，直到用户按下任意键结束程序。

本代码利用了 QBASIC 的基本图形绘制功能，通过循环和简单的坐标计算实现了奥运五环旗的绘制。学习本代码可以帮助你理解 QBASIC 的基础语法和图形绘制方法。