vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/16 03:50:31
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
比如,输入3x+1,然后程序自动识别这个公式,把给定的值代入进行计算
比如,输入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
应该是你说的,但你说的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里写的一个数学公式,并且按照给定的值进行计算
VB 求出能整除3的两位数,在text 中输出,每行5个数,代码怎么写
vb算式四舍五入在vb缩写的代码中有一个算式:(ProgressBar1.Value / Text2.Text) * 1
VB程序里的循环结构怎么写?
我用vb写了一个计算长方形~正方形或三角形面积的程序~
怎么在VB中求和我是想编一个简单计算器,编到求和这块不太会了,下面是我写的代码,麻烦帮我想一下Sub op()T1.En
VB计算,一个和数如果大于22,就减去22的倍数;等于或小于22,直接出和数.怎么写代码?
用matlab写一个手写数字识别的程序,9
我有一个vb程序,目的是:把一个给定数插到有序数列中,插入后数列仍然有序.我编写的插不进去数,
请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?
我写的一个c语言程序,输入5个数字,输入按照从大到小的顺序进行排列,程序如下,调试的时候,告诉我出错
谁能帮我写一个MATLAB程序,是关于人类病毒图像特征提取与识别的?