说明: 三角函数演示,VB6.0源代码,Select Case i Case 1 For x = 0 To 6.282 Step 0.001 y = Sin(2 * Pi * w * x) + Fi Picture1.PSet (x, y) Next x Case 2 For x = 0 To 6.282 Step 0.001 y = Cos(2 * Pi * w * x) + Fi Picture1.PSet (x, y) Next x Case 3 For x = 0 To 6.282 Step
<gouyue> 上传 | 大小:7kb