回 帖 发 新 帖 刷新版面

主题:急!急!急!

各位编程爱好者们好,向大家求一个用QBASIC画图的,随便什么内容!

回复列表 (共1个回复)

沙发

一个太极图——————————————————————
cls
pi=4*atn(1)
screen 12
a=40
r=5*a
circle (8*a,r),a
circle (r+a,r),a
circle (2*r,r),a
circle (a+r,r),2*a,,0,pi
circle (2*r,r),2*a,,pi,0
paint (2*r,r):paint (8*a,7*a)
end

我来回复

您尚未登录,请登录后再回复。点此登录或注册