VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 T

'当i=1 时,x=n/i=0/1
'当i=2 时,x=n/i=1/2
'当i=3 时,x=n/i=2/3
'当i=4 时,x=n/i=3/4
'当i=5 时,x=n/i=4/5
再问： 你的意思是先算x=n+1 再算n=n+1 是吗？
再答： Private Sub Command1_Click()'因为你第一个数的规律和其它数不同，所以第一个数要分开算 Dim sum As Double, x As Double sum = 1 '改为1 x = 0 For i = 2 To 5 '从2开始 n = n + 1'对调顺序 x = n / i sum = sum + x Next Print sum End Sub