以下程序用于求S=1+3+32+33+…+310的值。Private Sub Commandl_Click() S=1 T=1 ForI=1 To 10 T= 1 S=S+T NextI Print"S="；S End Sub