vb6.0中怎么计算text中的函数公式？
我们那个**的老师让我们写一个机械仿真软件，要在他那个电脑上能用的（基本上就是vb6.0行）,做课设算成绩的
现在我要在text中输入一个复杂点的带参公式，然后程序自己改变参数计算出720个值来
比如text中是 ”x+5“，然后程序将i=0带入x中，然后自加719次一共求出720个值了，但公式绝对会比这个复杂
ps：vb小白，请说的简单点 0_0
不是的，x只是个例子，由程序从0开始计算，算720个值
比如text输入的公式是 sin(x)^3+6ig(x)*8
公式是用户的公式，程序是不知道的，输入到text后，程序按一个固定的规律改变 x 并带入公式中，最后求出一大堆值来
蒙了，难道X是随机的？
追问不是随机的，由0开始0,1,2,3，..........719，720，一共720个x，再根据输入的公式，计算出720个值
不知道该怎么解释了，就是公式中有个x，公式是用户自己想出来的，程序最开始不知道公式是什么，但是公式中有个参数x，程序将自己的数据带入公式（x）中，然后求出720个值，这720个值再去做别的事
Vb 6.0中实现在Text中输入一个-1到1的小数,用反三角函数计算,Label框显...
Dim x As DoubleDim y As DoublePrivate Sub Command1_Click() x = Val(Text1.Text) y = Atn(x \/ Sqr(-x * x + 1)) y = y * 180 \/ 3.1415926 Label1.Caption = yEnd SubPrivate Sub Command2_Click() x = Val(Text1.Text) y = Atn(-x \/ Sqr(-x *...
Vb6.0关于txt的读出
Text1.Text = lzReadFile("D:\\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存放文件内容 Dim strAll As String '存...
vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：留个Q我传你个代码
VB6.0一元二次方程计算器怎么让计算结果保留根号与分数
A = Text1.Text Dim B As Double B = Text2.Text Dim C As Double C = Text3.Text Dim D As Double D = B ^ 2 - 4 * A * C If D < 0 Then MsgBox ("此题无实数解"): Exit Sub Dim x1 As String Dim x2 As String If D = 0 Then x1 = -B \/ (2 * A): Text...
VB6.0 用定义的变量怎么计算?
CPZL = (val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)) * CPBZ Text11.Text = ZDCL \/ CPZL Text10.Text = val(Text3.Text) \/ CPZL
vb 6.0中怎么样让text读取text文件后一行一行计算
Text1 = Join(Bds, vbCrLf)End If End Sub Private Sub Command2_Click()Dim i& For i = 0 To UBound(Bds)Bds(i) = Replace(Bds(i), "a", Text3) '替换变量a,为text3文本框的内容 Bds(i) = Replace(Bds(i), "b", Text4) '替换变量b,为text4文本框的内容 '如果你有更多变量...
vb6.0 保留小数
如果不考虑负数的话,可以转负数后Fix再取绝对值.如 Text1.Text = Abs(Fix(Val(Text2.Text) \/ 2 * -1)), "0"" ""(张)")如果考虑负数,就用判断语句,对负数另外处理.
关于vb6.0 text控件问题
Print #1, Text2 Print #1, Text3 '...Close #1 End If End Sub Private Sub Form_Load()If Dir("test.txt", vbSystem) <> "" Then Open "test.txt" For Input As #1 Line Input #1, s1 Line Input #1, s2 Line Input #1, s3 Close #1 Text1 = s1 Text2 = s2 Text3 = s3...
vb6.0 分别提取字符串中的中文和英文
'vb使用unicode ，一个字符英文和中文 都用两个字节表示，低位字节在前，高位字节在后 '英文和中文用高字节 是否大于大于零进行区分,For i = 1 To LenB(Text1.Text) - 1 Step 2 s = MidB(Text1.Text, i, 2)If AscB(MidB(s, 2, 1)) > 0 Then'大于零是中文 List1.AddItem s Else...
在VB6.0中,如何把文本公式转换为数学公式
CreateObject("MSScriptControl.ScriptControl")MSSC.Language = "VBScript"CalcStr = MSSC.Eval(StrNum)Set MSSC = NothingEnd FunctionPrivate Sub Command1_Click() '假定“计算”按钮为Command1Text2.Text = CalcStr(Text1.Text)End Sub请注意，公式内容必须完全符合VB对表达式的要求，否则会出错 ...
