为计算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 s＝s＋a Next k Text1.Text＝sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。