例题画圆2

来源: BlogBus 原始链接: http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=440928 存档链接: https://web.archive.org/web/20041024184337id_/http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=440928

发表评论： 最后更新： 例2-4，2-11 会动的时钟 基 画随机线条 画随机线条 绘制五彩纸 橡皮筋技术 抛物线，（不能运行） 运动的小球动画 作业画递推三角形 BLOGBUS。COM <<<相关 | 返回首页 | 例2-4，2-11>>> 例题画圆2-1 梦随心雨 发表于 2004-10-14 Private Sub Form_Click() Dim radius As Integer '声明变量，半径 ScaleHeight = 100 ScaleWidth = 100 Cls For radius = 5 To 50 Step 5 Circle (50, 50), radius '画圆 Next radius End Sub Private Sub form_load() Form1.Height = 4000 Form1.Width = 4000 End Sub 2004-10-14 07:56 | Trackback(0) | 编辑 有人发表过这些评论： 模板设计： 梵梦聆心