求VB高手。刚学，不要写的太复杂。1.通过InputBox函数输入一元二次方程的系数a、b、c,且满足b2-4ac>0,计算并输出一元二次方程的两个根x1,x2。2.求两个数的相加。在窗体上建立两个名称分别

Question

求VB 高手。刚学，不要写的太复杂。
1.通过InputBox函数输入一元二次方程的系数a、b、c,且满足b2 -4ac >0 ,计算并输出一元二次方程的两个根x1,x2。
2.求两个数的相加。在窗体上建立两个名称分别为C1和C2，标题分别为“输入”和“计算”的命令按钮，要求程序运行后，如果单击“输入”按钮，可通过输入对话框输入两个数(分别是64和96)，分别存入整形变量a，b中，如果单击“计算”按钮，则对a，b变量进行加法运算，并把计算结果在消息框中显示出来

Answer 1

1.按你的要求！
Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single
a = InputBox("请输入a 的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
If b ^ 2 - 4 * a * c > 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "x1=" & x1, "x2=" & x2
End If
End Sub
2，这个你要改一下命令按钮的名称和标题，代码如下
Dim a As Integer, b As Integer
Private Sub c1_Click()
a = InputBox("请输入a")
b = InputBox("请输入b")
End Sub
Private Sub c2_Click()
MsgBox "a + b=" & a + b
End Sub