编写一个程序，计算出满足1+2+3+…+n<100的n的最大值，并在文本框Text1中显示出来。

Dim s As Integer       ‘’变量s存放和

Dim n As Integer

n =    ①             '为n赋初值

s =    ②              '为s赋初值

Do While s < 100

    n = n + 1

    s = s + n

Loop

Text1.Text = Str(    ③   )

程序空格处，①、②、③应分别填写（   ）

A、 0，0，n

B、  0，0，n-1

C、  1，0，n-1

D、  0，1，n