VB程序查错函数过程求1+1/2+1/3+......+1/n的和看我的代码哪儿写的不对呢？

函数过程求1+1/2+1/3+......+1/n的和看我的代码哪儿写的不对呢？为什么最后的结果老是0？
大榭~

Private Function Sum1() As Double Dim i As Integer Sum1 = 0 For i = 1 To n Sum1 = Sum1 + 1 / i Next iEnd Function

Private Sub Command1_Click() Dim i%, nSum1 i = Val(Text1.Text) nSum1 = Sum1 '调用函数过程计算表达式的值 Label4.Caption = nSum1End Sub

举报该问题

推荐答案推荐于2016-06-05

Private Function Sum1(n as integer) As Double
  Dim i As Integer
  Sum1 = 0
  For i = 1 To n
  Sum1 = Sum1 + 1 / i
  Next i
End Function

Private Sub Command1_Click()
   Dim i%, nSum1
   i = Val(Text1.Text)
   nSum1 = Sum1(i)          '调用函数过程计算表达式的值
   Label4.Caption = nSum1
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/enZrIj0TeZITen00nZ.html

其他回答

第1个回答 2014-05-27

i定义为实型，整型倒数当然为0.追问

实型的话是怎么定义的求详细解释我是vb菜鸟 --

相似回答

用vb语言编写程序:用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.答：function sumfs(i as integer) as double dim sums as double,j as integer for j=1 to i sums=sums+1/j next sumfs=sums end function

用VB求变态数列~1+1/2+1/3+...+1/n~要编程的过程哈答：n=10 '(一个你想要的数)s=0 for i=1 to n s=s+ 1 / i next i print s

VB 中编写函数fun(n),计算s=1+1/2!+1/3!+...+1/n!怎么写代码。求帮忙...答：VB 和 c 混了看看这个 Function fun(ByVal n As Integer)As Single Dim i,t As Integer Dim s As Single t = 1 For i = 1 To n t = t i s = s + 1 / t Next i fun = s End Function 注意，调用是 n不能太大了，否则就得改 dim t as long ...

求s=1+1/2+1/3+...+1/n, 直到第n项(1/n)的值小于0.0001时为止; 用v...答：do n=n+1 s=s+1/n loop while 1/n<0.0001

VB程序查错 函数过程求1+1/2+1/3+......+1/n的和 看我的代码哪儿写的不对呢？

VB程序查错函数过程求1+1/2+1/3+......+1/n的和看我的代码哪儿写的不对呢？