如图所示，望采纳。。。。。
Private Sub Command1_Click()Dim s As Doubles = 0For i = 1 To 50 s = s + 1 / iNext iPrint sEnd Sub
