求用vb编程：该程序要实现的功能是：计算s=10/101+10/102+10/103+......+10/n n的值由输入决定
求用vb编程：该程序要实现的功能是：计算s=10/101+10/102+10/103+......+10/n n的值由输入决定
日期：2016-11-25 09:59:05 人气：2
Private Sub Command1_Click()
n = CInt(InputBox("请输入N(>100)的值："))
s = 0
For i = 101 To n
s = s + 10 / i
Next i
MsgBox "S=" & Format(s, "0.0000")
End Sub