用VB怎么根据函数画出图形?

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/30 11:15:55

用VB怎么根据函数画出图形?
VB上我们想根据已有函数画出图形
基本上有点像一个圆
又不是
想画出来
各位哥哥姐姐仁兄阿姨
帮帮忙了啊!

一个VB绘制直角坐标系函数的程序理论上说这个函数可以绘制所有的图像,不明白的百度HI我我给你根据你的函数公式改造一下
Option Explicit
Private Const X_Axe = 0.5 'X轴原点位于窗口的水平位置比例
Private Const Y_Axe = 0.6 'Y轴原点位于窗口的垂直位置比例
Private Const ScaleRate = 30 '多少像素代表一个单位长度
Private Const DrawColor = vbRed '曲线颜色
Private ErrExp As Boolean '当表达式发生错误时,会置True(比如函数在此点无有效值)
Private Sub Form_Load()
Me.Show
Me.Cls
Call DrawAxe
Call DrawCoordinate
End Sub
Private Function Expression(ByVal X As Double) As Double '公式函数可以是任意内容
ErrExp = False '进入时,必须重置此标志为False
If X > 0 Then '这里代码任意,也可以是Expression = 2 * X ^ 2 + 2 * X + 1之类的
Expression = Log(X)
Else
Expression = 0
ErrExp = True
End If
End Function
Private Sub DrawCoordinate() '绘制曲线过程
Dim i As Long
Dim Last(1 To 2) As Long,This(1 To 2) As Long
Dim X_offset As Long
Dim Y_offset As Long
Me.ScaleMode = vbPixels
X_offset = Me.ScaleWidth * X_Axe
Y_offset = Me.ScaleHeight * Y_Axe
'设置一个初始值
Last(1) = 0
Last(2) = -Expression((0 - X_offset) / ScaleRate) * ScaleRate
i = 0
While i

用VB怎么根据函数画出图形? 根据一些坐标和角度怎么用CAD画出图形? 怎么根据三视图画出立体图形根据函数画图问题怎么根据左边的函数画出右边的图形来? 看不明白. 怎么用matlab画出变上限函数及其导函数的图形. matlab函数图形画出了之后怎么求值怎么用matlab画出对称的图形? 用PS怎么画出下面的图形用PS怎么画出以下这种图形? VB中的int函数怎么用? 根据前三个图形,画出第四个图形怎样用c语言根据函数式画出图形来,要用到那些函数?