请尝试在 N 之后加一个空格,其他地方编译器会自动加空格的,唯独当变量后跟&时编译器无法编译通过。加完空格后,编译器会自动修正为:
MsgBox "1+2+3+...+" & N & "=" & S, vbOKOnly, "计算阶乘"