Private Sub Command1_Click()
Dim a!, b!, c!, d!, x1!, x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d < 0 Then
Label4.Caption = "无实根"
Else
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
Label4.Caption = "方程两个实根为：x1=" & x1 & ",x2=" & x2

End If


End Sub


请问为什么Label4.Caption = "方程两个实根为：x1=" & x1 & ",x2=" & x2中x1=" & x1 & ",x2=" & x2      x1要有两个& 而x2只需要一个&
谢谢！