Function jisuan(a, b, c)
gen(0) = 0: gen(1) = 0
If (b ^ 2 - 4 * a * c >= 0) Then
gen(0) = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
gen(1) = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
MsgBox "两个根分别为" & gen(0) & "、" & gen(1)
Else
MsgBox "无实数根"
End If
End Function本回答被网友采纳
如何用VBA解一元二次方程?
1、在B2单元格输入表达式=0.00000046*B1^2+0.0024*B1+0.0388 2、在“数据”选项下的“模拟运算”中，选择“单变量求解”；3、选择目标单元格为B2，输入Y值，选择B1为可变单元格，按“确定”；4、单元格求解状态返回一个解，按确定，保存符合要求的X值。5、单变量求解被广泛用于一元多次方程，...
vba编程:设计求解一元二次方程解的程序,若有实数根输出其方程的解,若...
MsgBox "方程无解!"Else x1 = (Sqr(b ^ 2 - 4 * a * c) - b) \/ (a * 2)x2 = (-Sqr(b ^ 2 - 4 * a * c) ^ 0.5 - b) \/(a * 2)MsgBox "结果分别是:" & "x1=" & x1 & "," &"x2=" & x2 End If End Sub ...
在Excel的vba中编写一段代码解一元二次方程组
Function x1x2(a, b, c As Integer)If b ^ 2 - 4 * a * c >= 0 Then x1x2 = "x1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) \/ 2 \/ a & " x2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) \/ 2 \/ a Else MsgBox "参数输入错误，无解！"End If End Funct...
请问excel 2007怎么样解一元二次方程?
将1，-3,2三个数字分别输入A1，B1，C1三个单元格 D1输入 =(-B1+SQRT(B1*B1+4*A1*C1))\/(2*A1)E1输入 =(-B1+SQRT(B1*B1-4*A1*C1))\/(2*A1)分别为两个解 如果显示错误值，说明delta小于0，无解
vba窗体设计求解二元一次方程, 怎么写语句啊??窗体如下,输入,a. b...
c = Cells(4, 2).Value If a = 0 Then MsgBox "二次方系数a不能为0"Exit Sub End If If (b * b - 4 * a * c) < 0 Then MsgBox "方程无解"Else Cells(6, 2).Value = (-b + Sqr(b * b - 4 * a * c)) \/ 2 \/ a Cells(7, 2).Value = (-b - Sqr(b * b...
vb 字符串转换为方程计算
如果是，看看下面的代码，之前画 TEXT1 TEXT2 COMMAND1 控件 修改TEXT1里面的 公式 然后去点CMD钮 text2里面 显示计算结果 Private Sub Command1_Click()Set My_Script = CreateObject("scriptcontrol")My_Script.Language = "VBscript"My_Script.AddObject "Text2", Text2 Run_Str...
想用VBA语句解线性方程组
楼上的方法把计算公式中的值都一次性定死了，填充的就是一个字符串，不能用于后续运算。如果各统计单元格之间的相对位置保持不变的话，建议用R1C1相对格式表示法插入计算公式。这样做的好处是，如果以后重新排版，数据发生整体移位，照样可用。Cells(i, 7).Value = Cells(9, j) * Cells(i, j)...
如何用电脑计算二次方程 如 (x²+x+1=0)
) 程式组 41 bytes 1 ? → A : ? → B : ? → C : B2 – 4AC → C : 2 ( √C – B ) ÷ 2A ◢ 3 ( -√C – B ) ÷ 2A MODE MODE MODE 2 程式五 ( 完全跟足一元二次方程公式 Quadratic Formula 编写。另外，如果输入的是整数，而根是有理数 ( Rational Number )，...
VBA 把方程化为一般式
写完整代码很费时间的，给你上思路吧：1、判断是哪种形式的方程：设置3种类型（一元一次，一元二次，二元一次）这个可以通过是否有“^“和”，“来判断，不难 2、通过对x取不同的值（如0，1，-1）来计算得到系数 3、输出结果
用WORD写论文时有哪些好用到哭的奇技淫巧?
其实我不用 Word 自带的公式编辑器或者是 MathType 的最主要的原因就是,这两个产生的公式太丑了。美丑这个东西仁者见仁,我的审美也不是最优秀的,我贴几张对比图,如果感觉 Aurora 产生的公式最漂亮,可以继续往下看,如果感觉差不多,可以跳过这一章。 下图是二次方程求根公式的三种公式编辑器的对比图,好像都还好。
