文章插图
答案补充:Cot函数这样修改即可 。主要是你没有定义y的类型 。至于fi*pi/180与fi有什么区别,那要根据你的fi单位而定 。如果你是以角度输入的,那么应该加上*pi/180,如果本身是以弧度输入的,就直接写fi即可 。====================Private Sub Command1_Click()Dim x As Single, y As Single Picture1.Scale (-15, 15)-(15, -15)For x = -15 To 15 Step 0.001w = 1y = 1 / (Tan(w * x))Picture1.PSet (x, y), RGB(0, 255, 0)Next xEnd Sub===================建一个Command1,Picture1,Combo1.使用的时候,请先在Combo1中选择或者输入tan,然后单击按钮 。代码如下 。================= Const pi = 3.14159265 Private Sub Command1_Click() Dim x As Single, y As Single, w As Single, fi As Single If Combo1.Text = "tan" Then w = 1 fi = 0 Picture1.Scale (-15, 15)-(15, -15) For x = -15 To 15 Step 0.001 y = Tan(w * x + fi) Picture1.PSet (x, y), RGB(0, 255, 0) Next x End If End Sub
【vb画tan函数图像】
推荐阅读
- 茶园肥料效应函数的应用及略评
- 漓月港观景点怎么拍原神 原神画外旅照活动璃月拍照攻略
- 小学生国庆节儿童绘画
- 庚午秋日游忠显寺寺僧设酒殽款曲甚至临别出画马小图一幅索予赋诗予既被酒奋笔以寓所怀原文、作者
- 画眉鸟喂牛肉的好处
- 银魂同人冲神的漫画,小说都行~
- 绘画作品简介怎么写 绘画作品简介写法
- 童年读书卡模板怎么做
- 红色内眼线画法
- 水果凤梨简笔画教程图片