填空题

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s= 【12】 Next i SumF=s End Function Private Sub Form_Click() Sum1=SumF(100) Print Print"sum1="； sum1 End Sub

【参考答案】

s+1/i
<上一题 目录 下一题>
热门 试题

填空题
假定有以下当循环：While Not条件循环体Loop则执行循环体的“条件”是 【9】 。
填空题
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。Private Sub Command1_Click()Dim x As Long， y As Long，i As Longx=Val(Text1．Text)y=Val(Text2．Text)Text3．Text = Str( 【13】 )End SubFunction fun1(a As Long，b As Long)As LongDim r As LongDim t As LongIf 【14】 Thent = aa = bb = tEnd Ifr = a Mod bDo While r ＜＞ 0a = bb = rr = a Mod bLoop【15】 End Function
相关试题