（27）为计算1+2+2^2+2^3+2^4+…+2^10的值，并把结果显示在文本框Text1中，若编写如下事件过程： 

Private Sub Command1_Click() 

Dim a%, s%, k% 

s =