Label184(0).Caption = "M2-1=" + Str(Int(L59 * 1000 + 0.5) / 1000) + vbCrLf+"M3-1=" + Str(Int(L60 * 1000 + 0.5) / 1000) + vbCrLf+"M4-1=" + Str(Int(L61 * 1000 + 0.5) / 1000) + vbCrLf+ "M5-1=" + Str(Int(L62 * 1000 + 0.5) / 1000)
就是+ vbCrLf,换行
Label184(0).Caption = "M2-1=" + Str(Int(L59 * 1000 + 0.5) / 1000) + vbcrlf+"M3-1=" + Str(Int(L60 * 1000 + 0.5) / 1000) + vbcrlf+ "M4-1=" + Str(Int(L61 * 1000 + 0.5) / 1000) + vbcrlf+ "M5-1=" + Str(Int(L62 * 1000 + 0.5) / 1000)
在每个语句后加入换行符,&vbCrlf
说的对!