vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/16 23:29:46
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算vb中,怎么写代码,让程序能够识别我在te

vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算

vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算
'引用 Microsoft Script Control 1.0 '
应该是你说的,但你说的3x 这样的公式 要写成 3*x 了,如果不行,另找好的代码 ,呵!但怎么用你也可以学一下 ScriptControl
Option Explicit
Private Sub Command1_Click()
On Error GoTo E
Dim ScriptControl1 As New ScriptControl
Dim strVBS     As String
ScriptControl1.Language = "VBScript"
Dim strCode     As String
strCode = "function   DivideByZero()" & vbCrLf & _
         IIf(Len(Text3.Text), "dim " & Text3.Text & vbCrLf, "") & _
          Text1.Text & vbCrLf & _
          "DivideByZero=(" & Text2.Text & ")" & vbCrLf & _
          "End function"
With ScriptControl1
          .AddCode strCode
          Text4.Text = .Run("DivideByZero")
End With
Exit Sub
E:
 MsgBox "错误:" & Err.Number & vbCrLf & Err.Description, , "错误:" & Err.Number
End Sub

vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算 VC写程序,看得懂,我用VC写程序的时候总是不知道怎么写,但是有代码让我看的时候我倒是都能看懂,自己写什么都写不出来,只能写个MessageBox,但是我用VB写东西的时候灵活自如 在vb中怎么求三角函数值 代码编写 在VB中,多个条件一个结论,怎么写代码?不要给我说是:IF 条件AND条件AND.Then Msgbox(条件是3个以上 我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写VB VB中统计大小写字母及数字个数代码怎么写? VB中如何对数组求最大值与最小值并交换两者的次序请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导! 已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码我需要在VB中的代码啊 vb怎么在一个圆内画一个正五边形?写下代码! 把圆周率pi的精确度怎么能大到100000位(在vb上怎么写它的代码) vb 如果A= 1或者等于2或3或4,这代码怎么写.还一个问题,运行一个程序,关闭了 再打,程序还是上次关闭时的数据.2楼 文件怎么写,教下我 我不懂 在VB中需要RND随机一个数字,这个数字必须在几个数中抽取,应该怎么写?比如我要在(1,6,9,55,130)中随机得到一个数,这段代码应该怎么写呢?求高手支招. 我有一个vb程序,目的是:把一个给定数插到有序数列中,插入后数列仍然有序.我编写的插不进去数,谁能帮我看看,代码在下边,我的vb学得很烂,期待着你们能帮我看一下Private Sub Instert(a(),x As Sin VB 二次开发autocad2008中,请问如何利用VB控制获得捕捉?例如:我用VB写程序捕捉某弧度的圆心的坐标 vb编写程序,利用下面的公式计算cosx的近似值cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码:Private Sub Command1_Click()Dim x As Single,t As Single,s As Single,n As Integerx = Val(Text1.Text)s = 1:t = 1:n = 1Dot = (-1) * t * (x ^ (2 VB 三角函数转值问题在VB中三角函数的单位为弧度,比如说sin(30)算出的结果为30弧度的值.现求一代码.功能为把三角函数括号内的数值转成角度值.比如,我在程序中输入sin(30)+48-cos(46)+7.则自动得 我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码. 在CAD中,如何提取圆弧的坐标,如:圆弧的起点、中点、终点三个坐标.谁能帮我写一个VB程序来实现这个功能.