梦随心愿

来源: BlogBus 原始链接: http://www.blogbus.com:80/blogbus/blog/index.php?blogid=11315&m=20041014 存档链接: https://web.archive.org/web/20041123192756id_/http://www.blogbus.com:80/blogbus/blog/index.php?blogid=11315&m=20041014

梦随心愿 日 历 2004 年 10 月 Sun Mon Tue Wen Thu Fri Sat 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 登 录 最近更新 图形变换CHF 图形变换QQ 图形变换 绘制剖面线 例2-4，2-11 会动的时钟 基 画随机线条 画随机线条 绘制五彩纸 最新评论 我的链接 http://www.zjol.com.cn/vbbible/software/program/vb/vb1.htm VB技艺集 http://www.vbaspnew.com/w_duomeiti.html http://www.ccw.com.cn/htm/app/aprog/01_7_19_3.asp 我的存档 分类 默认分类 (19) 相关网站 (3) 相关网站 (1) VB绘图 (3) 作业例题 (12) 交绘式绘图文件 (1) 分页 画随机线条 -[作业例题] 时间: 2004-10-14 09:23 Private Sub Command1_Click()Dim x, y, i As IntegerClsFor i = 0 To 20ForeColor = QBColor(15 * Rnd)x = 3000 * Rndy = 3000 * RndLine (1200, 1200)-(x, y)Next i End Sub Private Sub Form_Load()Command1.Caption = "开始"End Sub .............. 梦随心雨 发表于 09:23 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 画随机线条 -[作业例题] 时间: 2004-10-14 09:23 Private Sub Command1_Click()Dim x, y, i As IntegerClsFor i = 0 To 20ForeColor = QBColor(15 * Rnd)x = 3000 * Rndy = 3000 * RndLine (1200, 1200)-(x, y)Next i End Sub Private Sub Form_Load()Command1.Caption = "开始"End Sub .............. 梦随心雨 发表于 09:23 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 绘制五彩纸 -[作业例题] 时间: 2004-10-14 08:47 Private Sub Command1_Click()Dim i, xpos, yposScaleMode = 3DrawWidth = 4Clsi = 1Do While i < 2000xpos = Rnd * ScaleWidthypos = Rnd * ScaleHeightPSet (xpos, ypos), QBColor(Rnd * 15)i = i + 1LoopEnd Sub Private Sub Form_Load() Command1.Caption = "开始"End Sub.............. 梦随心雨 发表于 08:47 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 橡皮筋技术 -[交绘式绘图文件] 时间: 2004-10-14 08:24 Dim cx, cy, oldx, oldy As IntegerDim x1, y1, x2, y2 As IntegerDim currentnum As Integer Private Sub Form_Load()Form1.BackColor = QBColor(15)Form1.ForeColor = QBColor(2)MousePointer = 1Form1.DrawMode = vbNopEnd Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 2 &.............. 梦随心雨 发表于 08:24 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 抛物线，（不能运行） -[作业例题] 时间: 2004-10-14 08:19 Private Sub Form_click()Dim c, s As Variantr = 12s = 400p = 400c = 45 * 3.1415926 / 180cosa = s * Cos(c)sina = s * Sin(c)m = 0ClsTimer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Timer1.Interval = 1000dt = 0.01t = m * dtx = 30 + (cosa * t)y = 200 + (sina * t - p * t * t / 2)FillColor = QBColor(7)Circle (x, y), .............. 梦随心雨 发表于 08:19 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 运动的小球动画 -[作业例题] 时间: 2004-10-14 08:10 Dim dx, dy As IntegerPrivate Sub Form_Click()Form1.BackColor = RGB(190, 190, 190)Form1.ForeColor = RGB(0, 0, 0)w = Form1.Widthh = Form1.Heightxc = w / 2: yc = h / 2Line (100, 100)-(w - 200, h - 500), , BCircle (xc, yc), 30Timer1.Interval = 1dx = 50: dy = 50End Sub Private Sub Timer1_Timer()Static t As LongStatic x, y As Integerw = .............. 梦随心雨 发表于 08:10 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 作业画递推三角形 -[作业例题] 时间: 2004-10-14 08:01 Public Sub regular(x1, y1, x2, y2, x3, y3, n1) If n1 = 1 Then Line (x1, y1)-(x2, y2) Line (x2, y2)-(x3, y3) Line .............. 梦随心雨 发表于 08:01 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 例题画圆2-1 -[作业例题] 时间: 2004-10-14 07:56 Private Sub Form_Click()Dim radius As Integer '声明变量，半径 ScaleHeight = 100ScaleWidth = 100ClsFor radius = 5 To 50 Step 5Circle (50, 50), radius '画圆Next radiusEnd SubPrivate Sub form_load()Form1.Height = 4000Form1.Width = 4000End Sub.............. 梦随心雨 发表于 07:56 阅读全文 | 评论(0) | 引用Trackback(0) ;| 编辑 分页 模板设计： panwh