文件名称：三角函数演示,VB6.0源代码,Select Case i
文件大小：7KB
文件格式：RAR
更新时间：2012-01-13 07:00:18
三角函数演示,VB6.0源代码,Select Case i
三角函数演示,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 0.001 y = Tan(2 * Pi * w * x) + Fi Picture1.PSet (x, y) Next x Case 4 For x = 0 To 6.282 Step 0.001 y = Atn(2 * Pi * w * x) + Fi Picture1.PSet (x, y) Next x End Select
【文件预览】：
VB081222-三角函数演示
----Form1.frm(6KB)
----工程1.vbp(659B)
----MSSCCPRJ.SCC(190B)
----Form1.frx(40B)
----新建 文本文档.txt(572B)
----工程1.vbw(52B)
----效果图.bmp(221KB)
----form1.f2x(40B)