只使用绘制直线的函数绘制出三维的地形图

来源：百度知道 编辑：UC知道 时间：2024/05/16 23:24:30
用VB编写
是课程设计 估计是比较复杂的 麻烦你

试试这个看看?
Private Sub Form_Click()
Const PI = 3.1415926
Form1.AutoRedraw = True
For py = 20 To 380 Step 3
c = (py - 20) * 4 * PI / 360
b = PI * Cos(c)
For A = 0 To 6 * PI Step PI / 7
x = 600 / (6 * PI) * A + 20
Y = 10 * Sin(A + Cos(A) * PI - b) * Cos(c) + py
x = x * 15
Y = Y * 15
If A = 0 Then
CurrentX = x
CurrentY = Y
Else
Line -(x, Y)
End If
Next
Next
End Sub