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只需要一个&
谢谢！

& 用于连接前后的字符串，生成新的 字符串。
x1 后面还有内容，所以后面还要带一个 &，
x2后面没有了内容了，所以没有了。

这都是 基础知识 + 语文 的内容了。

Label4.Caption = "方程两个实根为：x1=" & x1 & ",x2=" & x2
很明显，x1 变量的后面还要连接字符串，所以还要加一个字符串连接符 &，而 x2 的后面没有字符串连接，因此在它的前面仅仅需要连接它的连接符 & 就可以了。
如果 x2 的后面还有字符串，那么必须有二个 & 连接符了，例如：
Label4.Caption = "方程两个实根为：x1 = " & x1 & ",x2 = " & x2 & " 。"  '后面有句号的字符串！！