Private Sub Command1_Click()Dim i As IntegerDim Result As IntegerFor i = 0 To 49Result = Result + ((i * 2 + 1) * 10 + 2)NextMsgBox ResultEnd SubPrivate Sub ...