杭州交通信息网狂言nba最新:VB改错题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 18:11:19
下面的程序用于求1/1+1/2+1/3+... ...+1/n的和。
private sub command1_click()
dim p , n as integer
dim sum as integer
n=val(text1.text)
do while p>=n
sum=sum+p
loop
form1.print “和为：” & sum
end sub
private sub command1_click()
dim p , n as integer
dim sum as integer
n=val(text1.text)
do while p>=n
sum=sum+p
loop
form1.print “和为：” & sum
end sub
你要先定义sum的初值为0,还有就是p的值,你看楼上的就可以了,如果你不想用for的话这样也可以:
Private Sub command1_click()
n=1
sum=0
p=1/n
do while (n<=100)
sum=sum+p
loop
form1.print “和为：” & sum
end sub
你想加到几,就把n的值改一下吧
Private Sub command1_click()
n = Val(Text1.Text)
For i = 1 To n
sum = sum + 1 / i
Next
Print sum
End Sub
你的程序的结果是sum=0
因为p的值永远为0
n的值大于p
循环是不会执行的。
楼上的答案是正确的
1