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

总结：

通过这段 QBASIC 代码，我们可以轻松绘制出奥运五环旗。代码结构清晰，注释详细，便于理解和学习。相信通过本教程的讲解，你已经能够使用 QBASIC 进行简单的图形编程，并创作出更多有趣的图案。