填空题

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

【参考答案】

i＞＝n
<上一题 目录 下一题>
热门 试题

填空题
编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox( 请输入一个整数 ) n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是 【15】 。
填空题
语句Static x(7，8)As Double定义了 【13】 个元素。
相关试题