铆钉的直径、被铆件的总厚度相同时，半圆头铆钉、半沉头铆钉、沉头铆钉的铆钉杆长度相比较，（）。

A、半圆头铆钉的铆钉杆最长

B、半沉头铆钉的铆钉杆最长

C、沉头铆钉的铆钉杆最长

D、半沉头铆钉的铆钉杆最短

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