下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。
Furiction SumD (n As Integer)As Single
s = 1
i = 1
Do
i = i + 1
s = s + 1 / i
Loop Until 【12】
SumD = s
End Function
Private Sub Form Click()
sum1=SumD(100)
Print "sum1="； sum1
End Sub

片面强调为后代人保护环境而阻止旅游开发的行为是错误的，它违背了可持续发燕尾服模式的（）原则。

A．发展

B．协调性

C．质量

D．公平