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) I