下列过程的功能是：用来计算并输出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

填空题下面语句Static x(7，8)As Double定义了______个元素。

填空题程序如下： Private Sub Form_Click( ) Const PI=3.14159 Dim r As Single, S As Single R=InputBox( 请输入圆的半径 ， 输入数据 ， 50 ) S=PI*r*r Print S= ；Format(S， |###.###.## ) End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入35，则单击“确定”按钮后，输出结果为______。