执行如图所示的程序框图.若输入p的值是7,则输出S的值是----.

'当p=7时结果为:0.984375
'程序如下：
Private Sub Command1_Click()
 Dim p As Integer, n As Integer
 p = Val(InputBox("请输入P值"))
 n = 1
 s = 0
 Do While (n < p)
  DoEvents
  s = s + 2 ^ -n
  n = n + 1
 Loop
 Print s
End Su