文件名称：vb 沙丘图案 图片框中显示
文件大小：2KB
文件格式：FRM
更新时间：2013-04-06 04:11:20
vb 沙丘 图案
vb 沙丘图案 点击按钮，图片框中显示 Dim xx, yy, px, py, al, l, a Dim dx Picture1.Scale (0, 0)-(640, 200) dx = 640 For py = 0 To dx Step 5 al = 2 * PI * (py - 20) / 360 l = PI * Sin(al) For a = 0 To 6 * PI Step PI / 8 xx = dx / (6 * PI) * a yy = py + 18 * Sin(a + l) If a = 0 Then Picture1.PSet (xx, yy / 2) Picture1.Line -(xx, yy / 2), QBColor(6) Next a Next py