杭州交通信息网电镀化验药水分析:程序改错！~！~！~！VB二级模拟，大家帮帮忙！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 06:08:04
gc402.frm 的功能是：读入N后，求算式1+1/（1*2）+1/（2*3）+....+1/（（n-1)*n)的直。请修改程序中2出错误，在二行带有"*" 的提示行之间，调试该程序，使之正确运行，不得曾加或删除程序行。
private sub form _click()
dim sum as single , kk as single, mm as single
dim i as integer , n as integer
**********
mm=inputbox("请输入要求的项数N")
n=val(mm)
sum = 1
for i =1 to 10
kk=i*(i+1)
sum = 1/kk
next i
***********
print "sum=";sum
end sub
private sub form _click()
dim sum as single , kk as single, mm as single
dim i as integer , n as integer
**********
mm=inputbox("请输入要求的项数N")
n=val(mm)
sum = 1
for i =1 to 10
kk=i*(i+1)
sum = 1/kk
next i
***********
print "sum=";sum
end sub
private sub form _click()
dim sum as single , kk as single, mm as single
dim i as integer , n as integer
**********
mm=inputbox("请输入要求的项数N")
n=val(mm)
sum = 1
for i =1 to n
kk=i*(i+1)
sum = sum + 1/kk
next i
***********
print "sum=";sum
end sub
'我想这样应该没有错了