1. (2020高一下·柯桥期末) 编写一个程序，计算出满足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(    ③    )

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