QBASIC编程: 绘制奥运五环标志

QBASIC编程: 绘制奥运五环标志

本教程将带你使用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$ <> ''

代码解释:

1. CLS: 清空屏幕。
2. SCREEN 12: 设置屏幕模式为640x480分辨率，16色。
3. COLOR 15: 设置画笔颜色为白色。
4. CIRCLE (x,y),radius,color: 画一个圆形。
   • (x,y): 圆心坐标。
   • radius: 圆的半径。
   • color: 圆环的颜色，对应QBASIC颜色代码。
5. FOR i = 1 TO 5 ... NEXT i: 循环结构，用于重复执行代码块5次。
6. CIRCLE (x,y),radius,color, , , , , , FILL: 填充圆形。
7. DOLOOP UNTIL INKEY$ <> '': 程序进入无限循环，直到用户按下任意键结束程序。

通过以上代码，你可以绘制出奥运五环标志。尝试修改代码中的参数，观察图形的变化，加深对QBASIC图形编程的理解。