下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。
D．im s As Single ， m As Single
s=0
m=1
do while ____(10)___
s=s+m
m=m+1
Loop