Question

求VB 高手。刚学，不要写的太复杂。

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 Su