Private Sub Command4_Click()Dim i As Single Dim s As Single Dim j As Single Dim sum As Double s = 1 sum = 0 For i = 1 To 10 For j = 1 To i s = s * j 'sum = sum + s ‘ 这个放错位置了 's = 1 ’ 这个也是 Next j sum=sum+s ' 该放在...