单项选择题

为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程： 　　Private Sub Command1 Click() 　　 Dim a％，s％，k％ 　　 s=1 　　 a=2 　　 For k=2 To 10 　　 a=a*2 　　 s2 s+a 　　 Next k 　　 Text1．Text=s 　　End Sub 　　执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。