VB高手请帮忙设计一个程序画出Y=tanX的曲线谢谢了！

举报该文章

相关建议 2006-08-30

Dim y As Single
Dim x As Single
Const pi = 3.1416
DrawWidth = 2
'步长Step=0.01小一点可以多打些点
For i = 0 To 180 Step 0.01
x = pi * i / 180
y = Tan(x)
Me.PSet (1000 + x * 2000, 4500 + y * 10), RGB(225, 0, 0)
next i
最好不要直接放在formload下

温馨提示：内容为网友见解，仅供参考

当前网址：https://aolonic.com/aa/aaw3d5ag.html

其他看法

无其他回答

VB高手请帮忙设计一个程序画出Y=tanX的曲线谢谢了!
Dim y As Single Dim x As Single Const pi = 3.1416 DrawWidth = 2 '步长Step=0.01小一点可以多打些点 For i = 0 To 180 Step 0.01 x = pi * i \/ 180 y = Tan(x)Me.PSet (1000 + x * 2000, 4500 + y * 10), RGB(225, 0, 0)next i 最好不要直接放在formload下 ...

VB高手 请帮忙 设计一个程序画出Y=tanX的曲线 谢谢了！

VB高手请帮忙设计一个程序画出Y=tanX的曲线谢谢了！