利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

（加试题）编号为 1 到 8 的纸牌顺时针排成一圈，现从编号为 1 的牌从数字 1 开始顺时针数下去，1、2、3、„、20、21、„，一圈又一圈，则当数到数字 N 时，所在纸牌的编号为（   ）

A．N Mod 8

B．(N+1) Mod 9

C．1+(N-1) Mod 8

D．1+(N-1) Mod 7

找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来时限问题求解，这种方法叫做（   ）

A．解析法

B．顺序查找算法

C．递归算法

D．穷举法

分析完善程序。
假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）^∧年数
假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）^∧n>12000，求最小的n。
（参考程序）
Dim s as single
Dim r as single
Dim n as integer
s=10000
r=0.03
n=0
Do while 
n=n+1
s=s*(1+r)
Loop
Print n;”年后”:”连本带利超过”；s
根据上述回答下列问题
（1）本题采用的算法是___________（填写：解析法/穷举法/排序法/递归法）
（2）写出参考程序中空白处表达式__________________________________ 。

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________