Private Sub Form_Click()Dim s As IntegerFor i = 1 To 100s = s + iNext iPrint "判清笑正袜1+2+....+100="掘含; sEnd Sub